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Recently several Rockwell AIM-65 
microcomputer systems were purchas- 
ed for use in teaching courses in 
microprocessors and microcomputers 
at the camous of the Pennsylvania State 
University at whicl 1 teach. These were 
intended to supplement the KIM-1 
systems which have been used for that 
purpose for the past three years.The 
press of other activities has prevented 
more than intermittent exposure to the 
full capabilities of (he AIM-65; however, 
some basic impressions and evalua- 
tions are possibia. 


Overall, the impression has been 
highly favorabie. First, due to the 
similarity with the KiM-1, the AIM has 
been easy to learn. Even students with 
virtually no exposure to any type af 
microcomputer have haa little difficulty 
in learning to use the system effectively. 
In this regard, the documentation provid- 
ed with the AlM-G5 is excellent. The 
AiM-65 Microcomputer User's Guide is 
easy to follow and has a sizeable 
number of examples to clarify concepts 
stated in the material related to a por- 
tion of the system or its operation. tden- 
tification of many of the most useful 
subroutines end their characteristics 
has proved to be a special blessing. The 
clock program used as an application 
example at the end of the manual in- 
volves virtually every mode of operation. 
tt provides an excellent base for 
understanding the system and in addi- 
tion serves as a firm foundation for a 
flexible data sampling and logging 
system. Although a few errors exist in 
the User's Manual, most are of minor 
consequence, 
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Second, the extensive monitor pro- 
gram has a great many features not 
generally found in a system of this price 
class. These features make it possible to 
program the AIM more rapidiy and with 
fewer errors than is possible for an 
essentially identical program using the 
KIM-1.The features which come to mind 
most readily are the mnemonic entry 
capability, the disassembler, and the 
text editor, The printer with its hard copy 
put the topping on the physical at- 
tributes of the system. Less visible, but 
equally as convenient, are the cassette 
interface with its much higher speed and 
flexibility when comparec with the 
KiM-1. The ability to use the KIM format 
permits the application of many KIM pro- 
grams to the AIM. Finally, the 20 
character display with the ability to use 
alphanumerics expands the capabilities 
of the AlM-65. 


No system is completely without its 
shortcomings and the AIM is no excep- 
tion. Fortunately, the shortcomings are 
few and most are easily corrected. One 
of the problems arises from the fact that 
in the memory modify mode,(/, the pro- 
gram is returned to the system monitor 
after four entrics. While ail that is 
necessary to return to the modify mode 
is to again press (4, often when entering 
a program from a hex dump format or 
entering hex values into a tabie or enter- 
ing a short ASCII message statement, it 
is easy to forget to re-enter (/). The short 
program shown below, HEX LOAD, uses 
the same format as the M followed by () 
process but automatically remains in 
the modify mode until terminated by an 
ESC. There is a printout of the entered 
characters and the address of the 
lowest byte just as in the normal opera- 
tion. The only difference is that it is no 
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longer necessary to enter (/) after each 
four entries. To use HEX LOAQD, begin ex- 
ecution at 0600 (or the beginning ad- 
dress selected if in a different location) 
by the usual entries, “(*}= 0600", 
RETURN,“G", RETURN. The display will 
show “= ‘*. Enter the address at which 
hex entries are to start, RETURN, and 
the starting address will be displayed 
with the prompt ‘a’. Make the desired 
hex entries as a continuous string, then 
terminate with ESC. 


HEX LOAD 
(17) *=0600 
{20 


0600 20 JSR =AAE 
0603 20 JSR E83E 
0606 AO LDY #00 
0608 20 JSR EAS5D 
O6OR 90 BCC 0613 
O60D C9 CMP #20 
O60F DC BNE 0623 
0611 FO BEQ 0615 
0613 20 JSR EB78 
0616 FO BEQ 061B 
0618 4C IMP EB33 
O61B 20 JSR =83E 
0612 C8 INY 

O61F CO CPY #04 
0621 DO ENE 0608 
0623 20 JSR E2CD 
0626 20 JSR EA13 
0629 20 JSR E2DB 
062C 20 JSR =832 
O62F DO BNE 0606 
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SLOW DIS 
(K) #0200 
/38 


0200 
0202 
0205 
0207 
O20A 
020D 
O20F 
0212 
0215 
0218 
O21B 
O21E 
0221 
0222 
0224 
0227 
0229 
0220 
O22F 
0232 
G235 
0237 
023A 
0231) 4c 
O20 
O242 
O22 
0246 
0249 
O24 
O?24E 
0251 
0253 
0256 
0258 
0258 
O25) 


O25F 


AY, LDA 
JSR 
LDA 
JSR 
JSR. 
BCS 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
5 EC 
ADC 
STA 
CC 
INC 
JSR 
JSR 
JOR 
BEQ 
JOR 
JMFP 
Jiiv EAL 
LDA #10 
STA AG 
LDA 


#00 
STA AQOE 
LDA 


#¥ F 

STA AOO8B 
STA AOQQY 
LDA #20. 
BIT AOOD 
PEQ 0253 
GDA AOE 
DEC ; 


1C 
ENE 


oZ249 
60° RTS 


HUB 

E97A 
#2A 

E97A 
EAAE 
0200 
E5D7 
EB37 
E785 
EA24 
FL6C 
A425 


EA 
AM25 
022C 
A426 
BA 24 
£907 
E790 
023D 
o2L0 
O21B 


ZERO PAGE LOCATIONS USED: 


00AC Timing Loops 


Length (Used by monitor 
ROM) 


OOEA 


The second difficulty is an an- 
noyance with the speed at which 
disassembly occurs when the printer is 
not In operation. This mods of operation 
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Is sometimes dasirable to conserve 
paper whila debugging os white checking 


for a particular part of a program. The 
‘program left, SLOW DIS, introduces 


about a 1 second delay between steps 
during disassembly without the printer, 
Location 0241 can be modified to 
change the speed as desired. Execute 
the program in the normal way using 
(*)=0200, RETURN, “G", RETURN. The 
display will Indicate “K*= ". Enter the 
starting address of the material to be 
disassembled and the number of steps 
as in normal operation. If an indefinite 
number of steps was selected by 
“SPACE”, then the program must be ter- 
minated hy ESC. 

One of ihe mejor advantages of the 
AiM-65 over the KIM-1 and other similar 
systems using 7-segment read-out 
displays (limited to six digits), is the 
relative ease of using meaningfully 
prompted programs which eliminate the 
need to record or remember the proper 
addresses into which data must be 
entered to initiate the program. With 
prompting, the required Information can 
be asked for, inserted, and stored in ap- 
propriate locations under program con- 
trol. Two utility programs, CLEAR and 
MOVER, Included below, are of the 
prompted type. MOVER is a data 
transfer program capable of moving any 
amount of cata either forward or 
backward to a designated starting ad- 
dross. Execution of the progam results 
in a prompting message of “OLD 
FROM =” fo elicit the entry of the star- 
ting address of the data to be moved. 
After the address has been entered and 
RETURN activated, "TO=” calls for the 
ending address of the data to be moved. 
When RETURN is again used, theprompt 
“NEW FROM =" appears to bring about 
entry. of the starting address at which 
the moved data is to start. This time 
RETURN causes execution of the move 
process, completion of which is in- 
dicated by a cleared display except for 
the normal “ " at the left side of the 
display. Similarly, CLEAR uses promp- 
ting messages, “CLR FROM=" and 
“TO =" to obtaln the limiting addresses 
of ihe area into which zeros or any other 
designated character may be entered. 
The area can be of any size. 


A general breakdown of the 
features of these two programs can be 
used to show the various sections and 
thelr functions. In CLEAR, the program 
from 0300 through 0314 provides the pro- 
mpt message generation; 0315 through 
0330 contains the address input and 
storage functions; 0331 through 0330 
contains the calculation of the high and 
low ordar bytes of the length of the area 
involved; end the remalnder of the pro- 
gram performs the actual data storage 
procedure. Location .034F | may be 
modified to any value with which it Is 
desired to Joad a selected memory area. 
Locations 035F -0361 contain the “CLR” 
message. 
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0309 
0303 
0305 
0308 
0309 
0308 
0392 
C30r 
0319 
0312 
0315 
0318 
0318 
031D 
0320 
0322 
0325 
0327 
032A 
032C 
032F 
0331 
0332 
0334 
0336 
0338 
033A 
C330 
0333 
C352 
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Wa 


35 
O3E4 


0355 


0357 


0357 
0350 


20 
AQ 


B9 | 


48 
29 
20 
C8 
68 
10 
20 
20 
AD 
85 
AD 
85 
20 
EO 
AD 


JSR 
LbY 
LOA 
PHA 
AND 
JSR 
INY 
PLA 
BPL 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
LDA 
STA 
bs oman 


STa 
$2 

LDA 
SEC 
STA 
LDA 
SBC 
bE 
TAX 
LDA 
TAY 
STA 
INY 
DAZ 
INC 
eX 


wy 
* 
nae 


TKC 


LDA 
LDY 
STA 
INY 
CPY 
ENZ 
JSR 
JP 


ZA13 
#00 
O35F, 


#7F 
ES7A 


0305 
R832 
E7A3 
AUC 
00 
AWD 
o1 
7A? 
0322 
ALAC 
02 
ANID 
03 
02 


00 
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MOVER ZERO PAGE LOCATIONS USED: 


(K) #=0200 CLEAR 
/96 
0000 Start ADDR Low 
0200 20 JSR 2A13 0270 E6 INC AA OOOL Start ADDR High 
0203 AO LDY #00 0272 A6 LDX AY 0002 Ending ADDR Low 
0205 20 JSR 0258 0274 FO BEQ 0286 0003 Ending ADDR High 
0208 20 JSR E7A3 0276 Bl LDA (A2),Y 0004 Length Low 
020B 20 JSR F910 0278 91 STA (AA),Y 
O2Z0E 20 JSR EVA7 027A 88 DEY MOVER 
0211 BO BCS 0208 027B CO CPY #PF OOAO OLD Start ADDR Low 
0213 20 JSR EA13 027D DO ENE 0276 OOA1 OLD Start ADDR High 
0216 AD LDA A4IA O27F C6 DEC A3 OOA2 OLD Ending ADDR Low 
0219 85 STA AO 0281 C6 DEC AB& O0A3 OLD Ending ADDR High 
O21B AD LDA A41B 0283 CA DEX O0A4 NEW Start ADDR Low 
O21E 85 STA Al 0284 DO BNE 0276 00A5 NEW Start ADDR High 
0220 AD LDA A4IC 0286 £6 INC A8 00A6 Move Distance Low 
0223 85 STA A2 0288 bl LDA (A2),¥ 00A7 Move Distance High 
0225 AD LDA A41D 028A 91 STA (AA),Y OOA8 PCM Length Low 
0228 85 STA A3 o28c 88 DEY QOA9 = PGM Length High 
022A AO LDY #04 O28D Cé DEC AB OOAA NEW Ending ADDR Low 
022C 20 JSR 02B8 O28F DO ENE 0288 QOAB NEW Ending ADDR High 
022F 20 JSR E83E 0291 20 JSR EAL} A similar exarnination of MOVER 
0232 20 JSR BVA 0294 4¢ JNP EAL will how stat the segment from 0200 
0235 AD LDA AlG ©0297 AO. LOY #00 ee ee 
0238 85 STA Au 0299 A6 LDX AY 02B8 - 02C5, obtains the requested ad- 
023A AD LDA A41D O29B FO BEQ O2AE tea ee ee hem, Pio 0e36 
; . rou y S$ foun 6 calculation 
023D 85 STA A5 O029D Bl LDA (A9) Y Soceduiee for the length of the data to 
O23F 38 SHC O29F 91 STA CA) ey be moved, determination of the new en- 
aS, 
0240 AS LDA Az O?PAL C8 INY ding address, and decision as to 
o2i2 BS Sh0 Ad O2A2 90 EXE 9299 ECan aC serie 
0244 85 STA A8& O2Au £6 INC Al by starting at the ond and working back 
O2H6 AS LOA A3 O?2P46 “6 INC A5 to the start is contained in 0268 through 
9 } ¥ 1. 
0248 £5 SEC Al O248 CA SEX Gress is nandled trom C27 through 
O24HA 85 STA AY 02590 0) ies, Seow 0287. The “OLD” and "NEW" messages 
o2uc 18 CLC O2a5 26 18C As are contained in 02C6 - 02CC. 
O2KD AS LDA AM OZAD EL LDA (80), gy MARR POON en "akan 
a pare’ c. poe a ws rar as a s a 
o2LF 65 ADC A& O2ZAF 91 STA (.:4),7% sowertul system to = robes more 
0251 85 STA AA O2E1i C8 IKY responsive to the desires of the pro- 
' . ; 7, Other programs which would 
0253 AS LDA A5 O2B2 Ch CPY- AS Oe very helpful would be the ability to in- 
0255 65 ADS AI O2B4 DO ENE 024D bert ay Instruction into the middie of a 
ne ae STA AB O2B6 FO BEQ 0291 program with automatic movement of 
7 v: 3 rad Z inet 
0259 38 SEC 02B8 E9 LDA 02C6,Y¥ Inte text editor and some assemblers. 
OZ5A AS LDA A4& O2BB 48 PHA Related would also me a acletlen ihe 
na 5 1 Lye edure with automatic closure. Not 
0238 65 STA AG Ooee 20 JSR EGTA eee gs eam eth 
ans ad : ~~ complish these p ‘ a 
0260 AS LDA A o2C1 C8 IhyY later... 
0262 SEC me o2c2 68 PLA ; Racelpt of ne 8K basic aes for 
RE ara ‘ "DT. > he AIM-65 has finally occurred after a 
0264 85 STA A? 0203 10 EPL 0288 tong ny it Nlet-ehoudh: cpponunity 
0266 90 BCC 0297 02C5 60 RTS has piieeo De Inte inat spec! of 
At Pango the Al ly, as yet. rlef @x- 
ae a peas #FF (t.)=02C6 4F HG? tao a nosurs fas made a veey favorable tm- 
026A CO DEC AZ (*}) 02CA (43 4f 57 pression. The addition of the BASIC 
0266 C& DEC AE ne makes the AIM-65 into exactly what Its 
0262 £6 INC A2 nams implies; a self-contained Advanc- 


ed Interactive Miprocomputer. 
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The Aiki 65 obviously is going to find its way into the 
electronics laboratory. Here it is used as a frequency 


counier. 
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The program listed performs as a six- 
cigit frequency counter, It will count at 
least as fast as 450 kHz, perhaps faster. 
A simple interface circuit is shown in 
Figure 1. Although the signal to be 
measured could be connected directly to 
the PB6 pulse counting pin of the 6522, | 
prefer not to connect strange and 
unknown signais directly to the com- 
puter. In any cese, the signal pulses to 
be counted should really be shaped into 
the form of a square wave before they ap- 
pear at PBS. 


The counter uses timer Tt in a free-run- 
ning mode wiih 56,090 clock cycles be- 
tween settings of its interrupt flag. The 
timer Tt is not allowed to interrupt the 
6502, rather its interrupt capability is 
disabled and tne flag is “watched” by 
reading the interrupt tlag register, IFR. 
With $14 = 20,, intervals of 50,000 clock 
cycles apiece, one gets a total inierval of 
one second. $14 ts located in $0000. The 
Tt timer is loaged with instructions 
starting at $0229. Note that the number | 
used is less than 50,000 because my AIM 
€5 crystal is slow by 244 parts in one 
million cycies. fou mey wish to make ad- 
justments wilh this number also, de- 
pending on your system’s clock frequen- 
cy. 


The frequency counter works as follows. 
Timer T2 in its pulse counting mode is in- 
itiaily ioaded wiih SFFFF = 65535. Once 
it is loaded, tuiaer 11 is started and FBO 
is brought to fogic O to allow the NAND 
gate to let puises through. At the end of 
the timing interval, dascribed in the 
preceding paraqrech, the gate is closed, 
the timer T2 is read, the result is sub- 
tracted from SFFFF, this number is con- 
verted from HEA to BCD, and it is added 
to the dispiay locations using the ADC 
instruction in the decimal mode. If, at 
any time the 72 timer counts through 
zero, an interrupt request (IRQ) occurs 
and the «display registers are in- 
cremented by 65536 = SFFFF + 1,T2is 
reloaded with FFF, and counting con- 
tinues. Ai the end of one second, the 
total number of counts is displayed by 
the display Subroutine, which, by the 
way, is identical to the 24-hour clock 
dispiay routine in the February 1979 
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issue of MICRO. It is a bit unfortunate 
that the 6522 designers did not allow the 
T2 timer to continue producing inter- 
rupts without reloading it, because in the 
time interval between the interrupt re- 
quest and the reloading of the T2 timer 
(starting at instruction $0295 in the inter- 
rupt routine), a few counts of pulses on 
PB6 might be missed. This would only be 
of concern at large counting rates. 


The HEX to BCD conversion routine 
Starts at address $025D and ends at ad- 
dress $028E. The 16-bit number repre- 
senting the number of counts in timer T2 
is stored in locations $0010 and $0011. If 
$PQRS represents this nurnber, then 

$PQRS = (P.4096,.) + (Q.256,0) + 

(R. 164) + (S.1). 

If the cafculation on the right-hand side 
of the above equation is done in the 
decimal mode, the $PQRS will be con- 
verted to BCD. In other words, 4096 is ad- 
ded to itself P times, 256 is added to 
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itself Q times, 16 is added to itself R 
times, and 1 is added to itself S times, all 
in the decimal mode. These results are 
all added together, giving a BCD number. 
Better routines exist, | am sure, but this 
one isn't too slow. Note that P,Q,R, and 
S are each one nibble of the 16-bit 
number obtained from timer T2. (Has 
anyone yet suggested calling 16-bit 
numbers “gobbles,” giving nibbles, 
bytes, and gobbles?) The table starting a 
$0300 must be loaded into memory for 
the HEX to BCD conversion to work. 


The symbol table given may help you if 
you wish to modify the program or if you 
want to change it to run on a microcom- 
puler other than the AIM 65. Also, | 
would be interesied in knowing an exact 
upper limit for the frequency at which it 
will operate and in any further im- 
provements to the rate at which it witli 
count. Currently t do not have enough 
time to do this experimentation myself. 
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ADDRESS TABLE FOR THE All 65 FREQUENCY COUNTER 


$AG00 = PBD (ORB) 
$A002 = PBDD (DDRB) 
$A004 = TIL-L (Read) 
$A005 = TIL-H 

$A006 = TIL-L (Write) 
$A0C8 = T2L-L 


$A009 = T2C-H 
$A008 = ACR 
$ACOD = [FR 
$A00E = {ER 
$A404 = [RQL 
$A405 = IRQH 


$0000 = Count-to-twenty register 
$0001 = Dispiay register, low-order byte 


$0002 


Display register, middle-order byte 


$0003 = Display register, high-order byte 

$0010 = PQ = Low-order byte of count from timer T2 
$0011 = RS = High-order byte of count from timer T2 
$0340 = Starting address of display subroutine 
$0295 = Starting address of IRQ routine 
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Some information about the AIM Assembler, a program 
to print the Symbol Table 
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Sorter/Printer 






- sorted aiphabeticaily or 


numerically, and some other useful stuff. 





When the first Rockwell AIM showed 
up at the local computer store, mouths 
started watering. For a KIM user, to see 
an AIM is to want one. It is hard to resist 
that fine keyboard and display, the 
clever little printer, and sockets for 
Monitor, RAM, Assembler, and BASIC; or 
for 2716 EPROM with your own stuff on 
it. I've been running KIM with a Memory 
Plus board (BK RAM, 8K EPROM, 2716 
programmer, and a 6522 ViA), mounted 
with power supply and I/O board in an at- 
tache case for portable use. This rig 
hasaccumulated a half-dozen 2716's full 
of KIM software, and | intend to continue 
working on KiM applications. Since AIM 
provides the same VIA, t bought one with 
the justification that it would help me 
develop more and betier KIM software. lf 
you write it and debug it on AIM, and 
move it over to KIM, you're done, right? 


Well, yes. After a bit of learning about 
conversion from one memory map to 
another, it really does work that way. 
The mnemonic insert mode (“I com- 
mang} is a joy to use. There are no more 
op-code lookups and branch calcula- 
tions and there are fewer typos. And the 
disassembler (“K" command) lets you 
check your work faster and more ac- 
curately. But for clean, patch-free object 
code, the assembler is the best of all. 
Six-character variable names! No line- 
number hasste! Six-character labels, 
such as ‘“‘JdMP NEXT,” oF “BEQ 
OUTCHR.” And for easy transfer of ob- 
ject code from AIM to KIM, it’s the 
assembler that reatly does it. It makes 
the writing of relocatable code almost 
automatic. 


we cyempatcee ge re A TMI ae Cream cage te Tee seer a tn amin on tee 


The AIM assembler lacks one feature; 
there is no command for printing the 
symbol table after an assembly. So here 
is a little program that fits on Page Zero 
and does just that. After assembling any 
program, toad this one and start at 10. It 
prints two listings of the assembly sym- 
bol table; one sorted alphabetically by 
symbol name, and the other sorted 
numerically by symbot address. The first 
list is helpful when going through the 
assembly listing. The second is even 
more helpful when reading the output of 
the disassembler; it lets you know right 
away that the cryptic “JSR ESBC,” for 
example, is @ jump to subroutine 
OUTALL. 


The source (assembly-language) ver- 
sion of the sort/print program is shown 
in Figure 1. Tne assembly listing, with 
absolute addresses, is shown in Figure 
2. A disassembler listing is not shown, if 
you can’t assemble this one, you don’t 
need it! 


The sorting algorithm is plain brute- 
force; it is desigbed to conserve memory 
space, not sorting time. But even So, it 
takes much less tirne to sort a list than it 
does to print it. The only tricky feature of 
the program is in its allocation of zero- 
page memory; in loading, it carefully 
avoids wiping out the six bytes that 
remember symbol-table size and loca- 
tion, because it will need them to know 
where to work when you hit “Go.” 


Figure 3 shows, as an example, the 
use of the assembled program on its 
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own symbol table. Notice that you don't 
have to find and enter the location and 
size of the symbol table; the program 
finds these from the zero-page bytes 
that it conserved while loading. 


One note of caution in case you don't 
read the following section. When you 
assemble this source program, don't 
direct the object code to memory. Direct 
it to tape. Then load it and start at 10. 


AIM-to-KiM Software Conversion 


The following assumes that you have 
more space in AIM RAM than you will 
need for KIM memory. it works well with 
a 4K AIM, and even better with 8K. 


The idea ts to use AIM for both 
assembly and running of the program 
during the debug phase. In the process 
of editing source, assembling, and runn- 
ing (and re-editing, re-assembling, re- 
running, re-editing, etc., etc.), much time 
can be saved by not having to load 
source from tape, dump object to tape, 
and reload object from tape for the next 
run. (if you have disc, this may be less of 
a problem. | wouldn't know.} So, build 
your source with the editor (the very 
good editor), assemble from memory, 
and direct object to memory — to any 
available memory, not necessarily where 
it will go in KIM. It will be easy to move 
later if you follow one rule: don't use fix- 
ed addresses except where really 
necessary. 


Look at Figure 1 again. Observe that 
the only fixed addresses used are those 
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of the six zore-page bytes containing 
symbol-tadic location and size (STLO 
through NSYMHf, the four Monitor 
subroutinus needed for printing (CLR 
through CRCK), the start of the scratch- 
pad block (* = $00}, and the start of the 
main program (* =$10). Alf other ad- 
dressing is either relative 
(e# awe +1,% = x +4) oF by labet (SR 
SORT, JMP COMPAR, BNE SWAP), with 
absolute addresses and branch offsets 
assigned during assembly. Therefore, 
this whole program could be moved to 
KIM by simply changing the scratchpad 
start to any convenient spot in KIM zero- 
page, changing the program start to any 
appropriate spot in KIM RAM, and re- 
assembling, with object-output to tape 
in KIM format. 


That lasi phrase, ‘output to tape in 
KIM format,” is where we hit the first 
snag. The AIM User's Manual says the 
assembler will do this, but the manual is 
wrong. If you try OUT-OBJ = K, the poor 


’ thing locks up in a trance, and the only 


Shean ea 


recovery is RESET. {if you would like an 
explanation from Rockwell on why this 
happens, call Dave Sawtelle, AtM Ap- 
plications, 714-632-0975. This number is 
worth writing down; AIM Applications is 
a very competent and helpful group.) 


So how do you output object to tape in 
KIM format? You have your choice of 
two ways. The simple way is to output 
object to tape in AIM format, load this 
back into AIM, and then DUMP it to tape 
in KIM format. This works fine, but it is 
slow. The faster way, if you have room in 
AIM RAI, is to send object to memory 
and then DUMP in KIM format. Before 
you do either, read on, or you may hit the 
second snag. 


The above sort/print is a bad example 
of Ki-converlible code, for two 
reasons. The first is obvious; consider- 
ing its function, KIM couldn't do 
anything with it. The second illustrates 
some further precautions. 


The AiM editcr and assembler use the 
top third (and some of the bottom) of 
Page Zcio, and several pieces of Page 
One are used by tape VO and monitor. 
Furthermore, you can’t (yet) trust the 
momory map, in the User’s Manual, 
Rockwell is Giligently fixing the 
mistakes and has already issued Revi- 
sion 1, but it is still too new to be totally 
reliable. For example, look at the equate 
list in Fig. 1 again. Notice those zero- 
page addresses for STLO through 
NSYMHI? Does the memory map teli you 
they are used by the assembler? No, it 
deasn'l. STLO, STHI, NSYMLO, and 
NSYMHE are mentioned in ihe chapter 
on the assembler (Section 5.2). | found 
ENLO and ENcil by accident! 


In order to assemble to memory and 
tun, try to avoid putting enher program 
or data on either Page Zero or Page One, 
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unless you want to discover, by trial and 
error, ihe undocumented portions of the 
memory map. /i’s okay to assign zero- 
page variables, but don't use the 
assembler to initlalize them with data. 
The data may not survive the assembly. 


Now, how about a program destined 
for Page Zero, such as the sorter/printer 
above? The final version (as tisted 
above) must be assembled with object- 
output to tape, and can then be safely 
toaded and run. But during debug, the 
assemble-to-memory-and-run cycle can 
still be used by moving program and 
data to higher memory. For example, 
just before YTAB, change “* = * +1” 
to “* = $200" (to move data to Page 2); 
and before START, change “x =$10" to 
“ « =$300” (to move the program to 
Page 3). This changes some addressing 
modes from zero-page to absolute, but 
the assembler takes it in stride. Now 
assemble to memory and run. After it all 
works, move data and program down to 
Page Zero, and assemble to tape. 


What if you need to use Page One? 
The push-down stack at the top of Page 
One is the same in AIM as in KIM, so 
there is no problem there. (Simply atlow 
a bit more room for the deeper-pushing 
AIM monitor.) The AIM memory map 
shows eleven Page One bytes (106-107, 
415-11D) used by tape #0, and eight 
bytes (168-16F} used by the monitor. The 
tape I/O bytes can be handled like Page 
Zero bytes; i.e., avoid until assembling to 
tape. The eight monitor bytes should 
probably be permanently avoided; load 
them into KiM by hand after everything 
else is transferred. And as an extra 
precaution, check all of Page One for 
wipeouts before running in KIM. 


Piease do not let all these cautions 
scare you off. It really is fast and easy 
after a little practice. Most programs 
grow during debug, and much of the 
above only applies if your program has 
grown to the point where you are 
cramped for memory space. 


Fig. 4 shows how simple it is when 
there is plenty of room. This is a general- 
purpose “move block” program that will 
go anywhere in memory (RAM or ROM), 
and it will move any size block from 
anywhere to anywhere. The assembly 
listing (Fig. 5) shows that it occupies 24 
HEX bytes of memory, and uses six 
bytes of zero-page. Before moving it to 
KIM, change that “x = $00" to the start 
of the six-byte block you want it to use in 
KIM. Don’t bother to change the 
“y% =$200" starting address; after you 
have it in KIM, you can use the program 
to move itself to wherever you want to 
keep it. | keep two copies on tape, one 
that loads to zero-page and one to the 
top of RAM, plus one more in EPROM 
With another copy in AIM, it can be used 
for general memory transfer in either 


direction; move blocks to $200-3FF, 
dump to taps, load to $200-3FF in the 
other machine, and move to wherever. 


if all you want is the block-move code, 
Fig. 6 gives a disassembier listing and a 
hex dump. It can be put anywhere, but 
this version needs the bottom six bytes 
of zero-page for “From”, “End”, and 
“To”, 


Figure 1: Source Listing, 
Sorter/Printer 
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STAR DATA 
. DEY $6008. $06BE 


iMAIN PROGRAM 
; JUMP GYER @B, OC 


SOE A CR URC CO RON fal Sn ET ATI | LE RN AE WP fT 


mers: 


em ee Ra ce Dae ee ney tia eh cnn ae at el nan I ads dit Sarina fia Rin ME ORR IS 


ee te a el a 
——- a Rr aT ret AP meron Nar No 8 


ee Se ee BD tea 


i (TO $48) 
#2$tG 

START 

3SGRT BY NANE 
LDA #6 

STA YLIM 

LD #6 

JS& SORT 

SORT BY ADDRESS 
LDA #8 


STA ‘YLIM 
LOK #2. 
JSR SORT 
BRK 

BRE. 


SUBROUTINES 

SUR T LDA RSYAL 

STA CHTLO 

LOA NS'YHHT 

STH CHTHI 

SRTi JSE SETADR 

SET2 LDR THE, & 

STA vd 

LOA STAB+4. K 

STAR YS 

; JUME COVER 

IMF COMPAR 

amt + of 

j; COMPARE CHAR, ma 

j gaits CHA i 
NEST LIKE. 

IF ACE. "REET LIKE 

IF ASB: SAP. 

3 IF A=B. NEXT CHAR, 

COMPAR LD v4 

LDA “ADL. ¥ 

LOY Ye 

CHF CADLOGS. ¥ 

BCE WHELIWE 

BNE SWAP 

INC Yd 

INt v2 

LDA. 4 

CMP YLIN 

BHE COMPAR 

SWAP LOA #& 

STA 4 

Lhe #8 ° 


SA-2p 


ee Smee ee 


STA '¥2 ~ 


SWRA LEY YA 
LGA £ADL GD. 4 
FA 

LDY ‘2 


ce ae erred rae 


ae CADLOD, ¥ 
bee 
STA CADLG). ¥ 


“LD Yo 


STA “ADLOS, ¥ 

INC 4 

INC YD 

LDA 4 

CNP #5 

BNE SPL 

NXLINE JSR INCACR 
BHE SkT2 

ij BECRENERT 

; LOOP COUNT 


SEC 

LOA CHILO 

Un 1p ai 4 
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Tm mei 

Sim unmiLu 
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JIS QOUTALL 
FRHTS LBA CAROLS, 
Ji: HUNA 
in‘? 

Cry #5 

BHE FRAT 
JSR CREK 
TXA 

BNE FIN 

JSR TNEACR 
BNE PRNTl 
CEX 

ENE PRAT I 
FIN JS8 GAP 
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RTS 

SETADR LDA STLO 
STA ADLO 

LDA STHI 

STA ADHI 

RTS 


THOABR CLE 
LDA ABLO 
ARC #8 

STA ABLG 
BCE #+4 
INC ADHI 
LDA AGHI 
CMF ERHI 
BHE iNAA ‘ 
LEA AGL 


GAP LDw #23 
GFi JSR CLR 
LDA ##26 
JSF QUTALL 
H5F CROCK 
DES 

BNE GPL 
LAST RTS 


END 
Fig. 2: Assembly Listing, 
Sorter/Printer 
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END 
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Dual Sort 
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AGHI HGS 
AGLO HBEZ 
CLE EBS4 
CHTHI @bed 
CHILE. ebb 
COMPAR BSE 
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ERHI HES 
ERLG WGSC 
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INAX GER 


INCADR BEDS 


LAST 
NSVHMHI 
NSYHLO 
NUE 
NXLINE 
GUTALL 
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SETADR 
SORT 
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STHI 
STLO 
SWAP 
SHP4 
Yt 

"2 
YLIM 
YTAB 


CHTLO 


CNTHI 
ADLC 
ADH] 
v4 


an TM 
VTAB 
NS'YHHI 
HEVNLG 
START 
SORT 
SRT 
SET 
STLG 
STHI 
ERLE 
EtitHI 
CORPAR 
SHARP 
SHP A 
ARALIWE 
PERT 
FRLA 
FRENTZ 
PRR T= 


SETADR 


INCAER 
THA 
GAP 
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QGFE 
WEE 
648C 
ER46 
B4O7S 
ESRC 
HO35 
BUS6 
BRAS 
BOBS 
Bacc 
8624 
BG2C 
G@LF 
HE16 
4636 
BGSA 
8454 
BaSC 
Gb&G4 
$605 
6666 
666? 


pane 
oab4 
GBH? 
GG82 
gaad 
GG05 
e066 


Mai tai Mar Mae Ce Ct Oe ° 


fed bat deb bed Pea Pelt [ace be* Cha ae S 


DSN em) CEL Se Gt ce me ee 
SO eT ce 


aeS4 
RASC 
ha7e 
HAI 
BOSE 
GOR5 
ag 


rixk 
> 

™ on 
7) 


GED5 
@GER 
@GEB 


fy te a a ee eine Pe ee ae 


Fig. 4: 


a a 2, ee ae oe ee eee Ce See Nero ee amet mate Og Sai ea a ed 


BGED 
GGFR 
ESBC 
EAZ4 
ERAG 
EB44 


Source Listing, 


Block—Move Program 


i COP 


PUT START 
Birick IN 


"END", 
DESTINAT 
MT Ch. 


ATE i) 


Ct oD 


st 
Fi 
4 


% “TI s PY te 
(9 Cat c 


Woon mm 


oe ee 
FRHI 
Poe oe ee 
ENLO 
oe 
ENHI 
As 1 
TOLO 
eet 1 
TOHI 


iMAIN PRO! 
#2 $200 
START 

i INCREMENT 
IHC ENLO 
BHE #+4 
THC ENHI 
LD #8 
NGOVE 


LDA CFRLO3; 
STA *«TOLG>. 


SINCKEMENT 


INC FRLO 
BNE «+4 
JHC FRHI 

; INCREMENT 
INC TOLO 
BNE *«+4 


3 

i CORFIES AH 
j Saar ae 
Hoe Se 

3 

3; BEFGEE 


yr lee 


BERGE 


ea 


1 GF 
NFROM", 


EHD GF BLOCK IN 
AND 


FIRST 
Ian IN 


at 


ORAM 


"EHD 


iJ 


£ 


"FROM™ 


Ca Ba 


EAPO AE eS RI EE EY 


nC TOMI 

; CHECK IF DONE 

SEC 

LDA FRLO 

SBC ENLO 

LDA FRHI 

SBC ENHT 

Bcc MOY 

;ALL GONE 

BRK 

LAST 

BRE 

END 

Fig. §: Assembly Listing, 
Bleck—Fiove Program 


; COPIES AN?-S1e2 
: BLOCK GF NERGEY 
; TO ANYSFLACE IN 


*%, 


beet ET 
“oa 
en 
at 
“I 
= 


. Popp. T 
3 GEST 4 aa i 


i 5 Os 


"END" 


;EQUATE LIST 
== Gh 

ea EAR 
==GGGU FRLG 
=H Be 

awoke fh 


ot ta 
fs) 1 
ie 
“Th 
ew 
a 
Nee 


it 
iE 
Gr 


1 tat 


a 
a oe 


ft 

i 
Cot Cy 
CG 


Tea Po 


i 
i? 


seGGG2 EN 
==G0G3 


"t 
8 
mt 
La 
rt 
a 
= 
r- 
mM 


i 
tl 
La) 
eit 
Cr 
te 


pean: 
Spm npemnaee ye ee ty ae TOUS rea SOP I Tennent 


cepa ceed Rett RAL conti cet ete Leh ate nah Eakangtn ein n a a ss aiiaae 2 


s=Q8eG8 START 
sINCRENENT "ERD" 
EeGe TNC ERLO 
RAGS BHE #+4 

Foas IWC ENH] 
ARGH LOY #68 
a2GiGe WOVE 

Bisse LDA CFRLOG. ¥ 
3164 STA CTOLO.. ¥ 
; INCREMENT “FROM” 
Eeai INC FRLO 
base BHE ++4 


EGWi INC FRHI 
HCREMENT *76" 


nmonm~ 
1 Of: Mar €Ty 


Tl hee 
Axe ee 
ot 097 
= a. 
cs fT} 
— 
tm 
sa 
~— 


| at) }-* 
Pe OO 


a 


5c IF 

cas: SE 

ASH LOA FRLO 

ES&2 SEC ENLG 

ASad LDA FRHI 

ES&S SEC EHH 
iL 


MOVE 


tw 
ar) 
ny 
mn 
™m 

t 


5 


3; ALL DONE 
fb BRE 
a=efized LAST 
68 BRK 
ENT 
FRRORS= 5G 
Fig. G: Bicck— Move, 
and Hex Dump 


isassembled 





Sa a es “Pa 
aeee 
t ee 
#268 ES THE &2 
Broo DS gNE 8286 
B84 £6 IHC BS 
Asoe AG LDY Feu 
BeG5 BL LOA (Bio. 7 
G20A S21 STA Cede. Y 
8250 £6 INC @& 
@20E Be ENE 222 
B2iG@ EG IRC BL 
riz Ee ino B4 
Biid fa BNE Geis 
@2te Eé INC OS 
@eie 29 SEC 
6219 AS LOR Be 
B2ib ES SEC G2 
@2ibh RS LDA i 
@2iF ES SBC Os 
G21 36 BCC 826e 
7 
OR ee UN A tO Im eer cee Ey RE oe 


a ee Sys i ee ees eee eee : 
i ena it ing wt et Lae Aa ae I a a am A elt Bath on 


BSE= 8B BRE. 
Bord BE PEK 


fM2=B2GG Ee G2 be we 
£ > @264 £6 GS AG BG 
¢ $288 BL @a S41 G4 
{> @26C £4 G6 DG a2 
€é > @BiS £4 @1 ES 84 
¢é= GSi4 04 62 £5 G5 
€ > SiS 7o AR Be ES 
¢ > @240 62 AS Bi ES 
¢ > @228 G2 94 ES Ge 
{o> @224 66 45 40 4F 


Author’s note: | was mistaken in thinking 
that memory locations 003C, 003D con- 
tain the address of the last symbol 
found during assembly. instead, they 
contain the address of the last active 
symbol. With straightforward code, 
these will be the same. But suppose you 
have written your last subroutine (let's 
call it SUBZ) and then decide to initialize 
a couple of zero-page addresses (start- 
ing at ZP1) as in Figure A. After 
assembly, the last symbol will be SUBZ, 
but the last active symbol will be ZP1. 
And with this stored in 003C, 003D, you 
will get a very shori listing! 


The problem could be solved by re- 
writing the program to avoid using 003C, 
003D. But, there’s a simpler solution, as 
shown in Figure B. Add a new symbol, 
LAST, as the last byie of the program. 
(This is a good practice anyway. After 
assembly, the address of LAST tells you 
precisely how much memory the pro- 
gram needs.) Then, after initialization 
and any other housekeeping, add the 
line ‘“*=LAST”’. This makes ‘‘last 
active’ equal “LAST”, and the listing 
comes out complete. 


SUBZ 
RTS 


* =ZP1 


Dy goaog Figure A: 


? 


.END Wrong “Last Active” 
SUBZ 


LAST ATS 


*=ZP1 
DBY $0A0B 


‘k= LAST Figure B: 


END Right “Last Active” 


RR NER EL EMME OT DT Gt RED NAP ETT NE FT * 


lawman te nana a ee nk mee mee ete Ream ne RFE AM ate mee Te etal a inte nT tO TY os Nita Ai Enna Raa Ra Shenae NEST alanine 6 ne enn mpd laa tl ll iad in hep nett tart aE Ne tid “2. 
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If you know the proper tricks, a Perpetual Calander is 
quite eesy to program. Here itis presented for the AIM 65. Mot Evans 

In addition to being an interesting demonstration, it 1027 Redeemer 
points out a few programming tricks required when using en Roe te 
integer numbers in BASIC. | 





PRR 6 


ar calr . ere : “How about that! It got February right. 
Another calendar printer? Yes, but with Bete Century years aren't normally leap years, 


a couple of new twists. First, tt puts out to Se apie ere cs P 
the AltA printer, So the fave tine so- Hoi) MANY MONTHE? 2 a every fourth century Is, and there It 
Ss. 


moone asks, “Okay, but what canitac NOHTH #7 42 aoe : 
tually do?,” you can give him an answer egos 4444 Right. Want a calendar of this month, 
he can put in his pocket and take home rear: gira ah sa Ns te ids 


THT qs. 
1 

WW 
= 


with him. “ge +f oe -, ook 
ee DERET fod dk February. Why do alt calendars end at 
Cae Cr a 
Second, it has a butlt-in perpetual = 14 7 id T F ba acrutergueen at nieene won't” 
calande; algorithm that finds ine starting 4 ¢ 2 4 5 6 ELiey ’ $ . 
day-of-the-we.ck for any month of any year = ~ =, * ~ viel 
ie ie ; 7 i 4 4 a4 - da mi ob pe on FF 
from 1583 AY (ihe start of the Gregorian) Dt au it Le is Hol MANS HONTHS? 3 
calencz) to S8cqge99 AD (or untiiwe 2 4 S16 47 18 13 2h FIRST MO HTH #7 4 4 
+ changs the calenuar, or unttl foe world ee ae a3 oe S 3g es ro WE Me 4G 
ends, whichever comes first.) The wm ag ta a4 one y Bernice ee 
algoriihin is fairly simple, but the results =" &~ aed wae COO TORE LSP tee 
7 iu ac . ‘< ” mee ere =? ror. =_ lbw meee 
can be impressive. For example: So December 7th was a Sunday. Ba ae ‘ 
“Hey, that’s right! Okay, print me the Ss WH oT «sw T F 2 
Ril start of year 2000." + 2 mS t a 5 
Lhr;- re ae 2 oe i yen = Pat et aot 7 “| A °%% 
Hi HANS HONTHE?- ad Riie r 8 & 46 44 Te 23 
aif et t aa 7 bord - mor: om opm "7 4 ac rae a“ 4c 4° aan 
HGNTH #2 3 Hite MANY HONTHS? 2 4425 36 37 1s 47 se 
$I mere oh eg ae = - wn Pra! coer] “On “nt ” “Aa “~~ “> 
VERRY 2778 ETS aT MONTH #7? 2 e4 ef 23 24 25 fo ce 
ere 7 me et oa eh a Be omar wr “7. 
WERE SY 2H 26 23 28 a1 
Siciade- aoe tack TARUARY 268 does te NOVEMBER LOPS back 
wa aE ELLs a Sa 2 4 ! cr o6U€e = 7 c 
eeu, tas a Se Pe oto ope = oe CS = Wf JT wW %T FF & 
= w! ‘ 1 T F = 4 4 oa] = 
4 os % 4 § & ewe ee nt = Se 
we Poa a a bie) “4 rs i = = ae 4 Cc “~ ~— an my 4% 
7 my qQ 4 i 4 4 4 “~ 47 = _ “t ! 5 ? ond t - a) t a a 48 
os oF ite ab te ae QA 44 45 4% 44 45 44 45 4% 44 46 46 47 
wee 40 4 5 17 40 49 Pa kel Vo = eee 14 om o a ae a id oe? 16 mae 
fe etal AN pet i _ a ay As : Te pa) 4 7 4 “3 -# ae 1" ya ee ee a ha sy rae 
Be Oe ah oe SE oR 26 a7 A Ls ahh en ce 46 13 26 gi 22 22 24 
eee ee, Be en Po cago: Carey 2 aS 25 26 7 26 29 26 
2a 23 2H fi <i 74 ON eae. Tee 
So are #4 fFECENMEBER 4 Qe abs 
“So, Independence Day happened ona aa FOODIGDL Sono ae = PELE ue er: Lars id 
Thursday.” th FEBRUAR S SHE bebe = i i bf T F 2 
“You mean it (gured out ali those leap =, WOT ti T F — 4 
years clear back to 1776?” 4 a cs, 4 c, ms ~ 4 rc Pe = mn 
“Well, the equivalent of that, yes.” a ee ee x 44 4 i* er ae fe OO ee ge i Bee 
“How do | know It’s right?” 2 a ge en A 9 3G 44 42 13 14 15 
“You don’t.” 4344 45 de i? if if 46 i7 128 13 26 241 #2 
“Okay, print me December, 1941. $ oy 74 OS OF Sd BR OBE ao OA OR SE IT Te 4g 
know what day Pearl Harbor happened Bete ee Boa, vey Seo er ter ee ee et ee 
on,” a : Ha 2 ‘At ea) 2 q 
18 
dace ng gmcmne gene semery, weer dn RL TROTTED Tiemaegey pbs oo oT Tame, Se IO OT EIN NE EE AE SOT ET RE Se Te a ee ee 


a te pene a A NH ARADO EG IS MS MEME cl AER ERENT NEE DENY PIES OL I PLE tei ot iL CBN. ETE Lal RR Rae Te tenia ene 


ate 


reg Fe RR are, SE 


Senet Te tate remem ate ttm 


Sistah and Cuma 
eat TANTARY fac fae 
= MH J 4b } F oS 
“4 ex) a 4 Cc 
— s. = “ 
ra — at mt a ae a, 
cad ; S 49 48 it 4: 
~~ 2 4 £6 #7 aT at At 
4° eames ee ee 43 Le eS 
car a a Se has ie, aS 
2uUo 2b 22 25> 24 22 2h 
a3 0m oo 7G 4 
am 2 —_—- — ~~ ame then 
ohe «fe — ry eee as 3 i a Pos ca yr aie 
wo FEERUAR Looe es 
c j a 
© f€ TT wh YT F & 
Bi “1 
aan — 
“ * = - tor] eC bral 
2 > e: ‘ o = 
am 44 €9 AM 24 AD AS 
We 2. coe aS Ae ee oe. 
x er Se, ed “OTe Ca ies ee ee 
$7 38 235 Be fi ee 2: 
car | - Cal Coa ae ot “2 
S45 fea fF ge a8 


The day-of-thewsek algorithm ap- 
peared in CYTE (Day of Week and Eleps- 
ed Time Programs,” W. 8. Agocs, BYTE, 
Septembsr, 1979, p. 126}. | tcxd it, 
thought “Thz.'s nvat,” and forgot il. Tren 
a calendar printing progearn for Telatype 
came out in KEchsud (‘Calendar Pro- 
gram," Stevo Takias, Bohs iicreeion 
puiiag, Octobar 1879, p. 102). Can tie 
AIM do thet on its printer? Sure it can! 
Can i build in thai day-of-week algorithm 
$0 that it dossn’t moed starting instruc- 
tions? Sure | cant The resuliing AMM 
BASIC program is listed in Figure 7. 





The starting doy-ofweek algorithm is 
in lines €5 through 159. It uses “Zeiter’s 
congruencs,” as explained in Agoo’s arti- 
cle. Zatlor first dees some jugging of 
month and year numbers before geiting 
down 19 the riain comnutation of the cay- 
of-weck (variable DW in lite 159). 


The clgoriam packs more power than} 
needed hare: it works for any year, month, 
and dey-ot-nonth (day-of-monih is 
variable DM in line 120). Since lonly need- 
ed the beginning day-of-week of each 
month to be printed, | set OM = 1 in tine 
129. Ta restore the algorithm te ifs full 
power, just dalete that one staioment, 
and use Dil as an input. 


Aitd BASIC (like most BASICS) do2s not 
allow much format flaxibility in printing 
numbers, so to squceze those date-lines 
onto the 2G-column printer, a siving 
variabic, 3, is used to build each line 
betore printing. LS is first nutied fe.g,, line 
290), and ic then built up, character by 
characier, 25 in line 250: 

LS=L$ + CHRS(45 + D2) 


This statement adds 22, the second 
(units) digit of a two-digit date numbe:, to 
line L$. As sinown in Appendix E of tne 

AIM BASIC manual, CHAT(48) is ASCH 
“O" (zora, and the other diolis follow. So, 
if D2 =5, say, ASCH “5” is added to the 
string. After the Jast character has been 
added, the tine te printed (e.g., line 360}. 


ee ne SOR OO RE eee eee ee Ee 


Te ce Neem GTS Raat eo tes reameate  abeam  toae 


if you area fussy about format, the 
above technique gives you total control 
over eact: column of cach tine. If numbers 
don't piint to suit you, don’t print 
numbers, print characters. 


AIM BASIC has one quirk which | 
haven't noticed in others (but If you're 
running a diffarent BASIC, you might like 
to chack it out). If X evaluates internally 
as jess than an integer, but is sufficlontly 
closa to that integer, it wilt print as the In- 
teger, but INTO) will truncate down to the 
next-lower integer; @.g., if 
X= 4.99S38...,you get: 

PRINT X 
5 

PRINT INT (X} 
4 


Don't batiave it? Try this: 





12755 
tn 
ane 
at 
au 
oe 
ee 
co ce ad 
~—= ma -_ rt 
cae a an 4j°T PEAS ee Fi 4 e t 
mit rie Ti Ne aed $4 é 
HT ovce"®; THT OH 
: gis ae ¢ 1 
"3 fp “oe § fe 
PM ERG 
Rut 
Pe Tei fe my i 
ioe af a re i : es ! coma J 


To prevent this from happening, add a 
dab to X before doing INT(X). How much 
is a dab? Anything less than the smallest 
mearingful increment in X. The first equa- 
tion in ine 258, for exammipia, is computing 
the century from the year. 

C = INTAV/100 + .005) 


If year Y increases by 1, Y/100 in- 
creases by .01, sa the added dab is half 
ihat. This assures that it will work for the 
year 2000, and is smali enough so it will 
also work for 1999. 


Another example is on Line 262: 
INT(YCi4 + 1}. 


When YC increments by one, ¥C/4 in- 
creases by .25, and the added dab is less 
than half that. The previous .005 would 
work fine here, too, but .1 costs fewer 
bytes. 


A final note of minor interest. Line 80 
sends two line-feeds to the printer before 
starting the calendar, and line 430 sends 
it five line-feeds, so you can tear off the 
finished calendar without having to pump 
th “LF” key. And PRINT TAS (100) is sure 
neater than a string of five PRINT 
statements, isn't it? 
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ee a. ea Cs 


blest 
4 FE 
S PEt PERPETUAL - 
CALENDAR PRINTER 
5 Fett 
4@ CIM Atdeo, RFtLeS? 
ee FOR i=i TO 12°F 
AG ow TO ONERT 2 
Ee FOR Tat TO Le:Re 
AG &$e Ts MEST 7 
$& THEUT "HOW MANY 
MONTHS “3 4 
S@ IF Het THEN INP 
"HORTH #°5 5 


NoTREL 
#7 GM 


= 
ust 
— 
ae 


a! 
Maat 


=r Ps ot 


+ 
io 
“TY 
“TT be bee bee 
a ATI 
| 
-- 
eden ee 
mr ft 





HH 
r on 
= j 
— matgyB te. UT 
ris THUS ERR": 
iat YeiT rae Oe 
BG PRINT TRE C4h3 
— *, rer a ee ee 
S52 REM TORVERT Fb 
mee; ee 4m ei Ths a a a 2 
SELLER MONTH & Tork 
Th Maemo. Yoo 
oe beet a. Pee 
i se Tr Rie 4 Tit ee [rr 
oe Sh iF i one Pyare Ca aad 
4 4 ~ Fo ee 
> me - leat Ded 
4am TE tet Tht HFS 
438 TF f=. TREN Mes 
re 
he. ti i™ a 
445 "EN FING 
START INE rs en en 
wm 8b bee 8 oe Eee ev ta@e =: Fs oe be 
404 CFethT eR A_ ape 
te hm = a” hee a! 2? > ms ae “on” Ome : 
“spar *. FA foe eae aS 4 oft ge Os Pita 
BES Toe Tee ee. 
Oe Cee we eer Ps ons 
—_——_— -' _— ~*~ I 2 — - a j—_ 
ty 4elhieeu sy 
ah ~" 7 me be 2 he 
44% Tp taad -THT YS eae 
ale = -~ — i» wf a2 ttt a 
44 Tile edt, tre ael 
“ ' 
456 GW=D4-PeINTeot 
P+ G4 34 
4c vA beneearid Aa iT 2 oe 
155 FEM FRINT RERDc 
Tt 
[ar 
47 i mt s, 
cern) be ac ~- rr 
we ts rows 
PNT OF; 
47% PE T 
te om 4 i 
fc 
= BE ook syG tot. * Lae i var oT 
47% REM BUILE FIRS 
eh ri TPS u fr. THE 
PATE-LINE & FREIMI 
ete i am It ai Oa | at : eons py 
Lau Le= Ciethi-. o 
455 FOR j=, Ta F 
oar ae fT ee oe f A 
Bae Gysi-DW+d 
a ee TT; THEY - 
Sia iF J<ft THEN Ls 
ost « hi is 
=| $+ 
al oat i “Ty 4 TI 2 t 4 
frag TF Jott THEN L# 
-_—i i _ > 5. ea rare 
= logy’ dt HE FS atti 1 
Wem Tr Toe i 
cath ar oa4um. oo TREK i 
fai oF i ti 
$= g+ 


SOLS mE te OT ee ere tL Ange oS ETRE OT TOR ore tant 


wae PNR UT ect art Seal ak a Oia, ta atl Ne tal a tere eae GRD Se $a es A ASE ll A ans Aum De 


we re ey I | 
SEE A A ee = 


eam HEXT I 

San FRIWNT LS 

555 REM CHECK FOR 

LERF-'TEAR 

soo CeInTiy/ihe+ oe 
Bs Cae A BGel 

Zou Ae IR eS 

O62 1F Yhade INT Orce 
4+ 45 THEN Ag Ss I=L5 
264 1F YO. 5 THEN A 
KB3525 

eva iF Wee. 5 AD os 
4a THTOC 4+. 13 THEN A 
C2 3223 

ere REM BUILD 
REMAINING PATE-LINES 

ANG FRING 

Zea EN=G 

rae pg="" 

GG FOR Tai TO Ff 


ata ctor wm weet Bae NES gee emt AN arabe ae Bia et aE te ar a oh Leah nm a ie cna ale bet iri ain etna cna a aT Gor 


346 GT=OT4+2:1F DTA 
CMr+ 5S THE ce 1807 
GO 256 

32 PASINTEDT 40+. 
hu fe=p7T-La4api 

220 IF Die. & THEN -L 
$i $4" ti 
zd IF D4>.% THEN © 
$2LF+0t REC of acent: 1 
358 Lea LE+CHRS! C4$o+0 
e) 

368 IF 726.5 THEN & 
$ol t+ i“ 

275 NEXT 
2a PRINT LE 
zag JF ENS. S THEM c 
bs) 

49 PRINT’ 

445 REM DC AGAIN 


FOR NEST MUNTH 


a RN tk aR dre Oe ay ate iii Arad Yam 
a ry tt=!4 a IF t4~ 4 = 
5 : 
428 =! +i: whe. « 


THEN Mei: et'+d 
420 N=N-1:1F ND. 5 


onsd 


HEN 38 
4274 PEINT TABCLG8) 
428 END 
454 REM DATA: RONTH 
LENGTHS AND HANES 
464 DATE 31,28. 24:3 
St 3G Sia Sis sU: Shs 
cas remeee 
478 DATA +e4 JANUAR 
i, 4# FEB AR aka MY 
CH 
420 DATR #hee APRIL 
aodokck | AY! Pe So oa oi 3 
JUNE 
458 GATA sada TULY 
waka RLIGUET, + SEPT 
EMSER 
Sah DATE wee OCTOBRE 
Bet NOVEMBER, # DEL 
EMSER 








This HEX sui utility sarnilis the user to control the 
formatting of the dump to conform to his printer's 
capabilities. 





The Durap routine in the AIM 65 
Monitor produces a continuous character 
string and thus is not very readable. The 
dump format is essentially not fit for 
human consumption. The serious AIM 65 
user who needs a memory dump is thus 
limited to using the Monitor “M" com- 
mand, which only dumps four locations 
at a time. A more useful and efficient 
dump soutine with a variable output for- 
mat was needed by the author and thus 
the following program was written. 


ee ce ee oh. aie 


cone wasn cate mes 


The Formatted Dump routine will dump 
memory over the range specified in 
response to the “FROM=" and “TO=” 
parameters. The number of bytes in each 
line of the dump is specified in response 
to “/". Alf input and output is in hex- 
idecimai. Each line of the dump gives the 
starting address of the first byte in the 
line; a space, 1st byte, space, 2nd byte, 
etc. The standard AIM-65 printer will han- 
die $05 bytes per line and an 80 colurnn 
TTY type unit will handle up to $16 (22} 


OO I aia ART Ra Eo UST DIN EN 


W.E. Wilsen 
Washungton State U. 
Pulimsen, WA $3164 


bytes per line. 


The dump routine makes extensive use 
of the routines in the AIM-65 Monitor as 
well as RAM locations reserved for the 
Monitor. No locations outside of the 
Monitor area, except for the dump routine 
itself, are used by the dump routine. Thus 
the dump routine may be located at any 
convenient place in RAM and will not af- 
fect any other software. The following 
dumps demonstrate the use of the 
routine. 


SE RE TE D8 Se eR 


% 
H 





wen pane enthe adams EE SR 


see A les Aleve ne AT ne fe me 


AIM-65 MCHITOR ROUTINES USED IN 
DUMP PROGRAH 


E7A3 = Print “FROM =" and get address 
In SA41C/D. 


ES3E = Print“ " (blank). 


£910 = Move address from $A41C/D to 
SA41AB. 


ETAT = Print “‘TO=”" and get addruss in 
A4iCID. 


E837 = Print “/’. 


E785 = Get two hax digits and store in 


A419. 
FA1I3 = Print “CRLF”. 


EA46 = Print one hex byte = Two ASCH _ 
characters. 


EB58 = LDAY - Simulates LDA (N), ¥ 
without page 0. 


E182 = AIM-G5 Monitor Re-entry. 
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A Formeatied Dump Routine for the 
AIM-65 
List 1 
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Here is a valuable program for any AIM user. While it wiil 
be of most interest to a HAM radio buff, the techniques 
which include tho use of timers, interrupts, table lookups, 
and so ferth should be instructive to everyone. 
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1, FEATURES: 


A. 


H. 


Send Morse code using the AIM 65 
keyboard. A 256 character buffer 
permits typing ahead. 


Send pre-loaded Morse code 
messages. Three messages total- 
ing 256 characters can be sent. 


A simple interface circuit allows 
the program to operate as an elec- 
tronic keyer. 


Code speed in words per minute is 
entered on the keyboard and 
displayed on the AIM 65 display 


Conirol of the entire program is 
from the keyboard. 


A single integrated circuit pro- 
vides the interface for receiving 
. Morse code. 


The received code is converted to 
alphanumeric characters on the 
All 65 display, and is scrolied left 
as the code is received. 


Code speed is adjustable from 5 to 
89 wom. 


ll. GPERATING INSTRUCTIONS 


The 


following paragraphs serve as an 


operating guide for the pregram. 


I oe a PO 





. Load the program given in the listings 
and construct the interface circuits 
shown in Figures 1 and 2. The cross- 
coupled NAND gaie interface in 
Figure 1 ts not needed if you do not 
operate the program as a paddle-type 
electronic keyer. Set the P register to 
zero before starting the program. 


. Execution begins at address $0500. 
After initializing the program, three 
messages (called A, B and C) rnay be 
entered frorn the AIM 65 keyboard. As 
messages are entered they will ap- 
pear on the display, and they will be 
recorded by the thermal printer if the 
printer is on. lf a mistake is made, 
pressing the DEL key will clear the 
character and a new character may be 
entered. The RETURN key is pressed 
when a message is complete. An ex: 
ample of a message is ‘‘ CQ CQ CQ 
DE KOE! KOEI K.”" Message A is the 
first one entered, message C is the 
last. The sum of the characters in- 
cluding spaces cannot exceed 256. 
Pressing the RETURN key at the end 
of the third message causes tie pro- 
gram to proceed to the keyboard-send 
mode. If you do not have any 
messages to place in memory, hit the 
space bar and the RETURN key three 
times in succession to enter the 
keyboard-send mode. 


22 


Fe eR AT RT Ee ETE IE me SRT ey eR oe 


Vorse Code send/Receive 


Marvin L. DeJong 
Dept. of Math & Physics 
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C. In the keyboard-send mode, pressing 


a key will cause the corresponding 
Morse character to be sent, while 
pressing a control key will cause the 
correspending control operation 
{described below) to be carried out. 
The keyer will also operate at ihis 
time if you wish to use the keyer 
rather than the keyboard. 


. The first thing you will want to do in 


the keyboard-send mode is set the 
code speed. Press the CTRL key: and, 
while holding down the CTRL key, 
press the S key ($ is for “speed”), 
Release these keys and then enter the 
code speed at which you wish to 
operate. The two-digit decimal 
number should appear at the far Jeft 
of the display. 


. Pressing CTRL A, B, or C will cause 


the corresponding message to be 
sent. Any set of spaces in any of the 
messages may be interrupted by the 
keyer (to fill in an RST report, for ex- 
ample), but they will not be inter- 
rupted by keyboard eniries other than 
control functions. 


. Morse cede may be sent from the 


keyboard by typing the characters. 
They appear on the display as they 
are typed, and they disappear from 
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the display when they are sent. You 
can type ahead of tha Morse code be- 
ing sent by filling a 256 character buf- 
fer. (No warning is given for a full buf- 
fer becatise, in my experience, you 
rarely get 256 characters ahead.) If 
while sending Morse code with the 
keyboard you find that you have made 
a mistake, perish ihe thought, a delete 
function has thoughtfuily been provid- 
ed. Use the DEL key to try to get to the 
mistake before the send program gets 
to the character (this can be challeng- 
ing at high code speeds or with slow 
fingers). Also, if you delete when there 
are no characters feft to delete, you 
will get the contents of the entire buf- 
fer. Hit the RETURN key if this hap- 
pens. RETURN starts the entire pro- 
gram over. 


. The RETURN key serves as a panic 


button. it will restart tie program 
when you are in the keyboard-mode. tt 
can get you out of desparate situa- 
tions. The RETURN key followed by 
the Fi key puts you right back in the 
keyboard-send mode without affec- 
ting the messages A, B, and C. 


.The speed can be changed at any 


time, even in the middie of a message 
or when the send buffer has 
characters left 1o be sent. However, 
the CTRL S interrupts the program un- 
til the two-digit nurnber is entered; so 
if you are in the middie of a dot or 
dash, the transmitter wiil remain on 
unti! you finish entering tna speed. At 
ihat time the code element, the 
character, and the remaining mes- 
saga wit be sent at the new speed. 


. if you wish to preload the buffer while 


the “other guy” is sending, you can 
press CTRL L (i. is for “load"), Tha pro- 
gram looes while you load the buffer. 


_ CTRL K returns the program from the 


load loop (er the receive mode) to start 
sending the code in the buffer. CTRL 
K always sends the program back to 
the keyboard-send mode, disabling 
the CTRL | mode and the receive 
mode. 


. CTRL R sends the program to receive 


cede. The program wili copy code over 
a wide range of code speeds, so ad- 
justments in the code speed are infre- 
quent. Howaver, if you want to be 
“vight on,” the leftmost digit of the 
speed display sill blink if your speed 
is too tast, while the right-most digit 
will biink if your speed is too slow. 
Blinking digits are produced by 
measuring the incoming dot length. 
Variations in the dot fength of the in- 
coming code mzy cause both digits to 
blink. Then you are “right on!” Noise 
spikes aro typically regarded as ex- 
cessivaly short dots and will cause 
the left-most digit to blink. 
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Figure 1: Interface Circuit for the Keyer. Some 
transmitters will require a relay for keying. This in- 
terface circuit may be omitted if you do not wish to 


opcrate in the keyer mode. 


Do not spend a lot of time trying to 
zero-in on someone's code speed. The 
finite resolution of the speed settings 
prevent a measurement that is more 
accurate than ahout 2 wpm. Varia- 
tions in the weight ratio and other per- 
sonal characteristics of sending will 
also affect the actual speed. The 
code-specd measurement will be ac- 
curate for machine-sent code, from 
W1AW or another AIM 65 for example. 
The received code will appear on the 
AIM 65 display moving from right to 
left. A too-high speed setting is better 
than too fow. 


The bandwidth of the interface circuit, 


AUDIO 
INPUT 


0.47 


an LM5$7 tone decoder, is narrow, so 
tuning is delicate. Watch the LED out- 
put carefully until it blinks in syn- 
cronism with the incoming code. 
Practice copying WtAW broadcasts 
until you become familiar with the 
operating of the receive mode. 
Remember that an AIM 65 and an 
LM567 are somewhat less powerful 
than the human mind and the ear 
when copying faint signals in the 
presence of noise. 


. You can return from the receive mode 


to the keyboard-send mode by the 
CTRL K operation. 





Figure 2: Interface Circuit for the Receive Mode. The 
5K potentiomoter is adjusted to correspond to the 
center frequency of the CW note. The signal is 
tuned with the recelver until the LED flashes in 
unison with the code being received. 
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TABLE I. Routine Location Table. 





LOCATIONS 


$200 - $C2FF 
$0300 - $03FF 


$Q420 - $0450 

$0480 - $Q,D7 
$O,F3 

$0500 ~ $0561, 


$0565 ~» $0582 


$0583 - $058E 


$058F — SO5A2 
and 
SOSFL ~ $O5F9 


$05A3 - $O05F3 


$0600 -— $065F 
and 
$O9A7 ~ $0907 
$0660 - $0571 
$0672 — $068, 
$0685 — SO69A 
$069B ~ $OSA5 


$O6AG - $O6BF 


$06CO = $06E5 
SO6E5 — SOGED 
and 


$0904. -- £0946 


Es tore ee ee 


FUNCTION 


Messages A, B, and C are stored in these locations. 
Keyboard buffer. Holds up to 256 characters so you can 
type ahead. 

ASCII to Morse Code Conversion Table 

Morse Code to ASCII Conversion Table 

Conversion of comma (,) in Morse Code to ASCII, 

Routine to initialize certain registers and input the 
three messages with the keyboard. 

Set up interrupt vector and start servicing the keyboard 
on an interrupt basis. 

Initialize the keyboard buffer meinory locations. 
Keyboard wait loop. Program waits here until a keyboard 
entry has been made to the buffer. When such an entry 
is made, the program sends the character. 

Subroutine SEYD, Contains subroutine DOT at $05CB, 
subroutine DASH at $0O5E,, and subpogiine TIMER at $O5E9. 
Subroutine KEYBOARD. This subroutine is part of the 
interrupt routine that scans the keyboard. If a key has 
been depressed, it stores the ASCII character in the 
buffer, unless it is a control character. If it is a 
eontrol character, the appropriate control function is 
implemented, For example, Control R sends the program 
to the réceive routine. 

Subroutine DISPLAY. Used to display characters on the 
AIM 65 display. 

Subroutine MODIFY. Used to shift the elements in the 
display buffer to the left. 

Subroutine BACKSPACE. Used to shift the elements in 
the display buffer to the right, entering a blank (space) 
for a deleted character. 

Subroutine CLEAR, Used to clear the display buffer. 
Subroutine NONAME., Used to clear the display location 
that contained the character just converted to Morse code. 
Interrupt routine for keyer. 


Interrupt routine to scan the keyhoard. 
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Ii. BACKGROUND 


Morse code sendireceive programs 
have appeared in several forms in the 
literature. Consult the bibliography for- 
some useful references. The routines- 
used in this program have previously 
been described by the author's articles in 
MICRO {MICRO is published by MICRO 
INK, Inc., P.O. Box 6502, Chelmsford, MA 
01824), and will not be described in detail 
here. Table 1 locates the various routines, 
and the references given in the 
bibliography will explain most of these 
routines. 


The keyboard is read on an interrupt 
basis, making extensive use of the 
monitor subroutine ONEKEY at $EDO5. 
Also, the keyboard-read routine 
duplicates the monitor subroutine 
GETKEY at $EC40, with some important 
modifications for interrupt operation. The 
Ti timer on the user 6522 is used to pro- 
duce interrupts every $8000 micro- 
seconds, at which time the keyboard is 
scanned. 


The Morse code receive algorithm 
may be summarized as follows: Define 
the presence of a tone as a mark and the 
absence of a tone as a space. The receive 
program idles in a loop unti! the leading 
edge of a mark element produces an in- 
terrupt request (fRQ). At that time, a mark- 
counter memory location is incremented 
at 1024 microsecond intervals until the 
mark is gone. During 4 space a Space- 
counter memory location is incremented. 
When the space-counter ts equal io % 
the dot length as determined by the 
speed setting, then the mark-counter 
memory location is examined to deter- 
mine if the mark was a noise pulse, a dot, 
or a dash. If the mark counter was less 
than % the dot fength, the mark is regard- 
ed as a noise pulse. tf the mark counter ts 
between % the dot length and twice the 
dot length, the mark is regarded as a dot. 
if the rnark counter exceeds twice the dot 
length, the mark is recorded as a dash. 


As soon as a decision is made about 
the mark counter, it is cleared to prepare 
it for the reception of the next Morse cede 
element. Meanwhile, the space counter is 
continually being incremented once every 
1024 microseconds. When it exceeds 
twice the dot length, the program con- 
cludes that an entire Morse character has 
been received; and the corresponding 
alphanumeric character is displayed on 
the AIM 65 display. As the space counter 
is incremented further, it reaches four 
times the dot length; at which time the 
program decides that a word space has 
been sent, and a space appears on the 
AIM 65 dispiay. At this time the space 
counter is cleared, the speed setting is 
checked to see if the operator changed 
the speed setting on the AIM 65, and the 
program returns to the wait loop to wait 
for the next mark. 
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The author is aware of receive pro- 
grams that use automatic calibration of 
tracking on the incoming code speed. 
Consult the bibliography for details. My 
own experience is one of frustration 
pecause the presence of noise and in- 
terfering signats affects the automatic 
calibration, although | have heard reports 
that Bob Kurtz's program works nicely. fn 
the present case, we have used manual 
contro! of the code speed with good 
results. Some experience and practice is 
useful. Bob Kurtz's program could be 
adapted for the AIM 65, and could also be 
adapted to work with the present send 
programs. 
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TABLE I, 


LOCATIONS 


$06EE - $073¥ 


Routine Location Table, continued. 


FUNCTION 


Interrupt routine for Morse code receive program. 


Converts decimal entry of speed to 


the number needed to load the timer. 


Used to load the timer for the receive 


Subroutine UNTITLED. Used to display the Morse code 


character that has just been decoded by the receive program. 


$0750 - $0745 ~ Control S routine. 

$O7AB ~ $07B5 ~- Subroutine TMELOAD. 
prograk. 

$0756 - $0703 ~ 

$0820 - $0901 = Receive routine. 


4. DeJong, Marvin L., “A Complete 
Morse Code Send/Receive Program 
for the KIM-1,"" MICRO, April-May [978, 
p. 7. 


5. Kurtz, Bob, “Morse Code Reader Pro- 
gram,” 6502 User Notes, No. 11, p. 9. 


6. DeJong, Marvin L, “Build the KIM 
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7. DeJong, 





Keyer,” 73, September 1979, p. 80. 


Marvin L., “An AIM 65 
Notepad,” MiCRO, September 1979, p. 
41. 


8. DeJong, Marvin L., “AIM 65 in the 


Ham Shack,” MICRO, September (979, 
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Morse Code Listings, cont'd. 
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Mores Code Listings, cont'd. 


CES eENGDS CK>e=Q6EL CEDeABF SC 

/58 /S 450 
BEES BGEL w73C 58 CLI 

BeS4 Bees B73 40 IMP BOSE 
BEES BEES a74a ER NOP 
BEET BEES B741 ER NOP 
BEES B742 ERA NOP 








fat 


BES 


WEE 


— 


ee OCR Scere ea 


po te man 


seepaeer | 


BEDE 


é 
t 


+o 
SP fe Pee RE OTT 


” 
. 


Cee a1 ee 
1 Te Oy Fs TY 


fg Wat Wyte Ay 


as, aes 
ret st CS 









is 






- 
“ 


ci} BW : 
M6 RT HH rm Rit ay 4 FR NO e 
BeSG AS LOX HEE ares a74de ER MOP 
BESo AS LOA BEFD 4 B74 ER NUP 
HEoF 90 STA BSFF Be grab ER OF 
AL A Beas : BT4dE ER HOF 
35 AT AS E 








Bees 
Beko 


BEER 


7} 
1 


PU PUE SY 
ed be OT 


“yt 


aA TAT Tt 
ty I 





Oe 
~ 






oh Te se eS 
eT eS Te ee TT 
RUy TED 


GO OK ey 


Mi ff. C2 


BP tr 


ew 


ot 
‘i a7se@ su 


mS meg med od oy yo oh hy oe 0 





Te) 






RIS 


Lae eg 


Ter 


mt fa ft. 
“th 


tt 





HOP 
via 
HOP 
HOP 
MiP 
HOF 
Hor 


er a a re I PRE A n-th ah tamer mh mle 


ste ee te tee cee cent a 


Pata 

















fe 5 
2 fi BFS? 28 
SME #412 TEE BPSA 6s 
SCS Heer Sin Feo FS 
=TH 24 AT BR TRY ES 
SEA SP RE PLA aE} 
LOM #24 HRED AA TRY mS 

2 AP ERTS = i 

Tih S. 


. 


, 
ae 


1 





os 


“Ty pT 


I fae TTY Ee oy 





1 yl 
. 
ans 
4: 





st 
ba 
pa 
i 
a 
rt 


rt 
1. 


net 
— 
— 
PA} 


eNO 
~~ 


Cr FT 
ToL ty me ety 


t". 


mG nt a A oe 


SL p Late lay tap TI 


Mm oF Po ey 
IU So Ta 






SD ar: 


MO Ti i 





ras oe 
rey ed 8 oe 





oe a 
as tt ra R 







“rm 
JOBE 


1 be 





tent CED pet to SM ND 


~ 

14 mr; mH - 
uv i fat 

re a at 
my wie i 
4 4 oc 





se 
sane 


. 
b 












eet 





a 
« 





SE OT cee oe 


“ 
- 





ee ee ee ee 
a Oo ry et 
ed Poe OS OTP TT oo et] 


cn ie ies ea) Mee Mine Siac fe 


he TTT tebe 








1S Ca ee 










. 
é 

i 

F 
rae 
F 
“3 
’ 
“3 
; 
“3 
; 
7 
f 
rae 
? 
— 















a 
‘o st re &: > a pee 8 
an 2 — 
y ~ ” no 2 DiS 
He lone al i a5 FOR 
= re tis aT se REDS faa 
mT es Or LT ie So RG SFE 
fad i ee -_ alia 
ie dae. Peed ao ¢ om 
is Lil iy wh Lae. : 
SEG 
a fant = — = 
Beh emesis -—+ ey Se oT: 
we mS =F eye ad  Serit 
as = oe sosr, een “= 
BmlSe BS oT Cc Sh ise 
ait Pua ae = 
oe aly sao ofr WP ty of oi 
as ik moo: Ts Mel AH Lik 
Er 2b Pils ae eRe, 
ee ; ra a 15 prk yt 
WISE SY eT a = ELL 
i asta ih 902 ps al See WTP FS Bar «nk 
Wreae rh ce Py fE Bo mie 1 
Myoas 5 
= os i a Fran mo = Coa) ee 
aPid AG Lb week Go Tm Le 
ane = . ; = ae tee ot ra wa a 
ATE 4s oP fet epee ne 
at eee = Beak TS, it, 
" Le mos es eLt 





27° 


—— 7 - : - me 2y KATA ee ed 
ee og eR LE Ue a MN MRIS Gey MS tareeg ce nr DNR tat ST rem gH Sm areas aaa ma AST ET AAT ST SPORE ATR IMS STO AT GE STAT ET Sa bene ated 


Pe ket eu ME at ates tae ee 


i i, hn ee 2 ce a a a ent Sk os. ee nT ee eee NY Sc tae tae ce 


Nek Pee a Be eat ae 


Les 


Lee AA te OS 


ire 


ce Seen 





et Py VIRAL AML aaah NOLO a ed wa eh EE A ARN AT ON AE ERR RRR, RS SES en eS 









a apd k 
at CXF [OR eel mL aa cya ea ta ey ed a 
La Oe Ty ed Ora fee CT Ce Se Pd 

: Ud HE ed ed HEA A ed ed ot a te: 


RE 
iFE 
= 
: 
C 


— 
nt 
a! 
na 
ct 
“s 
- 
oe 
". 
—r 
haw! 





S 
1! 


A 
EMP <2 
c 8 
# 





Pi ag ity RR Toil ¥ ONL Ol Waly As WT AcOEt OS OY a EL 
SO GEMS GWG oR Fag Oe calls a a a 
nm rat 1 : ai 





mM 
yy SO Wd ot co LO UW ey md 1% 
Toe HMM Cod od won oo Wy eg OT Led Lid 


5 t 
t 
a 


ced ead red LO UO ee OG et 





3 8 
: 


2 
AS 
a 


a 
G 
2 
‘. 


a 


aa 





Lor ot oy GL oe ad od ho LU, We ot Lab dd ae 
Mmnace he oo oo a a Cs Ko a ets es ee ce td Gt Ld UL a tJ 
oy 


omy 
= 
z 
Ne! 
=m 
7m”) 
a 
1” 
e 
it 
= 


ot 
HA 
A 
A 


Chom oO Oa a nC Co ao on OD i TE ca ram cas re Ks mo ich a crs a) ou 
PE AOD A BTS BON PS CUES SOE RD ee oe ee gE Ta oy 





a) 
a) 
3) 
3 
# 


Li. 
t~-- 
Ne ee Se 


Pe ee 


a Wo 
mip. ue 





no C0 
ae ded 
om cha oe 


be be oo 
wey wi ob 


iT, 


dior 


ap Wt fe ba f 
wa edd edoed el 


pied eee (eee pees ree fee 
rp ce hey a Ly 
Ta Ol ie eT te 





Wit i he a Oe . & 
fo eee oS 


Ln a Lid 3 os TE 
et wd OE a Pre Ld a 


cr! 
[: 
Li 





t 


”~ 
red 


LoL up ub ab Ge A Adon Uo a OO CR A WO a on uw) me ma RL We 
ae a ee, ed) Rd om Cor test Ob td oe om as omy ba ed a ca 


Nee Lo Lu ed We oe 
“poe od cer UT Wu 





Ae 
| my 
ae] 
re 
te 
— 





7) oy oa le ri i mt 


= 
at 
Long 
=| 
ion 
a 
£ 





ld you bs es Us es Bel Se 
fo co Oe ok Phe a ee aT ira 
cs mm cy iyi oye OES oO ee Sm ce et ml 





forse Code Listings, cont'd. 
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A few short assembly language routines implement a 


sw tin ER aida Sone Ue caer x eee ae 





notepad and provide the basis for versatile output to the 
AIN-65 display. These techniques overcome a variety of 


common output difficulties. 





Do you want to learn how to tse the 
20-character AiM 65 display? This short 
article describes several assembly 
language subroutines that may be used 
to display input/output informatian. The 
entire program functions as a novel 
“notepad” that may be used to leave a 
message far someone else or for your- 
self. However, its primary utility will lie 
in the applications that you design 
which use the AIM 65 displey. The pro- 
gram listing ts given, and its description 
follows. 


We will begin by describing some of 
the features of the notepad program, 
and then return to a description of some 
of the subroutines that you might want 
to duplicate in your assembly Janguage 
programs. The notepad program allows 
the op¢rator to enter a message contain- 
ing from ons io 256 ASCH characters {in- 
cluding spaces) into locations $0200 to 
$02FF of the AIM 65's Memory Space. 


While entering the message, the 
characters typed on the keyboard are 
dispiaycd on the 20-character display. 
The message enters the right-hand side 
of the display, and it is scrolled to the 
left. }f an error is made, ihe DEL key 
allows the entire message to be back- 
spaced, and a new character or set of 
characters may be entered, 


Once ihe desired message is entered, 
the RETURN key starts the message Cir- 
culatiig from right to teft on the display. 
K circulates at 2 rate that makes it easy 
to read. If more than one space (ASC! 
value = $20) is encountered, ihe space 
is not displayed. Thus, a message that 
contains fess than 256 characiers Goes 
not take a noticeable amount of time to 
display “einpty” locations. 


You can leave 2 message to yourself 
such as “CALL SAM TONIGHT", or you 
can remind your wife to “BE SURE TO 
LET ROVER OUT WHEN YOU GET 
HOME.” Of course there are much less 
expensive ways to do this than by pur- 
chasing AIM 65, and it is doubtful 
whether this notepad program will pro- 
vide sufficient justification to convince 
your spouse thal you cught to have a 
computer. The program is more of a 
novelty that might be useful as an adver- 
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we 


tising gimmick, it you are seHing AIM 
65s, or to impress your friends. 


On the other hand, the subroutines 
could be useful in a large variety of pro- 
grams. | use several of the subroutines 
in my Morse code program for the AIM 
65 (available from me for $3.50). The 
subroutines might be useful in computer 
assisted insiruction programs that re- 
quire interaction of the computer with 
the operator. Or they might be useful! in 
testing reading and comprehension 
speed in certain psychological tests of 
perception and cognition. 


The readiwrite (RAM) memory loca- 
tions from $A438 to $A43B, memory 
locations which are available on an off- 
the-shelf AIM 65, are used to store the 
ASCII characters to be displayed. We 
catl these locaticns the display buffer. 
These 20 locations are filted with ASCII 
spaces by the subroutine CLEAR star- 
ting at address $03A0. Subroutine DiS- 
PLAY, starting at address $0360, 
transfers the ASCil characters in the 
display buffer to the AIM 65 display. lt 
dees this by making use of a subroutine 
in the AIM 65 monitor called OUTDD1 tht 
is located at $EF7B. 


Subroutine OUTDD1 in the AIM 65 
ROM ifs very useful in working with the 
20-character display. The content of the 
X register addresses the display in the 
sense that X = $00 is the leftmost 
character on the display, and X = $13 
(19} is the right-most character on the 
display. 


The accumulator, A, must contain the 
ASCi representation of the character to 
be displayed before the jump to the 
OUTDO1 subroutine is made. The ac- 
cumulator must also be ORAed with $80 
before the subroutine call, or the cursor 
will be displayed. With the accumulator 
properly loaded and the appropriate “ad- 
dress’ in the X register, a subroutine 
jump to OUTDD1 will disptay the 
character. 


A jump to subrcutine CLEAR, at 
$0340, followed by a jump to subroutine 
DISPLAY will clear the display. To put 
some information in the display and 
scroll it to the left, subroutine MODIFY 
{starting at address $0372) is used. 


30 


SE gg Ce RRA OR He Me ee mena aie EOL MI, Ta tN nT ae me RET ERERTRE OR, SII, TO Ne 2 TR SPR ISS AE ES 2 ee Oa FT woe ee 


nm Hee ae ar AN La i ae RTA Ti wa a AOL, eee SCI nS sc te 


Dr. Marvin L. De Jong 
Department of Mathematics and Physics 
The School of the Ozarks : 
Point Lookout, MO 65726 


Subroutine MODIFY stores the contents 
of the accumulator in location $A44C. 
Then it proceeds to shift the contents of 
$A439 to $4438, $A43A to $4439, and so 
on until it finishes by shifting the con- 
tents of location $A44C to $A44B. 


Once the display buffer is property 
modified by subroutine MODIFY, then a 
subroutine call to DISPLAY wili cause 
the down-shifted ASCII characters in the 
display buffer to appear as left-shifted 
characters on the AiM 65 display. 


The sequence of events, starting at 
the beginning of the main program, is as 
follows: First, the display buffer is 
cleared by subroutine CLEAR. The 
message buffer from $0200 to $02FF is 
cleared (loaded with ASCII spaces). 


Next, an AIM 65 monitor subroutine, 
READ, is calied to get a character from 
the keyboard. As long as no key is 
depressed, the monitor stays in this 
subroutine. A key depression results ina 
return to tne main program with the 
ASCll representation of the character in 
the accumulator. The contents of the ac- 
cumulator are transferred to the 
message buffer, using Y as an index for 
the buffer’s base address of $0200, 
unless it is the ASCII character for RE- 
TURN, DEL, or the Fi key. 


The F1 key starts the entire program 
over. The DEL key removes the last 
character from the messaqe buffer, and 
it backspaces (scrolls right) the display 
buffer and the display itself. Tne RE- 
TURN key starts the message, and this 
key should be pressed oniy when the 
desired message has been placed in the 
message buffer. 


lf a character is placed in the 
message buffer, then it is also displayed 
by calling subroutines MODIFY and DIS- 
PLAY in succession. !f the message buf- 
fer is filled, or if the RETURN key is 
pressed, then the program will proceed 
to scroll the entire message across the 
display. 


The message is displayed by getting 
characters from the message buffer, 
Starting with location $0200, and then 
calling subroutines MODIFY and DiS- 
PLAY in succession. A time delay is in- 
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: : 

be ee : 
‘ i N : P 530: : 
: ea Reena B «60540: 0364 BD 38 AY LDAX $A438 
# 0040: 0300 ORG $0300 H ©0550: 0367 09 80 ORAIM $80 
BF 0050: 0300 20 AO 03 JSR $03A0 H «= -0560: 0369 20 7B EF JSR $EF7B a. 
A 0060: 0303 AO 00 LDYIM $00 7 ©0570: 036C 68 PLA 
4 0070: 0305 84 00 STY $00 f 0580: 036D AA TAX 
H 0080: 0307 AQ 20 ~—LDAIM $20 f 0590: 036E CA DEX 
1 0090: 0309 99 00 02 STAY $0200 B §=6©0600: 036F 10 FI BPL $0362 
R 0100: 030C C8 INY B ©0610: 0371 60 RTS 
2 0110: 030D DO FA BNE $0309 a §=60620: te : 
1 0120: 030F 20 3C E9 JSR $£93C BH 60630: * MODIFY SUBROUTINE § 
| 0130: 0312 C9 OD CMPIM $0D 3 (OGH0: 

O140: 0314 FO iC BEQ $0332 H 60650: 0372 8D 4c AX STA $A4NC 

0150: 0316 C9 5B CMPIN $5B - a «6.0660: 0375 A2 01 LDXIM $01 ; 

0160: 0318 FO E6 BEQ $0300 : 0670: 0377 BD 38 A4Y LDAX $A438 : 
4 0170: 031A C9 TF CMPIM $7F 4 60680: 037A CA DEX ‘ 
/ 0180: 031C DO 06 =BNE = $0324 H ©0690: 037B 9D 38 AY STAX $A438 ‘ 
; 0190: 031E AJ 20 ~—LDAIM $20 f 0700: O37E E& INX 

0200: 0320 88 DEY B 60710: O37F E8 INX 

0210: 0321 20 85 03 JSR $0385 H 60720: 0380 EO 55 CPXIM $15 
> 0220: 0324 99 00 02 stay $0200. . . g 0730: 0382 90 F3 BCC = $0377 : 

0230: 0327 BO E6 BCS $030F ! He 0384 60 RTS : 

0240: 0329 20 72 03 JSR $0372 H 60750: : 
$ 0250: 032C 20 60 03 JSR $0360 a 60760: * BACKSPACE SUBR : 

0260: 032F C8 INY f= «O770: i 

0270: 0330 DO DD BNE $030F He «0780: 0385 A2 12 LDXIM $12 : 

0280: 0332 AO 00 LDYIM $00 f 60790: 0387 BD 38 AX LDAX $A438 

0290: 0334 Be 00 02 LRAY $0200 R 0800: 038A ES INX 

0300: 0337 C9 20  CMPIM $20 He 0810: 038B 9D 38 AN STAX $A438 

0310: 0339 DO 08 BNE $0343 H 60820: 038E CA DEX 

0320: 033% A5 00 LDA $00 H §6©0830: 038F CA DEX ; 

0330: 033D DO 1B =BNE $035A 2 60840: 0390 10 F5 BPL $0387 

0340: 033F E6 00 INC $00 H = 0850: 0392 98 TYLA 

0350: 0341 DO 07 BNE $0344 R 60860: 0393 E9 14 SBCIM $14 

0360: 0343 A9 00  LDAIM $00 H «60870: 0395 AA TAX 


0370: 0345 85 00 STA $00 H 0880: 0396 BD 00 02 LDAX $0200 





0380: 6347 B9 00 O2 LDAY $0200 A 0890: 0399 8D 38 Ay STA  $A438 
0390: O34A 20 72 03 JSR $0372 H 60900: 039C 20 60 03 JSR $0360 
O400: O34D 20 60 03 JSR $0360 H 60910: 039F 60 RTS 
04140: 0350 AQ FF LDAIM $FF H 0920: 
oO420: 0352 8D 97 AM STA $A4Q7 é 0930: * CLEAR SUBROUTINE 
0430: 0355 2c 97 AX BIT $A49T nH «O94O0: 
O440: 0358 10 FB BPL $0355 # 80950: O3A0 A2 13 LDXIM $13 
O450: 035A C8 INY H 60960: 03A2 AQ 20 LDAIM $20 
0460: 035B 18 CLC B 0970: 03A4 9D 38 AY STAX $A438 
O470: O35C 90 DE BCC 0334 H 60980: O3A7 CA DEX 
Dito. oat mo ; 0990: 03A8 10 FA BPL $03A4 
F o4go: ® DISPLAY SUBROUTINE® 1000: O03AA 60 RTS 
0500: A COLD= 
0501: 0360 ORG $0360 é 
0510: 0360 A2 13 LDXIM $13 


7 F 
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serted (SFF is Joated into the divide- 
by: 1024 counter on the 6532 chip) untess 
more than one space occurs in succes- 
sion. In that case, the subroutines and 
the time delay are not used at all, and 
the program keeps searching through 
the message buffer until it finds another 
non-space ASCII character, in which 
case subroutines MODIFY and DISPLAY 
are called again. 


One subroutine that remains to be 
mentioned is. BACKSPACE used by the 
DEL key. It starts at $0385 and its effect 
is to backspace the display buffer, 
replacing the leitmost character with 
the appropriate cheracier from the 
message buffer. It then calls subroutine 
DISPLAY 10 show the typist that the 
character has, in fact, been deleted and 
the entire message has been backspac- 
ed, 


Again, | think the subroutines 
MODIFY, DISPLAY, CLEAR, READ, and 


a oe ee Ee re 


CUTDD? wiil be of considerable use If 
you are writing programs that use the 
keyboard or the dispiay on the AIM 65. 
All of them are quite short, and a little 
study will show how they work. Most in- 
volve only simple loops and nothing 
more complicated than indexed ad- 
dressing. Mimic or echo your display on 
your computer storefront and you will 
have something that will really catch the 
eye, but don’t ask me where to get the 
appropriate neon sign elements. 


A summary of the subroutines 
follows: 


Takes the contents of 
locations $AS438 _ to 
$A44B and transfers 
then. to the AiM 65 
display. A is modified, 
and X = 0 on return. 


DISPLAY 


MODIFY Successively shifts the 


contents of locations 


CLEAR 


BACKSPACE 


deme tna Oat ee RS ca NPAT A NRE A cecthig dT EROS enn coats mE 


$A439 to $A44C to loca- 
tions in memory whose 
addresses are one less. 
The contents of the ac- 
cumulatar, when the 
subroutine is called, wiil 
be stored in location 
$A438. A and X are modi- 
fied. 


Loads $20 in the display 
buffer, locations $A438 
to $A44B. A and X are 
modified. 


Reverses the effects 
found in MODIFY and, in 
addition, loads location 
$A438 with the contents 
of the message buffer in 
$0200 + (¥ — $13). Y 
points to the last entry 
made in the message 
buffer. X and A are 
modified. 
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A pregram relocator, a program listing 


tne SYM-1 Monitor 





utility and a 


seiective, extended trace routine illustrate how irue 
monitor extensions can implement additional functions 


and commands. 


When Synertek wrote the monitor for 
the SYM-1, they left it open-ended by 
vectoring many of the major functions 
through a system RAM vector table. By 
changing the addresses in the vector 
table, it is relatively easy to implernent 
additional functions and commands. 


The three routines described in this ar- 
ticle are almost permanently resident in 
my system. They have been coded as 
true monitor extensions in that they use 
only addresses already aliocated to the 
monitor and could easily be put into 
ROM. 


The programs are not complex of 
jarge, but that is also one of their good 
points. 1 have them sitting up in high 
memory where they are out of the way 
but available when needed. 


The first program is a modified ver- 
sion of one that appears in The First 
Book of KIM. It is a program relocator 
that adjusts ali the branches, jumps, and 
absolute address locations in a program 
So that you can relocate it. It is really the 
next best thing to a relocating loader. 


The second routine is a little program 
lister that prints your program, putting 
one instruction on each fine. This is 
easier to read and check than the stan- 
dard Verify or Paper tape formats. 


Finally, there is an extended trace 
routine that displays the values of all the 
registers, and additionally allows you to 
specify that only a portion of your pro- 
gram is to be traced. Did you ever 
wonder what was happening to the 
registers when one of your subroutines 
is executed only five times in a two thou- 
sand repetition loop? This utility jets you 
delerreine just that. There is a price that 
is paid, but f will get to that jater. 


If you tiave looked at the program 
code yet, you may have wondered at the 
unusual acdress. After all, who ever puts 
an extension in low tmernory? When | 
decided to write this article, | intended 
to use addres $C60, where ! have it on 


Seer vr ara, |S be eee 


PO se a a ee eee 


my system, but then | decided to change 
it to low memory. 


Almost everyone has scratch memory 
there to work on a program. After you 
enter it, check the memory dump, and 
run a few tests; you can use the program 


_ to relocate itself! 


Actually, what you have to do is block 
move the program to the desired ad- 
dress and use the new U0 command to 
petform the relocation on the new copy. 
Tell it the correct FROM and TO address, 
but make the program starting address 
the new fiocation. Tnere are three loca- 
tions that must be changed manually, 
and you are all set up. 
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Nicholas Vrtis 
§863 Pinetree S.E, 
Kentwood, MI 49508 


Before | go into a discussion about 
the programs, | would like to mention the 
interfaces to the SYM monitor that are 
used, and a few that aren’t but are sort 
of handy anyway. The programs them- 
selves are not complicated, and | try to 
keep them pretty wel] commented. 


The SYM manua! contains a small ex- 
ample showing how to add a command 
to the monitor, but isn't really clear 
about how it works. For one thing, the 
monitor uses the unrecognized com- 
mand vector for more than just the UO 
through U7? user commands. It does a 
jump via this vector whenever it en- 
counters a command it cannot process, 
or a character that is non-hex. 


MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 


P3 = START OF PROGRAM 


Pt = PROGRAM STARTING ADDRESS 
P2 = PROGRAM ENDING ADDRESS 


A626 = INCLUSIVE TRACE STARTING ADDRESS 
EXCLUSIVE TRACE ENDING ADDRESS 


* SYM COMMAND 'E 200' WILL SET UP VARIOUS ADDRESSES 


*® AND VALUES FOR THESE EXTENSIONS 
SHER SESH RHSEM HETERO R REE KERR REE RE REE EASE EERE TREO REED 


SESSRREE RESP ERERHRERE MERE ECR ERER RETR EERE BER ES 
® SYM-1 USER MONITOR FUNCTION EXTENSIONS 
MODIFIED 7/3/79 BY MICRO STAFF 


Y~X-A-~FLAGS-STACK 


i ee ee 


STORE "SD" USER ROUTINE VECTOR 


LAS SESII SERS IOS ESTES ITs eee eT ae RHRTSRCHHER EE RRKE REE RAK 


* CHANGE THE FOLLOWING WHEN RELOCATING THE PROGRAM # 
SERCUERANTHE ERR E DEAR E RE RO TERRA ED CHR ERROHEES MAES REEE 


STORE "22C"™ AND CHANGE 
IF ADDRESS CHANGES 


STORE *,A66D" 


0010: 

0020: 

0030: 

ooHO: * 

0050: ® UO - RELOCATE PROGRAM 
0060: & P1 = FROM ADDRESS 
OO70: ® Pe = TO ADDRESS 
0080: * = 

0090: £ Ul - MINI-PROGRAM LISTER 
0100: « 

O11G: ¥ 

0120: * .--- USER TRACE ROUTINE 
0130: * 

0140; € A62C = 

0150:  # 

0160: 

0170: 

0180: 

0790: 0200 ORG $0200. 
0200: 0200 $3 INITCO = $53 

0210: 0201 44 : $44 

C220: 

0230: 

O20: 

0250; 0202 32 = $32 

N260: 0203 32 s $32 

9270: O208 43 = $43 

0230: 0205 2c = $2c 

0290: GCeoh 41 = $41 

0300: 0207 36 = $36 

0310: 0208 36 = $36 

C320: 9209 4Yy = $4y 


33 


4 
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ee Ot eee Oo gant dni steat 


Cages yee 


he pei AT ee ee 


ne ae es 


This means that it gets used for a lot 
of junk in addition to the defined user 
cominands. li aiso means that you can 
use characters other than Un as com- 
mand extensions, if you want, as long as 
they are not used for valid SYM com- 
mands with the same number of para- 
meters. 


The monitor saves the command value 
in a location called LSTCOM. When a 
carriage return is entered, the monitor 
reloads the command into the Aregister 
and loads the number of parameters into 
x. 


So, the first thing our monitor exten- 
sion should do is check the character in 
A against the value in LSTCOM. If they 
are the same, the program was called 
after normal command termination. If 
they are different, the command was not 
terminated properly and we want to 
make sure the carry is set and return 
with an RTS instruction. 


This will cause the monitor to print the 
standard “ER xx” message and return to 
command mode. 


Once we know that the command was 
terminated properly, we have to deter- 
mine which cornmand it was. As | men- 
tioned earlier, the monitor does not 
verify the command character as it is 
entered, so we could be here for any- 
thing, including a “valid” command with 
the wrong number of parameters. 


Finally, if we are on the right com- 
mand, and if it was terminated properly, 
the last check is to make sure that exact- 
ly the correct number of parameters has 
been entered. If not, there will be miss- 
ing information, or information will be in 
the wrong place. For any errors, all the 
extension has to do is guarantee that 
the carry is set and return to the monitor 
with an RTS instruction. 


As an aside, the command processor 
does not initialize the stack register, and 
so, If you are debugging an extension 
and stop it before the RTS to the 
monitor, you can quickly use Up a jot of 
the stack area. This only hurts if you 
have a routine or two located there, as | 
usually do. 


The manual claims that locations $F8 
through $FF are reserved for monitor 
use. Did you ever wonder what they are 
used for? Unfortunately, these locations 
were not assigned a variable name in the 
monitor assembly, SO there are no cross 
references to them in the listing. | have 
tracked down most af the applications, 
but | don’t guarantee thal | didn’t miss 
one. 


The most used locations are probably 
$FE and $FF. These are the locations 


Q20A 
020B 
a20C 
o20b 
020E 
020F 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
027A 
0218 
021C 
021D 
O21E 
O21F 
0220 
0221 


0222 
0223 
Q22k 
0225 
0226 
0227 
0228 
0229 
022A 
022B 


d2eC 
022C 
022C 
O22C 


o22C CD 57 Ab 
o22F FO 02 


0231 


wee 


oD 
kD 
41 
36 
35 
38 
oD 
31 
38 
oD 
53 
4 
38 
30 
43 
30 
2c 
41 
36 
37 
41 
oD 
53 
4h 


33 
34 
31 
2¢ 
41 
36 
37 
34 
oD 
o¢ 


38 


aoe 


0232 60 


9233 cg 14 
0235 FO 03 


se memes Cann ror gn etre er 


RM Be a ee rere Mea ee Et 


a oem rte 


cde ap emer cis rer” 


$0D 
$4D 
$41 
$36 
$35 
$38 
$0D 
$31 
$38 
$0D 
$53 
$44 
$38 
$30 
$43 
$30 
$2c 
$41 
$36 
$37 
$41 
$0D 
$53 
$44 
ERED EMEC KOREN BREF EERE RERERS ESSERE EROS 
® CHANGE TRE FOLLOWING WHEN RELOCATIN 
CER ERT ERE RR HERNAN SHEER EHH ERE EERE EES 
$33 STORE "341" AND C 
$34 
$31 
$2C 
$41 
$36 
$37 
$34 
$0D 
= $00 

PER RRENE RARE AE EERRERERRRHE REN H ERS ATES 


#® PAGE ZERO ADDRESS LOCATIONS 
EERE DETEGHRCKERERGCERERNURERR REELS DES 


STORE "MA658" AND 
MAX RECORD 

TO BE 

TWENTY-FOUR 

BYTES LONG 


STORE "18" 


SET TRACE VECTOR 


STORE "SD" 


non ww wo nowo tb Hou W ee ee ee iT} 


STORE ",4674" 


Ae es | wo 


CURAD * $O0FE 
CURADK * $OOFF AND HIGH-ORDER 
ADJUST * $00FC 
ADJUSH * $00FD AND HIGH ORDER 


PK RHRECERSCRRRCRR ESKER AERA E RHEE CES EINY 
® BY JIM BUTTERFIPLD (SEE "JHE FIRST 


# MODIFIED BY N. VRTIS TO RUN AS MONITOR 


® EXTENSIONS ON THE SYM~1 


+ 
# THIS PROGRAM ADJUSTS ABSOLUTE AND R 


® ADDRESSES OF A PROGRAM SO 1T CAN BE RELOCATED 


® OR EXPANDED 
>>>>> NOTES: 


1- PAGE ZERO REFERENCES ABOVE $8000 WILL hOT 


BE CHANGED UNLESS SPECIFIED &A 
THREE-BYTE AINSTRUCTIONS 
ANY REFERENCES ABOVE $8000 
CHANGED 

PROGRAM STOPS WHEN IT FINDS & 
OPERATION CODE (CAN USE $FF) 
DON'T RELOCATE DATA 


e- Wi 


& 

* 

* 

# 

* 

# 

* 

* 

s 4. 
& 

+ PARMS: 

' PARM1 ~ RELOCATE FROM 
* (FIRST OPCODE 
® PARM2 - RELOCATE TO ADDRESS ( 
* WILL BE MOVED 70) 

£ 

# 


RERERRDERAEOKEEEG PRO SERHRERER DRESSES? 


ah ee aR de tS Be alae si th alld inane nes tia tb . 
Rae i tpi ~Leatisins — Dri 2 Naa eens 


ADDRESS 
THAT WILL MOVE) 


PARM3 - PROGRAM START ADDRESS (FIRST 
INSTRUCTION IN PROGKAM 


CHANGE 


STORING STRING "SDS8OCO,ABTA™ 


AHRENS MES ERE HE EER EE 


G THE PROGRAM * 
HERERECER ETE R EERE 


HANGE IF ADDRESS CHANGES 


ZERO IS END OF EXEC REQUEST 


REEERKERE ETE EK HER 
€ 
ERK HE EG REEEREHET 


SYM-1 "OLD ADDRESS LOW OKDER 


SYM-1 PAGE ZERO SCRATCH AREA LOW-ORDER 


ARERR EREK SESE EGE 
BOCK OF KIM") 


ELATIVE 


S ABSOLUTE 
LL NOT BE 


N ILLEGAL 


* 
* 
# 
# 
t 
* 
# 
€ 
* 
g 
# 
* 
# 
¥ 
* 
* 
t 
# 
* 
x 
WHERE PARM) i) 
# 
| 
R 


RESERRERSEEEHERER 


CMP LSTCOM SEE IF COMMAND TERMINATED PROPERLY 
BEQ U0 YES -- SEE WHICH COMMAND 
COMERR SEC ELSE SET CARRY AS ERROR FLAG 
RTS AND RETURN TO MONITOR FOR ER XX 
ud CMPIM $14 MAKE SURE IT IS "UO" 
BEQ UOCOMM BRANCH Ir IT 1s 


34 


ak ee mere MT 


fe ance ape TE PRETEEN ARNT TT PRE ro aie lakes 


eae el 


re ce hl I 


AE gt me 


Oe at eee 


Se Rete on ml aR ci 


Sn dca 


Th etm mer mates 


that the monitor uses for almost all of 
it's indirect addressing. If youJook at the 
command descriptions, this ts where the 
“OLD” address is kept. 


These programs use it ir the same 
manner that the monitor does. It’s im- 
possible to display these Socations via 
the monitor commands directly, but do- 
ing a Verify or Memory will show you 
what they are pointing to. Also, if you 
plan to use them, none of the monitor 
routines wil! change them, but almost 
any command will. 


Another important pair of locations is 
SFA and $FB. ihese contain the address 
of the next byte to be obtained as input 
when processing in the execute mode. If 
your program modifies these locations, 
it can’t be invoked from the execute 
mode. 


As another aside about tha execute 
mode, all input comes from RAM, so if 
you do a JSR INCHR and expéct to get 
keyboard input while in execute move it 
won't work. The execute command is the 
only one that modifies these addresses. 
The other focetions are pretty much 
scratch locations; you can probably use 
them without affecting comrnard opera- 
tion, but | woujd not count on therm be- 
ing the same after any call to monitor 
service routines. 


The cassette routines use $FC and 
$FD, as does the biock move cormmand. 
Terminal input uses $F8 as a character 
buildup area, and terminal output uses 
$FS ta hald the character as it is being 
output. There may be a few other uses, 
but | would stay away from these unless 
you are really desperate for page zero 
SN38ce, or you are writing monitor exten- 
sions. 


The System RAM areas are much bet- 
fer documented in the monitor tisfing. 
They have also been assigned names, 
and therefore appear on the assembly 
cross reference fist. Thess programs 
only deaf with two main araas. This is 


"$4630 through SA63F, and they are 


monitor scratch areas. The iwa bytes us- 
ed here are not used by the monitor, ac- 
cording to the cross reference lists. 


The jiocations SAS4A through SA64F 
are the addresses where tne monitor cal- 
tects input parameters. Each is a two 
byte parameter area, and ail three areas 
are initialized to zero af the start of com- 
mand processing. The problems begin 
when you find that the labels P+, P2 and 
P3 are a liitle misleading. The monitor 
Starts collecting parameters in the P3 
area, and rotates the whole arca 16 bits 
left for each new parameter. ft works out 
ali right for three parameters, but two 
Parameters wil) end up in P3 and P2, 
while one ends up in P3. 


a Ton alee RE ae ee Te ee 


0237 
0234 
O25C 


0235 
023F 
O2he 
o2u5 
0247 
O2UA 
o24D 


O24F 


0252 
0255 
0257 


0259 
025C 


0261 
0264 
0267 
0269 
0266 
O26F. 
026F 


0270 
0271 
0273 
0274 
0275 
0277 


O27A 
027C 
027D 
O27E 
0280 


0283 
0284 
0286 
0288 
028B 
028E 
0290 
0292 
0293 
0295 


4C 
EQ 


DO 


38 
AD 
ED 
85 
AD 


85 


20 


20 


30 
FO 


20 
FO 


EB C8 
SF FO 


20 
20 
AO 
Bi 
20 
18 
60 


cs 
Bi 
AA 
c8 
Bt 
2a 


91 
88 
6A 
gi 


Ne 


C8 
A6 
A5 
20 
8E 
Az 
BY 
18 
69 
30 


03 
F3 


AT 


24 
07 
2A 


TA 
FY 


FE 


rE 
B6 


FE 
YF 
86 
30 
FF 
FE 


02 
01 


02 


A6 
A6 


A6 
A6 


82 


03 


83 


82 


02 


02 
A6 


Sale el an Rei T ee Oe AE ea Ee ate Pe oe 


JMP 


UOCOMM CPXIM $03 


BNE 


me banat tare ek eS at meet are mam ee eR gi Saat De ape a a a cl Ra al el i Nan Ma Mie i A ber erm PEE telat ie Sire a AE gM Cg NN We ae we 


ui GO TRY AS U1 COMMAND 
MAKE SUR HAVE THREE PARMS 


COMERR BRANCH FOR ERROR TF NOT 


*® NCW COMPUTE THE ADJUSTMENT LNCREMENT 


SEC SET BORROW 

UDA Pal. GET LOW-ORDER "TO" 

SBC PIL CALC DIFFERENCE 

STA ADJUST SAVE IN PAGE ZERO LOW-ORDER 
LDA PeH SAME FOR 4IGH-ORDER 

SBC PH 

STA 


ADJUSH 1T GOES INTO PAGE ZERG ALSU 


® NOW PUL PROGRAM POINTER TU PAGE ZERO 


JSR 


P3SCR 


tite PCP CPPS EE LOSE STICTOLES TSS aEST Sate 


* GET AN OPCODE HERE Li 
hihi LLL LiL rir! 


DETLEN FIND OPCODE LENGTH AND TYPE 


GETOP JSR 
BMI TRIPLE MINUS IS LENGTH 3 OR BAD TYPE 
BEQ BRANCH ZERO IS A BRANCH 


RESHLLESERAASE TERME NE RAPER ERE EET ER EME E RRR RERET EEN ELE 2 


* HERE WE HAVE TO SKIP FORWARD TO NEXT GPCODE * 
BREE RARE EERE RR RENE RES E RR E ER RE ER RE EERO REET E RRR 


ADVANC 
GETOP AND THEN GO GET THE NEXT UPCODE 


SKIPi JSA 


BEQ 


ARR S ACERS SSAC ECL SESE SESE EES EERIE EST IS CSTE S ee eect ee et S| 


* GOT A 3 BYTE OPCODE / ILLEGAL / OR END (SPECIAL) 7 
REMER TEEN TER EERE REA A RE RE RC RAH SE NTE ES RR EMER ATER EERE 


BUMP Y¥ BY OWE 
FIXSBY IF NOW ZERO IT IS A 3 BYTER 


TRIPLE INY 
BEQ 


QUITDO JSR CRLFSZ OUTPUT LAST ADDRESS 


JSR SPACE FOLLOWED BY A SPACE 
LDYIM $00 AND THE OPCODE 

LDALY CURAD 

JSR OUTBYT 

CLC CLEAR THE CARRY 

RTS AND RETURN TO SYSTEM 


NAKE Y=1 NOW 
LOW-ORDER FART OF ADDRESS 


FIX3BY INY 
LDAIY CURAD 


TAX PUT INTO X 

INY NOW MAKE Y¥=2 

LDATY CURAD HIGH-ORDER PART OF ADDRESS 

JSR ADJST GO CHANGE ADDRESS IF NECESSARY 


PUT HIGH-ORDER BACK 
MAKE Y=1 

TXA LOW-ORDER TO fi 
STATY CURAD PUT IT BACK ALSO 


JMP SKIP1~- GO SKIP FORWARD TO NEXT OPCODE 


STALY CURAD 
DEY 


HKHRLAKERGETK ELS SARE LESSOR ERECT SHE SE EHS AMER ENR R EEE ER 


© GOT A BRANCH - HAVE TO CHECK 


®* BOTH "TO “ AND "FROM" ADDKESSES 
ELERHS REGAL EHERASLSKCETA START OV ERES ERECT HEE PEER EEES ONES SE 


BRANCH INY MAKE Y=1 
LDX CURAD GET CURRENT LOCATION LOW-ORDER 
LDA CURADH AND HIGH-ORDER 
JSR ADJST FIX IT IF NECESSARY 
STX SCRO SAVE LOW-ORDER FOR NOW 
LDXIM $FF SET FLAG FOR BACK REFERENCE 
LDATY CURAD GET RELATIVE BRANCH AMOUNT 
CLC 
ADCIM $02 ADJUST THE OFFSET 
BMI OVER RRANCH IF BACKWARDS BRANCH 


SSE EE SES LE eS POLE RE ARE I ONE IR ELIE ETE ETE CRE ETT, Seem Ses BL ET: ee 


ad 


The addresses | used for the high and na . 31 46 OVER ues ScRi re atca FLAG ZERO 
low trace timits are eatries in ihe jump 0298 18 a CLC 
eT eT aoa ey Hiei 029¢ 65 FE Abe CURAD CALCULATE "TO" LOW-ORDER 
: 3 oe O29E AA A U 
table, so am not worried about changing ee AD 31 AS ter SCRI PU A EP, REMEMBER? 
it. The second is slightly more import- O2Ak2 65 FF ADC CURADH CALCULATE *TO” HIGH-ORDER 
ant. If you will note, the default values OZA4 20 BE 02 JSR  ADJST FIX IT IF NECESSARY 
set in these locations during system O2A7 CA DEX TAKE BACK OFFSET 
reset turn out to Cover normal user RAM. o2n8 CA DEX 
This means | don't have to worry about 02A9 BA TXA PUT LOW-ORDER BACK INTO A 
reset the system. O2AB ED 30 A6 SBC -SCRO 
O2KE 91 FE STALY CURAD AND PUT IT BACK 
There are a number of obscure SYM 02B0 20 CE 02 JSR  SIGNCH GO CHECK FOR SIGN CHANGE 
0253 4¢ 59 Oe SMP SKIP1. GO SKIP FORWARD TO NEXT OPCODE 


Shae Na Ta ie. aa OO ae Me area me eam am 


dare 


eR Reet 


re tee ae 


monitor routines used here, and some 
explanation of their function is in order 
now. Where possible, the names corres: 
pond to names in the monitor listing- 


cunneveneneuceecreereeRseReGESHeRGFESHEEESEERRSRESCERES 


® EXAMINE ADDRESS AND ADJUST IT IF NEEDED 
® HIGH-ORDER IS IN A . 


#® LOW-ORDER 1S IN X 


a ecppeeReseRCeGEDERGRENGEEGSEDORERCRESPEEESRSECOSFLESSS 


The routine P3SCR takes the two 


miter ae «ae 


wi ite SA Ra ame eo 


bytes from the P3 area and moves them 
to pag? zero locations SEE and $FF for 02B6 C9 80 ADJST CMPIM $80 MAKE SURE REFERENCE NOT TOO FAR 
indirect addressing. PZSCR does the 02B8 BO 13 Bcs) = OUT DONE IF TOO HIGH 
same thing, but with the P2 data instead O2BA CD 4F Ab CMP PH CHECK HIGH-ORDER FIRST 
of P3. To my knowledge, there is no O2BD DO 03 BNE TEST2 BRANCH IF NOT EQUAL 
PISCR or equivalent. O2BF EC HE A6 CPX PIL EQUAL - NEED TO CHECK LOW-ORDER ALSO 
. 02c2 90 09 TEST2 BCC OUT BRANCH IF LOW 
CRLFSZ is a very handy routine that o2ch 48 PRA ELSE SAVE HIGH-ORDER ON STACK 
otitputs a carrage return, a fine feed, eee . te PUT LOW-ORDER INTO A 
tithe oc “Fog (FE 
salon contents of SEF ae INCCMP o2cT 65 FC ADC ADJUST ADD LOW-ORDER ADJUSTMENT 
Lae =e melee : 2C9 AA TAX PUT BACK INTO X 
does 4 16 bit add of 1to the contents of OCA 68 PLA PULL HIGH-ORDER BACK OUT 
CURAD, and compares the resuit to the O2cB 65 FD ADC  ADJUSH ADD IN HIGH ORDEL ADJUSTMENT 
value of PS. The compare 1S ignored in o2CcD 60 OUT RTS AND RETURN 


the relocate program, but for the lister, 
P3 has the program ending address 80 it 
knows when to quit. There is a reverse of 
this routine, called DECCMP, that sub- 
tracts 1 and does the compare. i isn’t 


EEREGRHERAEERCHEDESSTEFES PERE RUEREPSR EERE SREFED SE CHHE TS 


* CHECK TO MAKE SURE SIGN 


# BEFORE BRANCH IS SAME AS AFTER 
arene eee erasnatencensesrererxovesaneecenceseeceeitt 


used in these routines, but might be han- 
dy scime time - O2CE UD 31 AG SIGNCH EOR SCR1 SEE IF SIGNS ARE THE SAKE 
mere ; O2D1 10 OA BEL  SIGNOK BRANCH IF THE SAME 

“AB ay p ; o2D3 48 PHA SAVE "A" Ok STACK 
ee Be aoniee O2D4 20 16 83 JSR  CRLFSZ OUTPUT CURRENT ADDRESS 

rtd se cart B O2D7 20 42 83 JSR SPACE AND A SPACE 
addresses. The ERNOCRLF label ts 4 : : a 
few inetrustions into the ERMSG rou- an : ie! SIGNOK =e EROeR a ae ae OK 
tine. It is after the carriage return and 
seccavenncanscnsssensuseacercnensnsegeneeeereesgeenace’ 


line feed subroutine jump. Unfortunote- 
ly, where | enter, ERRMSG has already 
pushed Acn ihe stack, so always JMP to 
it from a subroutine and let it do the * 
return from your subrouiineg, or eise your ® LIST A PROGRAM BY INSTRUCTION PER LINE 
stack will aet out of sync. ig 
® INPUT PARMS: 

The last address | cal! DBRTN. | use it : le Seat Snes 

bh the extended a K is actually the  nuneeerececaneueDECHESUsTCOAVEUAREERSOESIEOU GC020508% 


jast couple of instructions of the normal 


® SYM-1 FUNCTION ~ MINI LISTER 
® BY: NICK VRTIS -- LSUL/CCSD -- APRIL 1979 


MAKE SURE ON RIGHT COMMAND 


trace routing. It does 3 check of the carry O2DE C9 15 ut CMPIM $15 
and continues tracing if the carry © O2E0 DO Of BNE U1ERR BRANCH IF WRONG 
cloar; otherwise it returns to the monitor. O2E2 EO 02 CPXIM $02 MAKE SURE 2 AND ONLY 2 PARMS GIVEN 
This works out conveniently since the O2EX FO 02 BEQ  UISTRT BRANCH TO START IF CORRECT 
routines INSTAT and DELAY return with O2E6 38 U1ERR SEC 
the carry set If a key is down or the break OPET 60 RTS 

“poscR SET UP BEGINNING ADDRESS 


kay on the termina! has been pressed. O2E8 20 9C 82 UVISTRT JSR 


CEREUS ESRHOETESTER ECT REET ED 


TIME OR "MAXRC" AT A TIME 
AOSHESESERRRELEDECSEELERELE 


BRRSEEEGEREGHRETHASETTHSEL 


® LIST PROGRAM EITHER 1} AT A 
SERREMERHGECKCLO PSE CH RHEE HES 


The remaining addresses and routines 
used in the programs are dofined ade- 
quately in the SYM r.anual, so | won't 


. is a 
bother discussing them here. MAXRC # OF LINES CONTROLLED BY "MAXRC® 


O2EB AD 58 A6 LISTER LDA 
COUNT SAVE IN SCRATCH AREA 


The relocate program should not be O2EE BD 31 A6 STA 


difficult to follow. The program Is made CRLFSZ PUT OUT CURRENT ADDRESS 


O2F1 20 16 83 LISTLP JSR 
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ible by the sub outine DETLEN. { 
possible by the sub O24 20 42 85 CUKOP JSR SPACE LEADING SPACE 


ive credit to Jim Butterfiold and Meee 
ave oe cle - O2F7 20 24 03 SSR DETLEN MAKE SURE GOT CURRENT LINE LENGTH 
: The First Book of KIM for that routine O2FA BO 00 LDYIM $00 INIT Y TO 2E 
and for most of the relocate program. nO 
i DETLEN not only determines the instruc: gore Bi FE CURRLP LDATY CURAD GET CURRENT OPCODE 
: tion fength, but atso classifies it as one O2FE 20 FA 82 JSR  OUTBYT OUTPUT IT 
: of four types: a branch (Y¥ =0} an ab- 0301 C8& INY BUMP TO NEXT BYTE 
solute address reference (Y = FF) an “in- 0302 CC 32 Ab CPY BYTES SEE IF DONE 
* valid” instruction (Y = FE) and all others 0305 DO F5 BNE  CURRLP LOOP FOR CURRENT NUMBER OF BYTES 
: (Y = number of bytes in the instruction). 
. 0307 20 1A 63 JSR  ADVANC ADVANCE TO NEXT INSTRUCTION 
The invalid opcodes detected are only 0308 BO OC BCS PGMDON SEF IF TO END 
those with bits 0 and 1 on. This is not ail- 030C CE 31 A6 DEC COUNT ELSE DECREASE LINE COUNT 
inclusive, but it does cover quite a fewof 030F 10 EO BP, LISTLP GOT MORE TO DO IF POSITIVE 
the undefined opcodes. The normal pro- 
cedure for operating the program is to 0311 20 1B 8A JSR  INCHR WAIT FOR ANY CHARACTER 
ment, since the relocate program stops 0316 DO D3 BNE LISTER ELSE CARRY ON 
when it encounters an invalid opcode. veneeneneees eu Ree eHaCGREBAESEAOLCS#OREDEESESSPESEESTAN 
shee o ® END OF PROGRAM ENCOUNTERED - RETURN TO MONITOR 
This sometimes catches an attempt to Orne oe svevaeeunenaseneuacansauonseeeeen arse hasreart’) 
relocate a data area instead of a pro- 
: gram, which is a definits non’ The pro- 0318 18 PGMDON CLC CLEAR CARRY FOR OK RETURN 
} gram cant tell the difference batween 0319 60 RTS AND RETURN 
most data and instructions, SO make 
ws sure you stop it before it tries 1o “fix” vqpennneueneeecuaneyGunes nceuHHOebaneeLeGeeeeEPOOel2©® 
the “addresses” in your data. lf you get # ADVANCE TO NEXT INSTRUCTION 


into ine habit of collecting your data ADVANCE ceevancnusraunsansseeneucnasaenshexg25e 040000 


areas in one place, your programs will be 


easier io relocate. O31A AE 32 AG ADVANC LX BYTES GET BYTE COUNT 
031D 20 Be 82 ADVILP JSR INCCMP BUMP CURRENT ADDRESS 
if you follow the code, you will see 0320 CA DEX sae ee ares y en 
that there is a lot more work involved in ea “ FA ae ADVILP Lee Nene BYTES ARE COUNTE 
: relocating @ branch instruction than in 323 oo ere ws ae 
; fixing &n absolute address reference. cavecervencecccnnsrecnsaansne cere nrsen¥elereneQ Shel ees 
This is because the program Nas to Colle # DETERMINE THE INSTRUCTION LENGTH 
pute the effective FROM and TO ad- eer r ee ceneneaaaeauescerceevescereccneess}45S5° 5% 
dresses hefore it can determine whether 
ihe relative byte count has changed. 0324 Ad 00 DETLEN LDYIM $00 ENIT ¥ TO ZERO 
0326 BY FE LDALY CURAD PICK UP CURRENT OPCODE 
{have also included a routine to verify 
that the sign (dit 7) of the new displace- # ENTER HERE 1F “AP ALREADY HAS OPCODE IN It 
: ment is the sane before and after the 
; relocation. This routing Was added 0328 A8 DETLN1 TAY SAVE IN Y 
shortly after tie first time { relocated a 0329 A2 OT LDXIM $07 GOT SEVEN TABLE ENTRIES TO CHECK 
backward branch into @ jorward branch, = 
by overflowing the sign, and started ex 032B 98 Per CHKLOP TYA i on Sade BACK abe A sohaeas 
ecuting one of the 6502's {NMI instruc: 032C 3D 3 ANDX TABOUT -01 REMOVE THE © En Be 
tions (NMI = Ignore Non-Maskable In- 032F 5D 89 03 EORX TABTST -01 TEST THE FOS” 
torent) 0332 FO 03 BEQ FOUND BRANCH IF FOUND THE MATCH 
Puy 0334 CA DEX ELSE TRY NEXT ENTRY 
wy The program lister was really easy to 0335 DO FN BNE  CHKLOP UNTIL ALL ARE LOOKED AT 
do with subroutine DETLEN available. | 0337 BC 99 03 FOUND LDYX TABLEN GET LENGTH FROM TABLE 
have a CRT running at 1209 haud, so | 033A 8C 32 46 STY BYTES SAVE THE LENGTH 
set tne program up to tist a screentull of 033D BC 91 05 LDYX TABTYF NOW LOAD THE OPCODE TYPE 
lines at atime, and tren wait for any key 0340 60 RTS AND RETURN 
before continuing with the fisting. If you 
have a printer, or run at a slower baud 
rate, you might want {o ignore the MAX- 
‘Cc count, do a call to INSTAT after each 
line, and only stop when the break key 1S 
aaa eee sed saunausecsscosccanensesnsancqnnenncenssernedeneeshell™ 
: 4 - ¥ 2 , + a 7 a Ry 7 
and clear otherwise. : ALTERNATE USER TRACE ROUTINE 
; : @ BY: NICK VRTIS -- LSI/CCSD FEBRUARY 197 
The extended trace routine is 5 ¢ 20 
See ee aes Ter eae enatianriat # ALTERNATE TRACE ROUTINE TO PRINT ADDITIONAL DATA 
gradware # 
outlined in the SYM manual. That # WILL PRINT PROGRAM COUNTER-Y¥-X-A-PLAGS-STACK 
tA : ue Lag taligee of jumoers » ONLY PRINTS FOR PROGRAM ADDRESS IN RANGE OF ADDRESS 
24 and X-25. These enable software * SPECIFIED BY: 
contro: of the debug flip-flops, but only * 262C - EXCLUSIVE ENDING ADDRESS 
up to a cartain paint. * (SYM DEFAULT IS 0000) 
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When | started writing this routing, It 
was only going to be a one night project. 
it turned out to be 4 project ali right, but 
it was more than one night. In the mean 
time, | found the program bug that caus- 
ed mé to write the extended irace in the 
first place. 't has been useful on a 
number of tater projects, though. 


Let me tell you some things about the 
SYM imptementation of hardware 
debug. It all starts with a non-maskable 
interrupt which is generated at the com- 
pletion of each instruction that is not a 
SYM monitor address, provided that the 
debug fiip-flop is set. The 6502 picks up 
the address contained in locations 
$FFFA and $FFFB as the interrupt 
handier. Do to wiring “tnircors’, SFFFA 
and $FFFB are actually SAG67A and 
$A676, which are system RAM ad- 
dresses. 


Normally, this vector contains the ad- 
dress of SVINMI, which is {he usual trace 
routine. The first thing the monitor does 
is unprotect system RAM, and then save 
all the registers, flags, and program 
countes in the user register save area in 
systern RAM, It then resets the debug 
flip-flop co thai it is off. For the extended 
trace, this vecter is changed to point to 
another SYM monitor routine that does 
the same things, but exits via an indirect 
jump through system RAM location 
TRCVEC to the user trace routine. 


li) theory, this means that the user 
routine should be able to do just about 
anything the monitor can do. The hard 
fects of life are thai the debug key 
bauinees, and ihe monitor dees not de- 
bounce it before you gel control, but it 
does reset ifie flip-flop. 


This is no problem H I am in the 
monitor (say, waiting for input) when | 
press the debug key. Since the monitor 
does not get interrupted, by the time an 
interrupt is generated, the key is througn 
bouncing, and only the interrupt is 
generaied. 


If, on the other hand, a usar program 
is executing and | press the Gebug key, 
the extended trace routine get control 
before the key has finished bouncing. 
This means that an interrupt is 
generated within the extended trace ana 
it starts tracing itself. 


At first glance, the solution would 
seem the same as for any other bouncy 
input; namely, to wait for tt to settle. The 
only problem is that the extended trace 
gets only ONE instruction done before 
the routine is interrupted. The best that ! 
could Gu was check to sec If it is tracing 
itself and exit gracefully to the monitor if 
so. Unfortunately, the register save area 
deesn't contain any more useful infor- 
mation, but then, there Is a price for 
everything. 


TO So ae eo) A aes Eclat ede aes ee 


eo ee 


0344 
0344 


0347 
0349 
034B 
O34E 
0350 
0353 


0355 
0358 
O354 
035D 


O35F 
0362 
0365 
0367 
036A 
0360 
0370 
0371 
0373 
0376 


0378 
0378 


037D 


0380 


0383 
0384 
0385 
0386 
0387 
0388 
0389 
038A 
038B 
G38C 
038D 
038E 
038F 
0390 
0391 


AE 
AD 


cg 
FO 
Cb 


EC 
BO. 


cD 
DO 
EC 
90 


20 
BO 


20 


uc 


59 
5A 


03 
35 
2D 
03 
2c 
28 


e7 
03 
26 
1E 


5h 
03 


86 


BB 


AG 
AG 


A6 


46 


83 
82 


A& 
83 
82 


83 


83 


BO 
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A626 - INCLUSIVE STARTING ADDRESS 


(SYM DEFAULT IS 0000) 


TRACE VELOCITY IS IGNORED IF TRACE IS NOT IN RANGE 


IS TO MONITOR IF KEY OR BREAK 


REGARDLESS 


OF ADDRESS 


* 
. 
* 
® KEYBOARD IS CHECKED AND RETURN 
. 
& 
4 


ERMREREME REL EMERERHREE EER KER MHSET ESR EERE REESE EERE TER ES 


USRTRA LDX 
LDA 


USREGS ALWAYS EXECUTES SO X IS OK 
USREGS +01 A WILL BE OK IF SELF TRACING 


SPRSRARETHAEGERS KEES ROSTER EERE SRER TEL ARR EERE RARER EEE EE 


# CHANGE THE 


FOLLOWING INSTRUCTION 


* TO HIGH-ORDER OF PAGE LOCATED ON ‘ 
SHCERCKHSSECEEAHE TEST RERE RHEE EREE SEEK EHESRR EE RERE REED 


CMPIM 
BEQ 
CMP 
BNE 
CPX 
HI BCS 


$03 SEE IF TRACING MYSELF 
RETURN 

THIGH +01 

HI 

THIGH 

NOTRAN BRANCH IF TOO HIGH 


SHLEKREREEKHSETSREAE REST SAAHNE EET TAEHERHEHEGEHE TRE PERE EE 


* IT IS LESS 


THAN THE UPPER LIMIT 


SLEMMPETHPESK HAHEI REPTEPERETREEREREHKC ESCO SHHAR EER TEE HE 


CMP 
BNE 
CPx 
LO BCC 


TLOW +01 CHECK AGAINST LOWER LIMIT 
LO 

TLOW 

NOTRAN BRANCH IF NOT IN RANGE 


* IT IS IN RANGE ~ OUTPUT GOODIES 


JSR 
JSR 
LDXIN 
DSPREG LDAX 
JSR 
JSR 
DEX 
BNE 
CPX 
BEQ 


CRLF START ON NEW LINE 
OUTPC 

$05 

USKEGS +01 

SPACE OUTPUT LEADING SPACE 
OUTBYT NOW THE DATA AS 2 HEX 


DSPREG 
TV COMPARE 0 TO TV 
RETURN EQUAL WILL ALSO HAYE CARRY SET 


® PERFORM THE DELAY ACCORDING TO TV VALUE 


DODELA JSR 
BCS 


DELAY 
RETURN IF KEY WAS DOWN - DON'T CHECK AGAIN 


® NOT IN RANGE ~ CHECK FOR KEY DOWN ANYWAY 


NOTRAN JSR 


INSTAT CHECK FOR K£Y¥ DOWN 


# RETURN WITH CARRY ON FOR RETURN TO MONITOR 
® CARRY OFF TO CONTINUE TRACE 


RETURN JMP 


DBRTN RETURN WILL CHECK CARRY 


SPECECERRESAECESHSTCOMHRSORCHRA AT ARAH HSCS SEARLES ER ERE HE 


* TABLES FOR 


DETLIN 


SERA ARSECEHK AH ERERESRESHERESLAMSE RE EHEREC TELE PERE TEREL SE 


TABOUT 


TABIST 


hoe @ HOW MW Ho of tr Hoh Moe 


TABTYP 
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toc MASKS TO REMOVE DON’T CARE BITS 
$1F 
$oD 
$87 
$iF 
$FF 
$03 
$0¢ 
$19 
$08 
$00 
$10 
$20 
$03 
£02 
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0392 FF = $FF 
Now that we have that explanation 0393 FF 2 $FF 
out of the way, on to a discussion of the 0394 01 = $01 
mechanics of the trace routine. Actually, 0395 01 = $01 
the hardest part is making sure the carry 0396 00 Ps $00 
gets set or cleared, before returning to 0397 FF Pa $FF 
DBRTN, so we either continue tracing or 0398 FE = tFE 
exit tc the monitor. If the program is 0399 02 TABLEN = $02 
tracing itself, or if the trace velocity is 039A 03 = $03 
zero, the return is executed immediately 039B 03 . $03 
after a compare instruction that resulted ee aA i oe 
in an equal condition which sets the 039E 02 = $02 
carry. 039F 03 s $03 
if the trace velocity was not zero, then pane a sig 
this routine uses the DELAY routine to PETE TI TEITi iri livitirisitiriiitititiitirili titty | 
slow down the execution rate. DELAY * SYM SYSTEM ROUTINE ENTRY POINTS AND RAM ADDRESSES 
even checks the keyboard, via INSTAT, PETTITT ITEC Ir irre raiiiitirriiitiriritr siti ttt ty? 
for a break key and sets the carry ap- 
propriately. The check of the carry is 03A1 DBRTIN * $80BB CHECK CARRY & TRACE OR MONITOR 
made after the jump to DELAY so that 03A1 ERNOCR *® $8177 "ERXX" W/O CR/LF -- JUMP TO ONLY 
the program doesn’t check tha keyboard 0341 PeScR # $829C PUT "PARM2" INTO "CURAD" 
twice. The second check would probably 0341 P3SCR F $8247 PUT "PARM3" INTO "CURAD™ 
get the opposite results if the keypad 03A1 INCCMP # $82B2 BUMP "CURAD™ & COMPARE TO PARM3 
were being checked, since KEYQ da- O3A1 OUTPC # $82EE OUTPUT USER PROGRAM COUNTER 
pounces the Keypad gpa) oar ¢ fers Panty & (own Wer 30173 
$ T /LF A tC " 
ee 03A1 SPACE * $8342 OUTPUT ONE SPACE 
You should also note that even if the O3A1 CRLF $834D OUTPUT CR/LF 
address is not in the requested range, OsA1 DELAY ® $835A DELAY ACCORDING TO TV 
the prograrn coes a call to INSTAT, any- é o : 
~ way, to check for a key down or the 0341 aa any Roni gl KEY STATUS (BREAK 
break key. This is So you can interrupt a 
program outside your requested trace 0341 INCHR # $841B GET ASCII CHAR VIA "INVEC" 
range. Remember, the debug key is ITs testriiric liitrlirririiiiiirititiiriti tii iy) 
already causing the extended trace io be 
invoked, So you can't stop the program O3A1 TLOW $4626 TRACE LOW ADDRESS 
with that. 0341 THIGH # $a62C TRACE HIGH ADDRESS 
0341 scRo # $4630 SYSTEM SCRATCH AREA 0 
The fina! thing to remernber about the O3A1 SCRI # $4631 SYSTEM RAM SCRATCH AREA 1 
trace routine is that even for those ad- 0341 BYTES #* $4632 SYSTEM RAM SCRATCH AREA 2 
dresses you have not selected, there are 0341 COUNT #® SCR1 USE SCRATCE AREA 1 
an awful lot of instructions executed 0341 PIL $AG4A INPUT PARAMETER ViLUES 
before that fact is determined. Effective O3At PRH £A64B 
ly, your cycle time has slowed drastical- O54 1 PeLf SAGNC 
ly when debug is on, and | mean by O3A1 — i. SAGND 
orders of magnitude. This can be sur- re aie ‘ Ha 
PUSIG ob Mees Ceperlnyy MienaIne 031 ENDAD ® § P3L ENDING ADDRESS IS IN P3 AREA 
code you are bypassing initializes a two 
thousand byte array. O3A1 TY F $2656 TRACE VELOCITY 
O3A1 LSTCOM # $A657 COMMAND END INDICATOR 
Last but not least, | would tike to ex- 031 HAXRC ® $4658 MAXIMUM RECORD/BYTES FOR OUTPUT 
plain the strange code that appears at O3A1 USREGS * $4659 TRACE HOLD OF USER REGISTERS 
the start of the program. H comprises 
the ASCH commands that sel up the 
user command vector, the MAXRC byte 
— count, and the extended trace routine SYMBCI, TASLE 2000 2306 
addresses. By putting them there, bonly ADIST 0286 ADJUSH OOFD ADJUST OOFC ADVANC 031A 
have to remember one address instead ADVILP 031D BRAKCH 0263 BYTES A632 CHKLOP 032B 
of half of a dozen. By using the SYM ex- COMERR 0231 COUNY A631 CRLF = 834D CRLFSZ 8316 
ecute command, all the edcdresses get CGRAD GOFE CURADH OOFF CUROP O?F4 CURRLP O2FC 
st up forme ee eee, Gee ae 
DE, 3 SPREG hk 
’ B s eee FIXSBY 0270 FOUND 0337 GETOP 0252 HI 0353 
cae Ff = seen pa iapaiealisor TBCGHP 8252 ibCHR 8A1B INITCO 0200 INSTAT 6386 
LISTER O2EB LISYLP O2F1 LO 035D LSTCOM A657 


when you relocate these routines. Also 


: ¥L 5, KOTRAN 037 : 
remember that the addresses must bein HEINE R098 CENA uaa OUTBYT 62FA OUTPC 82EE 


OUT o2cD OVER 0298 PGMDON 0318 PGMEND Q3A0 


ASCH, not in hex. Thero is also one place POH AGUF Pol AG6ME PRH AUD PRL AOUC 
In the extended trace roulirie that must PRSCR 829¢ PSH AGSMB PSL AGIA PSSCR 8247 
be changed to equal the high order byte CULTDO 0261 EEIUHN 0380 SCRP £630 SCRQ A631 
of the address the routine resides at. SIGNCH O7CE = SIGNGK O2DD =—s- SKIPQ. 0259 = SPACE. 832 
This is so the routine can tell if it is trac- TALLEN 0359 TABOUT 03835 TABTST 0384 TABTYP 0391 
Ing itself. It also means the program TESTK 62C2 THIGH A62C TLOW A626 TRIPLE 025E 
won't trace any other program on that a¥ A656 BP 0233 UPCOMM 023A ug O2DE 
page. QGERR 0256 VOSTRT O2E8 USREGS A659 USRTRA 06341 
39 


Cm pee a cetnte TE ERRE F ge RE OF mate SA ARE AEE SM ESTE TE BENT RETR COT RE MIE A YE Oe ERY TET RYT GT i ta, anal Zak at real ie alll 


yeaa to know to sinibisniewl the ‘GET 


Everything ee 


i ee ae a ee, oe 2 











function in SY Mi 1 BASIC. The use of the GET function is 


discussed a 


ic; Several examples are provided. 





The SYM-1 BASIC Interpreter provides 
for an unused "GET" token which always 
produces a Function Cali error (FC) 
whanever it is encountéred in a program. 
GET is an alternate form of INPUT except 
that it only inputs ane character for each 
call and that one character can be any 
keyboard character ieluelng control 
characters and lower case Jetters. The 
first section of this article describes a 
simple procedure to implement this very 
useful command. The second section ex- 
piains in detail how it works and the the 
third section offers some examples of 
BASIC subroutines ulilizing the GET com- 
mand. 


Section Qivse 
Imelomenting the GET Command 


Step 1: Deposit and Verify the code in the 
OBJECT LISTING. if it consistently will 
not Verify, 1iead Section 2 before pro- 
ceding. : 


Step 2: Enter the following monitor com- 
mand: 
SD A600,A854 


Step 3: Juma to BASIC: 
JO 


Step 4: Enter and RUN a BASIC program 
such as: 

100 PRINT “HIT ANY KEY:” 

110 GET AS 

120 PRINT ASC(AS) 

130 GOTO 106 


The GET command is always used to 
input a character string which will nor- 
mally have a lenath of one. (A doubte- 
quote (‘) or a NULL results in a length of 
zero which causes en FC error to occur. 
See Section 2.) Of course, the string 
variable can be ener simple or an ele- 
ment of a matrix, but only one variable is 


Aer BRT te ie rine ere 


META mS Sameer per re 


allowed for each GEF and it cannot be us- 
ed in a Direct Command. When GET is en- 
countered in a running program there is 
no prompt “?” and prompt Strings are not 
allowed. This ts intentional to ailow for 
several Characters in a row to be typed in, 
in response to several GET's or for a loop 
which examines the characters for errors 
as they are typed. tt is therefore normal to 
precede GET with a PRINT statement to 
serve as a prompt. 


Section Two 
Detailed Explanation of 
GET impiementation 


The assembly language program to im- 
plement GET is stored in two sections of 
RAM that are unused by both the Monitor 
and BASIC. The first of these is the first 
32 bytes of System RAM which are nor- 
mally allocated as the Scope Buffer but 
are not changed in any way as long as 
none of the nex keypad buttons are push- 
ed (except, of course, RST and DEBUG 
ON and OFF). These 32 bytes are located 
at $A600-3A61F. The second section of 
RAM is the 16 bytes located on page zero 
at $E8-3F7. The code can be entered into 
your SYM-1 and verified using the object 
code listing or if you have Synertek's 
RAE-1, you can enter the source code as 
it appears in the assembly listing. After it 
is assembled the block of code belonging 
on page zero must be moved there from 
page SOF with the monitor command: 


B E&,FE8-FF7 


The code can not be assembted directly 
on page zero since RAE-1 also uses that 
biock of rnemory. If you happen to have 
EPROM in your system you can also 
relocate the code there (delete line 300 
JMP GET.COMD.3). In order to activate 
GET, the System Output Vector ($A664,5} 
must be changed from its present vaiue, 


40 


Sania a alte bait tDh eS 


ommand 


George Welis 
1620 Victoria Place 
La Verne, CA 91750 


assumed to be the Terminal Output 
routine (TOUT = $8AA0), to the GET com- 
mand processor (GET.COMD = $A600). 
This vector can be changed at the 
monitor level with the simple command: 


“SD A600,A664 


or it can be done in BASIC with: 


POKE 42596,0: POKE 42597, 166 


which can be either a Direct Command or 
part of a program. !f you decide to 
relocate the code to some other address 
than $A600 then be sure to use the cor- 
rect address when changing the System 
Output Vector. Please be aware of the 
fact that the System RAM is write pro- 
tected after a warm start to BASIC (G 0} 
unit after a LOAD or SAVE command is 
attempted (if you have the new Monitor 
ROM) or until a cali to ACCESS is made 
some other way, for example, with 
QQ = USR(&''8B86",0) or unless the 
jumper at 45-MM is removed. Incidentally, 
since BASIC passes the program size and 
file ID information to the Tape routines 
through the System RAM, the first LOAD 
or SAVE after a warm start won’t work. 


To understand how the GET command 
is processed look at the assembly 
language fisting. Each time BASIC at- 
tempis to print any character, this routine 
will be entered. If the character to be 
printed is a carriage return, which is the 
case when any error is encountered, then 
further testing is performed to see ifitisa 
Function Cali error and then if it was 
caused by a GET token. |f any of the pro- 
per conditions are not met then a jump is 
made to the Terminal Output routine or to 
whatever special output routine you 
might have. 
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Assuming that all the conditions for 
ihe GET command ere met, ther twelve 
bytes are taken off the stack to account 
for the series of JSR’s invelved in printing 
the error message. Next, the BASIC Input 
Buffer is set up as it would be if a single 
character were entered in response to an 
INPUT command. However, the routines 
that nornally bring characters into the In- 
put Buffer are bypassed because they ig- 
nore all control characters (except BELL) 
and change lower case letters to upper 
case. Instead, the Input Buffer is loaded 
directly by the GET command processor 
so that atl characters will be allowed. In 
addition, a double-quote is automatically 
inserted before the typed character so 
that commas, colons and spaces will also 
be properly interpreted. After the typed 
character a zero is inserted which is the 
End-of-Line token. There remains an am- 
biguity over two characters which can be 
typed in, namety, NULL and double-quote 
(), both of which will be interpreted as a 
string of zero length. The NULL looks like 
the End-of-Line token and the doubte- 
quote looks like the End-of-String 
character. if you are not concerned with 
this ambiguity in your application, skip 
the remainder of this section. 


There are two ways to avoid the am- 
biguity between double-quote and NULL. 
First you can change the assembly 
language instruction on line 350 from 
AND #$7F to ORA #$80 and then subtract 
128 from each character after the GET 
statement. Example: Change BASIC pro- 
gram line 630 to: 


630 CHARS = CHRS(ASC(CHARS)- 128) 


The second way to handle this is by in- 
serting three instructions between lines 
350 and 360 of the assembly program as 
follows: 

CMP #322 
BNE 42 
ORA #380 


But this will require relocating the code to 
accomodate the additional bytes of pro- 
gram. (Due to a minor error in RAE-1, the 
branch must be entered as BNE = 4+ 3.}In 
this case, only a double-quote has its 
most significant bit sct. it is not 
necessary to subtract 128 as long as you 
treat the ASCII code for double-quote as 
162 instead of 34. Also, Hine 630 of the 
BASIC program should be deleted. 


Section Three 
Examples of Using GET 


The remainder cf this article will 
describe several BAS:C subroutines 
which can be used to sivnulate the INPUT 
function for integer, numeric and string 
variables. Also doscribed is a means to 
disable the BREAK key to make il possi- 
ble to write programs that are incapable 
of being clobbered by the operator. This 
is an especially important feature when 
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running programs for the novice. If you've 
had the frustrating experience of trying to 
leave your computer in the hands of the 
kids to play games only to have them 
forget to press RETURN after every input 
and not press RETURN without some in- 


fF 85 
29 


EO 88 
40 AO 
9A 
1E 4C 


1F Fert O 


$C ER C9:50 


DO 04:°6A 
SA BA: 83 
2C BSs1tF 
ES G0sDE 


Ag 


put, tnen you know what a boon this can 
be. {t can save you from having to reload 
a program because the kids have 
unknowingly deleted lines of program by 
typing in numbers while in Command 
Level. 
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10 PROMPTS = “INPUT A STRINGS © 
11 GUSUR 640 

12 PRINT PHRASES 

13 60TD 16 

20 PROMPTS = “JNPUT A NUMBER! ~ 
2: GOSUF 500 

22 PRINT HUMEER 

23 6070-20 

30 PROMPTS = “INPUT AN INIEGER? ~ 
31 GOSUE 460 

32 PRIMT KUMPERX 


33 GOTG 33 
35 3 
95 REM eee SUBROUTINE TO ACTIVATE “GET” ROUTINE «eo 


160 QG & USHCR"BBGS"20s: REM ALLOW ACCESS TO SYSTEM RAM 

110 POKE 4259.0? POKE 4259751663 REM CHANGE DUTPUT wECTOR TO "“GET™ 
120 RETURN 

185 RPEH ooo SUBROUTINE TD DISABLE “BREAK” KEY eo 

195 REN SIMULATE SONITTOR COMMAND: .S0 862Ds Ros? 

20G Ge & USP CR "BBES"s 6+: REM ALLDOw ACCESS TO SYSTEM RAP 

210 FORE €25976:103% FPOKE 425715366% REM STORE INSYEC*1] IN FS 

2ZU POXE €42572>45: POKE 425735134: REM STORE So52D (Ci. C-RTS) IN F2 
220 OF * USK BSIl's+ Oss REM EXECUTE STORE DOUELE syTe COMMAND 

240 RETURN 

285 REM ees SUBPOUTINE TO ENALLE “BREAK” KEY ooo 

295 REM SIMILATE MONITOR COMMAND: .SD SB3C R67 

300 Q@w = VIRCE" GREE "+02: KEM ALLOW ACCESS TO SYSTEN RAG 

310 POKE 425701032 POKE 4257151667 REM STNPE INSWECt+L IN P3 

B20 POKE 42572-60! POKE 42573-1399: REM STORE 8€#3C CTSTAT) IM Fe 
320 OR © USR(B"861D"sG>! REM EXECUTE STORE DOUBLE BYTE COMMAND 

940 PETUPN 

39S REM eee SUBROUTINE TO INPUT AN INTEGER ooo 

400 GOSUB SOQ: REM INPUT A NUMBER 

410 IF BRS CNUMBERD > 32767 THEM 400: REM REPERT IF DUT OF FRNGE 

420 NUMRER% & INT CARS (NUMBER? 2 @S6N CHUMBERD? KER DROP FRACTIONAL PART 
4390 RETURN 

495 REM ee SUBROUTINE TO INPUT A NUMBER #40 

$00 GOSUE 600: REM INPUT RA STRING 

51G NUMBER = VAL CPHEASES2: REM CONVERT STRING TO NUMBER 

SéG RETURN 

595 PEM oe SUBROUTINE TO INPUT A STRING eee 

600 PRENT! PRINT PROMPTS$5s REM PRINT PROMPT ON NEW LINE 

610 PHRASES «© “"s REM DELETE PHRASE 

620 SET CHARS 

630 IF LENCCHARS> & 0 THEN CHARS = CHRE (34): REM CHANGE NULL STRING TOD ~ 
640 IF ASC CCHARS) <> B THEN 6860: REM BRANCH IF MOT BACK- SPACE 

656 IF LENCPHRASES? © 0 THEN PRINT RIGHTS (PROMPTS, 195% SOFG Get 

666 PHRRSES © LEFTS (PHPASES) LEN (PHRASES) -1): REM DELETE LAST CHRFAC TER 
676 PRINT 7 "3 CrRscogoes GOTO 620 

660 IF ASC(CHAKS) = 10 THEN 600! REM START OVER IF LIKE-FEED 

690 IF ASCCCHARS® © 13 THEM PRINT! RETURN? REM DONE IF CARRIAGE RETURN 
700 PHRESES §= PHRASES + CHARS 

710 GOTO 6e0 

735 REM ee SUBRDUTINE TO DE-ACTIVATE “GET” ROUTINE eee 

800 GQ = USR(2° BEB6 "2022 REM ALLOW ACCESS TO SYSTEM RAM 

BLG POKE 425960160: POKE $2597,13&: REM CHANGE OUTPUT VECTOR TO “TOUT” 
820 RETURN 

RK 
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The BASIC program lisitng contains 
two parts. The first part (tines 10-35} con- 
tains sample drivers for the three types of 
INPUT’s and the second part (lines 
95-820) contains the actual subroutines. 
The first subroutine (GOSUB 100} 
changes the output vector to point to the 
assembly language program which of 
course must be loaded prior to entering 
BASIC. The last subroutine (GOSUB 800) 
can be used to switch the output vector 
back to its normal state. The second and 
third subroutines can be used to disable 
and enable the BREAK key. These 
routines use part of the Monitor Store 
Double Byte Command to change the In- 
put Status Vector because it is impossi- 
ble to do the same thing in pure BASIC 
since the status would be checked bet- 
ween the two POKE’s and would result in 
the program going to an undesired place. 
The BREAK is disabled by simply poin- 
ting it to a routine that always returns a 
status clear. 


The subroutine beginning at tine 600 
simulates the !NPUT command for a 
character string. The first thing it does is 
print a prompt string which should be 
defined prior to calling the subroutine. 


DASSERPELY LISTING 


The name of the prompt string is PRO- 
MPT$ (or PR$). Next, the string which will 
contain the typed characters is cleared. 
Its name is PHRASES (or PH$). Then a 
loop is entered which GETs the typed 
characters one at a time and examines 
them before it puts them into the 
PHRASES string to see if they are any of 
the following special characters: 


1. NULL (same as doubie-quote) is 
changed to”. 

2. Back Space deletes previous 
character. 


4. Line Feed deletes entire line. 
4, Carriage Return ends the input. 


No test is made to limit the number of 
characters to 255. Therefore, typing in 256 
characters is a way to “BREAK” a pro- 
gram that has the BREAK key disabled 
since it will cause a Long String Error 
(LS). 


The subroutine beginning at line 500 
simulates the INPUT command for a 
number. {It does this by calling the string 


CU10 GET. TOKEN BE $98 PASIC "GET" TOKEN 
ou20 FC. ERRO® bE $02 BASIC “FC ERROR” TOKEN 
0030 INPUT.COomD .Te SCOBS BASIC INPUT COMMAND INTERPPETER 
0040 INP, BUFFER .DE $1E PASIC INPUT RUFFER 
6050 TOUT -DE SBAARD MONITOR FERMIMAL DUTPUT RBUTINE 
ee INTCHR »DE $6A58 MONITOR INFUT TERMINAL CHRRACTER 
079 
6060 .0S 
Ge90 «BA SAGO 
0160 
G110 $ eee PROGRAM TD ISPLERENT SYM-1 RASIC “GET” COMMAND eee 
0126 
R6OO- CS OD 01320 GET.COmMD CMP s$OL TEST FDR CRPRIAGE FETURN 
P4O2- DO Oe 0140 FNE GET.COMD.1 AND BRANCH IF MOT. 
AG6OG- EO 0S o150 CPx sFC. ERROR TEST FOR FC ERROR AND 
A6te- DO 04 61690 BNE GET.CBSD,1 BRANCH IF NOT. 
RGUH- CO Se 0170 . CPY slL>GET. TDKEN*+6ET. TOKEN TEST FOR GET ant 
f60H- FO 03 0186 BEQ GET.COMD.z BRANCH IF SO. 
ASOC- 4C AG BH O190 GET,COMU.1 JnP TOUT IF NOTs CONTINUE OUTPUT. 
bze60 
fG0F- BR 0210 GET.COMD.2 TS TAKE 12 BYTES OFF STREF. 
A610- SA vera TXA ALREADY IN BINARY MOLE ANG 
FSLI- 69 OB GeEs0 Apc 232-1 CARRY SET» $0 ADD 11. 
AE13S- AA 6240 TAX 
F514~ 9A 0230 TRS 
ASL5- AD eC 0260 LDA #%s STDRE COMMA IN FRONT OF 
RE17- BS 16 G27 STA *IN®, BUFFER~1 BUFFER CHEEDED Br BSIc?. 
A6Lo- AD ec be80 LpA «-" STORE QUOTE IN BUFFER TO 
AGIR- 85 1£ Ge96 STA INP. RUFFER PLLOW AUTO STRING IMPUUT. 
AGIL- 406 EE OQ C3HY JmMP GET.COMD.3 CONTINUE ON PAGE ZERO. 
O31 
O2e20 » BA SES STORE $ES SOLE AT SFES> 
0330 Mc SFEB MOVE WITfH: 5B €aeFES-FFP 
QUES 26 52 BR 0340 BbET.COMD. 32 JSP FNTCHR InPuT fF OCHSFACTER. 
DOER- é9 7F 0358 AND s$7F CLERe PREITY BIT. 
OGED- at iF 0366 STA @InF, BUFFER+1 FUL IT IN RUFFER. 
QOEF- Ae 1D 0379 LON eINP. BUFFER-1 RX NEEDED Fy BASIC. 
BOF1~ AC Ja 0330 cDyY #6 ¥oQ@ NEEDED BY Bite. 
OGFS- e¢ 2b 03590 STY e@INP. BUFFER+C2 END-OF-L INE TOKEN. 
GOF5- 4c EA CD 0400 JNP INPUT. COMD+49 CONT INTO BASIC. 
0430 En 
LASSt. FILE &€ + © EXTERNAL 2 
‘GET. TOKENS 0098 /FC.ERROY=06008 “INPUT, COMBEC IRS 
ZIMF, BUFFERS OGLE 7 TOUT =e8AAd ZINTCHREGASS 
GET.CGMD=Ro OU BET. CGMD, 1=ASeC GET. COMG, 22A6 OF 
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input subroutine and using the BASIC 
VAL function to put the string into the 
variable called NUMBER (or NU). If the 
string does not convert correctly into a 
number, no error is generated, instead 
that portion of the string up to the error is 
used (or zero if it is completely wrong). 
However, if the magnitude of the number 
is too large for BASIC an Overflow 
Error(OV) results. This is another way to 
“BREAK” a program even with the 
BREAK key disabled. 


The subroutine beginning at line 400 
simulates the INPUT command for an in- 
teger. it does this by calling the number 
input subroutine and using the BASIC 
INT function to convert it to an integer 
called NUMBERe (or NU}. If the number 
is too large to be an integer, the prompt is 
repeated to avoid an error. Also, the frac- 
tional part of a negative number is drop- 
ped instead of rounding up to the next 
larger integer (absolute value). 


Obviously, similar sorts of routines can 
be written to accomodate any particular 
requirements you might have. One word 
of caution: at the lower baud rates BASIC 
can’t keep up with a fast typist. Using the 
BREAK disable subroutine will keop the 
program from aborting but might result in 
incorrect characters being read. How- 
ever, if they are read incorrectly they will 
also be echoed incorrectly, so backspace 
over any errors and retype. At 4800 baud, 
BASIC can easily keep up with ail but ihe 
fastest typist. At 110 baud it isn't hard te 
get incorrect reads, but even then it’s not 
likely to be a problem with & novice 
operator. However, if you are running at 
110 baud it is probably because you are 
running on a teletype in which case you 
will have to handle the character deletes 
with something other than a back-space. 


Ce Eg ET AEP SNE RI STON tae Ft tte Ns 


ee ae A hl a ear Bia aN a a 


cnet eaten em tee ee ed ~ 
- Tem tate an ade PE RPP ELEN TE aA ga eT EM ES OS 


A alee ya 


Ae Re ke ee 


penn eae a ON Mem 
PS psi 


GV ioe ke Maer Ee yr; 
oti IS RICHIOPY bd 





a a ale EY aie he a ae Ne ea eb anil ale oar we 


zs 


2ANSION 


- 


3 


An. 8K SYM from a board small enough to fit in the 
Synertek logo area ef a standard enclesure? This in- 


terasting modification ma 


y violate good engineering 


practices, but itis difficult to argue with the designer's 


result. 
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Synertek States in their SYM-1 
manual, “it is believed thet most users 
of the SYM-1 will ultimately use a TTY”. | 
disagree. Most users, like me, will pro- 
badly use some type of CRT terminal. 
The fuli power cf the SYM monitor is not 
really appreciated until you connect it to 
a CRT or TTY. No wonder that Synertek 
made such a statement in the manual. 
The addition of a terminaliurns the SYM 
into quite a little computer! 


There is only one drawback to adding 
the terminal. Once you have it con- 
nected, you'll neti ta expand the SYM's 
memory to keep up with the larger pro- 
granis, interpreters, and assemblers that 
you ore sure to come up with! 


Tiny Basic 


One of the easiest and feast expen- 
sive additions that can be made to the 
SYM, after the addition of a TTY or CRT, 
is Tom Pittman’s Tiny Basic. it is anly 
$5,00 in pape: tane format frorn him at 
lity Bitty Computers, FO Box 23189, San 
Jose, CA 95153, Several ASK dealers self 
li on Cassetie for $10.00. Get Version 
V.1K for the 602 thar staris at 0260 hex. 
lt will fli from $0200 to SOAFF, leaving 
$0800 to SGFFF evaiiable for programs. 
Since the SYi alresdy includes a Break 
Test routine in its moniter, Ht is even 
simpier to interface Tiny Basic to the 
SYf4 than to the KIM. Make the following 
patches: 


02068 4C iB BA JMP INCHR 


0209 4C 47 BA JMP OUTCHR 
020C 4C 2C BB JMP TSTAT 


{ also made tha following optional! 


changes to my copy: 


O20F 0&8 Changes the character 
correction code to the 
ASCII backspace code. 


0210 40 Changes the line cancel 
code to the “@" sign. 


0971 2A Changes the prompt char- 
acter from “colon” to 
“asterisk”. 


fMemory Limltations 


Tiny Basic is a very good interpreier, 
for its size, but only 1924 bytes are left 
cut of the SYM's 4K RAM for Tiny Basic 
programs. | had an extra pair of 2114s on 
hand after | got Tiny up and running, and 
decided to see if there wasn't some way 
that | could make use of them. 


| removed 2114s U12 and Ut3 from 
their Sockets, mounted the extra two 
21148 on top of thein in the so called 
“piggyback” fashion, and soldered all 
pins of the extra 2114s to the same pins 
on the originals, except that the pin 8s 
were left unconnected. 


l attached 39 GA wire to these pins on 
the two added 2114s, making sure that 
they were welt insulated from the pin 8s 
of tho original 2114s. The original ICs 
were then plugged back into the SYM 


and a memory test was run. So far, so . 


good. 


Ut, a 7415138, is a decoder that 
divides the first 8K of the SYM's rnemory 
into 1K blocks. The signals froin it that 
correspond to the first four 1K blocks 
are used as the chip select signals for 
the original 2114s. The wires from pin 8 
of the lwo added 2114s were wired to the 
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fifth signal from U1, which is at pin 11 of 
its package. 


Repeating the memory test, | had 5K 
of memory! | had just doubled the 
memory Space available for Tiny Basic! 
Couid it be expanded further? Perhaps, 
but not this way. The 2114s were too 
close together and got hotter than | 
would like to see them get. 


Bumble Bees Can't Fly 


The address and data lines from the 
6502 are only guaranteed to drive up to 1 
TFL load and 130 pf of capacitance. No 
buffers exist on the SYM to reduce the 
joeding. Adding up the capacitance ef 
all the devices already on the SYM that 
are wired to the data and address buses, 
and adding a conservative figure for the 
Capacitance of all the PC traces them- 
Selves, shows that the 6502 is being 
pushed to its limit already. 


But those values af capacitance froin 
the spec sheets ara maximum values, 
while the 130 pf is a minimum. Let’s try! 
The goal is to fit it in, over the logo and 
Synertek name. 


| built up a small perf board with iC 
sockets and wired themi together using a 
wiring pencil and 36 GA solder strip- 
pable wire. Nine sockets were on the 
board, and an 18-pin homemade DIP 
plug plugged into the SYM’s U19 socket 
to pick up most of the required connec- 
tlons. 


Additional wires were run to the data 
lines at U12, and to the chip select 
signals from UT. tt worked! i had an 8K 
SYM! And the board was small enough 
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to fitin the ares of the Synertek logo anid 
name, between Ut and the original 
memory chips. 


Several other SYM owners were very 
interested in my design, even though it 
violates good engineering practices. 
Enough interest was shown to commit 
the schematic of Figure 1 to an artwork 
and make up a few dozen copies of the 
board. This version is much neater {han 
the prototype. 


The board is double sided and has 
plated through holes. Two 16-pin OIP 
jumpers connect from it to the SYM's 
U12 and U19 sockets. (Ever try to buy an 
48-pin jumper?) Four wires run from the 
board to pins of U1. U12, UI9, and eight 
other 2114s mount on the final board. 


None of the copies built to date have 
falled to work satisfactorily, nor does an 
oscilloscope show any degradation of 
the 6502’s signais. My SYM has U20, 
U21, U22, U23, and U28 instalied, so it is 
close to a worst case. | have had several 
dozen blank PC boards made which | will 
make available to other SYM owners for 
$5.00 each, with instructions. Please in- 
clude a self addressed stamped 
enveiope. 


Rosuits 


| will have to admit that the added 
board is an expansion to the SYM. but it 
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certainty doesn’t expand its size by 
tnuch, does it? Tiny Basic now has 5K 
for its programs, a pretty respectable 
amount of memory. Synertek’s BASIC, 
which is excelient, has 7679 bytes free, 
at initialization, insiead of 3585. Many of 
the applications that ! had only con- 
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sidered running on my KIM (29 + RAM!) 
system are now being run on the SYM, 
due to the faster tape interface, suffi- 
cient memory, BASIC in ROM, and the 
capabilities of the SYM's monitor. 

It was certainly worth the trouble to 
try, even if bumble bees can’t fly! 


5, 6, 7, 15, 16, 17, 38 
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Figure 2: The 8K SYM. 
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The SYM cassetie tape WO can not load continuously 
from 6000 on. The end of page zero and the end of page 
one can not be directly loaded. A program and technique 
are presented which simply get around this situation. 


Robart A. Peck 
P.O. Box 2231 
Sunnyvale, CA $4087 
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The basic SYM-1 comes equipped 
with IK of user RAM, most of which can 
be used for program metorial. This RAM, 
however, because of usage by the 
system monitor, ig cet contained in a 
continuous block. 


Specifically, the area from roughly 
O1D1 16 OIFF is used as a stack area. 
Any data or return addresses pushed on- 
to the stack curing program {or moniter 
rouing) execution wilt erase and replace 
any program material which one might 
atierapt to store in these locations. 


Likewise the SYM manual indicates 
that the page zero locations from COFO 
to GOFF are used occasionaily by the 
monitor program. 


Using the SYM tape dump routines, 
we are able to dum) a continuous block 
0000 to OSFF to tie tape but it is not 
possible to reload this block in the same 
martnes because of the monitor usage of 
the areas specified avove. 


tr order to make as full use of the 
memory space as possipie then, we 
must segment. the programs, stozving one 
segment in the arca from G0G0 te MOCK, 
anothar from 0160 to O1CF and the third 
from C200 to OGFF (or higher if additionai 
raemory Is installed). 
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To store the complete program on 
tape, we must store the segments in- 
dependently, since that is the only way 
we can properly reirieve them. Justi as an 
example, let’s say that the first segment 
hes an (0 byie of “02", covering 
0000-0SEF, the second segment an ID 
byte of 03" (0109-01CF) and third an ID 
of “04”, (extending from 0200 to the end 
of the program). 


Then to reload the program from 
tape, we must issue three sets of com- 
mands, specifically: Load C2 (CR), Load 
03 (CR), Load 04 (CR). We must wait for 
the tape load in between entries. Then 
we must issue the command which 
Starts the program. If the start location 
is 0200, we must enter: Go 200 (CR). 


It would be much simpler tf we were 
able to enter all of the cornmands at 
once and have the machine load all the 
segments in the right places and then to 
auto-jump to the start of the program on 
completion of the load. 


Well there is an easy way to set this 
up with the SYM-L A 1&-byte program 
entered by the user into any 16 con- 
secutive fecations will act as the initial 
joader program. This is shown in Figure 
One. 


AS 


This program would load a program 
with an ID equal to “01”. Because we did 
a jump to the tape load routine rather 
than a “JSR”, an interesting thing hapr- 
pons. When the tape load routine is done 
It executes an “RTS", a return from 
subroutine. This causes the fast two 
bytes pushed orito the stack to be pulled 
back off and loaded into the program 
counter. 


Therefore when we complete the 
toad of procram “Ot”, we will execute a 
jump to Jocation 0200 because this is the 
two byte address we pushed onto the 
stack before the tape load routine was 
ordered. Program "Ci is, in this case, in- 
tended to ba loaded into lociions 
0200-0219 and is shown in Figure Two, 
described below. 


This program will load the segment 
“92” into locations 0-Ci, then “03” into 
locations 100-1C1, arid finally segment 
“04” into locations 0200-03FF. Note that 
program segment ‘04"' writes over the 
area where program ‘Ol’ was loaded. 
Hlowever, since we were under control of 
the monitor program at the time, it did 
not matier at all. Besides this, once the 
third sec¢ment is fully Joaded, we no 
longer need the loader program in 
memory. 
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After tha load, wa execute the RTS 
in the tape loader routine. Since we did 
not jump to it as a subroutine for the 
load of the tast segment, alt it does Is to 
pull 6700 off the stack and uses this as 
the focation of the next instruction to ex- 
ecute. 


Therefore by loading those initial 16 
bytes in the first program described, we 
cause the machine to load program 1 
which began automatically to load in 
turn programs 2, 3, and 4. Then it began 
the execution of our loaded segmented 
program at location 0200. 


The only cautionary noie in using 
this type of sequenced loading is to be 
certain that ihe toad control segment is 
located in the area of memory which is 
overlayed last by the final program seg- 
ment to be loaded (04 in this case). 
Otherwise you will erase the ioader 
before the entire group of segments is 
brought in. 


The !6-byte setup program you will 
note is fully relocatable, and could even- 
tually be linked as a part of your monitor 
routines. However to make it more 
general in that case, the instructions 


Figure 1: The Bootstrap Program 
(Load and start Segment Loader} 
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now specified at 020B could be, for ex. 
ample, A5 EE, or reference any other 
zero page location so that the ID byte 
could be preloaded there by the user and 
retrieved by this routine for use later, 
This also assumes that the user has 
committed this routine to ROM. 


This sequenced loading technique 
has other uses as well, but that is 
another subject and may be the subject 
of a future articte. 


RAM 


9200 20 &6 88 JSR ACCESS sUNPROTECT SYSTEM 
0203 AQ OC LDA #00 sSTACK LO BYTE OF 
0205 46 PHA sPROGRAM OL START ADDR. 
0206 AS 02 LOA #£02 *STACK RI BYTE OF 
020% 48 PHA sPROGRAW OF START ADDRe 
0209 AQ OO LOY 43800 sTAPE MCDE (80 IF HI SPD.) 
0208 Ag OL LDA #301 sPROGRAM ID SEARCHED 
0200 4C 78 8C JMP LOADT sL.OAD PROGRAM Ole 
Figure 2: The Segment Loader Program: 
Loads segments 02, 03, }4 then starts execution at location 0200. 
0<€00 20 &6 &8 JSR ACCESS sUNPROTECT SYSTEM RAM 
09203 AG O00 LOA ASOO tSFACK LO BYTE OF PRCGRAM 
020% 48 PHA sSFART ADORESS 
90206 AS O02 LDA #302 sSTACK FI BYTE OF PRCOGREM 
0208 48 PHA sSTART ADDRESS 
0209 AQ 00 LDY ¥500 , sKIM MODE (80 FOR HI SPCe) 
020B AQ Q2 LOA #$02 sPROGRAKW 1D 62 
020D 20 78 EC JSR LOADT ~JSR TO TAPE LOAD SUBROUTINE 
O21 a AO 00 LOVY #$ 30 7TAPE MCDE 
OGel2 AQ 3 LDA #203 +iC O03 
OF1L 4 29 78 &C JSR LOADT 7JSR TO TAPE LOAD 
O217 AQ 00a LDY #00 sFAPE MODE 
0219 AG G4 LDA €5O4 7*§D 04 
O24 % 4C 78 8C JMP LOADOT sTAPE LCAD *JUKMP* » BEGINS 
: sPROGRAW¥ AT G200 WHEN LOAD DONE « 
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at you are doing. There are a few iricks required 


Adding an ASCH keyboard to a SYMvis fairly simple, . 
know wh Robert A. Peck 
P.O. Box 2231 


Sunnyvale, CA 94087 


and some sunderé standing of the SYM Monitor is needed. 
And, itis ail presented here. 





The Synertek monitor program has a 
feature which allows if to communicate 
directly with a teletype sysiem. This is, 
when you are in the reset mode, the 
monitor will scan both the onboard 
keypad and the teletype inpil port to look 
for the first keystroke. Alter finding the 
first stroke, either the keypad or the 
teleiype is used as the exclusive input to 
the moniter program. 


Because of the teletype interface, it 
would, at first thought, be an excellent 
way to expand the basic SYM system. 
However, when one considers the bulk, 
cost and availability of a teistype, other 
alternatives for early staga expansion 
may come io mind. 


Synertek also offers a key- 
board/video display unit for the SYM-T, 
known as the KTM-Z. It is a very versatile 
unit) but the present list price of $349 
could cause some of us to wait a bit to 
budget for its eventual purchase. What 
then to do in the meantime? 


To at least begin a system expan- 
sion at a fow cost, one might consider ad- 
ding a full ASCI! keyboard now and a full 
video display as a separate step at a later 
dale. ASCII keyboards are availabie on 
the surplus scena for as ititle at $35, so 
this seems like a good piace to start. 


An initial thought in adding the 
ASCII keyboard to the SYM would be to 
duplicate the functions of the teletype. 
This would pose 2 couple of unwelcome 
complications, specifically the choice of 
an appropriate baud rate and the addition 
of a parallel to serial conversion to the 
ASCII keyboard output. 


However, if we attach the keyboard 
to the teletype input and log onto the 
keyboard, the SYM monitor will respond 
to us in bit serial mode as weil. We would 
then, at least for a period of time, fose our 
display capabilities. We would have to 
restore the onboard display vector in 
order to see the results of our keystrokes. 


Since a certain amount of software 
had to be written anyway to bypass the 
above problem, it seemed appropriate to 
solve some hardware oroblems with soft- 
ware instead. | added VIA No. 2 (6522) to 
the system to provide an extra set of in- 
put perts, one of which | dedicated to the 
parallel ASCH keyboard. Port B is used for 
the 6522 timer functions so io preserve 
these for future use.; Port A was chosen 
for the keyboard. 


In the attempt to add the keyboard to 
the system, a number of items were kept 
in mind: 
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(A) All of the rnonitor functions had 
to be normally accessible (different 
key groups perhaps, but all func- 
tions still needed). 


{B) The use of the keyboard in place 
of the keypad should not interfere 
with the execution of any programs! 
had already written or adapted for 
use tith the SYM if at all possibie. 


(C) The interface routines should be 
writien in a fully relocatable style so 
that they could be incorporated into 
a monitor PROM routine if desired. 


In keeping with these principles, the 
program shown in Figure 1 was written to 
perform the monitor interfacing. 


When one desires to use the external 
ASCIi keyboard instead of the keypad, 
the routine tabeled INIT would be ex- 
ecuted. A direct jump to this routine is us- 
ed. It modifies both the keyboard input 
vector and the keyboard status vector, 
providing for entry to the other routines. 
Then it does a warm start jump back to 
the main segment of the monitor pro- 
gram. 


Foitlowing the execution of the INIT 
routine, the monitor program will always 
check the external keyboard for its in- 
puts. Only the reset key on the keypad is 
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still active at this point. To restore full 
contro! to the onboard keypad, one needs 
only to push reset or execute a jump to 
location 8B4A which is the beginning of 
the power-on reset routine (simulates 
pushing the reset switch). 


Now that we've used INIT, let’s see 
what functions we have and how to ac- 
cess them. To begin with, there are two 
routines in Figure 1 referred to by the INIT 
program: 


GKEY, the equivalent of SYM 
GETKEY, and 


KSTAT, the equivalent of SYM 
KYSTAT. 


Both routines affect the same registers 
(A,F) and have the same overall effect as 
noted in the SYM manual, page 9-3. 


The KSTAT routine reads the input 
port addressed as A801, then left-shifts 
the input byte. If there is an input there, 
the carry bit will ba set. Therefore KSTAT, 
es a subroutine, performs exactly the 
same function of KYSTAT. 


The ASCIi keyboard is connected 
with its 7 output bits on part A bits 2PA6- 


2PAO. Port 2PA7 is used for a key strobe 
input (any key down). The keyboard parity 
bit, if any, is not used in this application. 
If no key is down, the input port will be 
read as all zeros. If any key is down, the 
most significant bil of the input port will 
be a one due to the presence of the 
keystrobe bit, allowing a single left shift 
to set the carry bit. 


The GKEY routine performs the 
same function as GETKEY in that it scans 
the display while waiting for a key to be 
pressed. In the process of waiting for 4 
keystroke, the scanning of the display is 
controlled through the display scanning 
vector. This allows the user to make use 
of the oscilloscope output routine with 
oniy minor modifications, substituting a 
JSR to GKEY for the JSR to GETKEY. 


All other specifications mentioned in 
the Synertek manual for the oscilloscope 
driver routine will {hen be valid. As a mat- 
ter of fact, access to an oscilloscope and 
the use of the driver routine could tem- 
porarily satisfy a person's desire for a 
video display, at toast until some suitable 
alternative could be found. 
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The ASCII keyboard scanning 
routine GKEY handies the keybounce pro- 
blem by going into a small wait loop im- 


mediately after sensing that a key is- 


down, then scans the display while it 
waits for the key to be released. After 
release, it interprets the original 
keystroke contents by stripping off the 
keystrobe bit and returning to the calling 
program with the ASCII equivalent of the 
key in the accumulator. 


Now that we've seen how the 
routines provide for the communication 
with the new keyboard, lets see how we 


- can access all of the SYM monitor func- 


tions without resorting to the use of the 
keypad. 


Because of the direct relation of the 
ASCH! equivalents, the following control 
functions are directly accessibie: 


Memory: M Jump: J 
Verify: V Execute: & 
Block move: 8 Go: G 

Write protect:W Calculate: C 
Register: R Fill: F 
Deposit: D 


SAVE REGISTERS 
GET PARALLEL ASCII 
UNLESS NONE, THEN BRANCH 


DEBOUNCE CONSTANT 


o200- 20 85 B81 GKEY JSR SAVER 

G2Z03- AD 01 AB LDA $A801 

O20€- FO 24 BEQ WAIT2 

O208- &5 Fl STA *$F] STORE IT A WHILE 
O20A~- AD 10 LDA #$10 

o0720C~ @S &F STA *SEF 

O20F- C& FO WAIT). DEC *SFO SMALL LOOP 

0210- bO FC BNE WAIT) 

O212~ C& EF DEC *SEF LBERGE LOOP 


O214- bo FB 
0216~ 20 03 89 
0219- 2C O1 AB 


SCANA JSR JISCNV 


BNE WAITI 


BIT $4801 


SCAN DISPLAY 
IS KEY STILL DOWN? 
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C21C- 320 FE BM] SCANA WAIT FCR KEY RELEASE 
O21£-~- AS FL LDA *S¥} KEY UP, PROCESS KEY 
O220~ 29 7F AND €S7F SIRIP KEY STROBE BIT 
0222+ 26 47 BA JSR OUTCHR SEND INTO DISBUF 
0225~- A5 F) LDA *SF] GET IT AGAIN 

0227-- 29 7F AND §$7F STRIP IT AGAIN 

0229- 4C€ BB 61 dnp RESXAP RETURN WITH ASCII IN A 
O22C- Ag 10 WAIT2 LDA §$10 IF KO KEY, 

O22F- B85 EF STA *SEF SCAN DISPLAY 

0230-~- 20 03 89 SCARB JSR IISCNV THROUGH SCANVEC 
0233- C6 EF DEC *SEF A NUMBER OF TIMES 
0235~ DO FS BNE SCANB THEN GO BACK 

0237- FO C7? BEQ GKEY AND LOOK AGAIN 

0239- AD 01 A8 KSTAT LDA $A801 READ ASCII INPORT 
023C- OA ASL A SHIFY MSB INTO CARRY 
023D~- 60 RTS RETURN WITH CFLAG=1 IF KEY DOWN. 
023F-~ 20 86 8B INIT JSR ACCESS UNPROTECT SYSRAM 
O241- Ad 00 LDA £00 MODIFY 

0243- &D 61 A6& SIA SA661 KEYBOARD 

O246- AY 02 LDA {02 INPUT 

C248- 8D 62 AG STA $A662 VECTOR 

O24B- AQ 39 LDA #$39 

024D- 8D 67 A6 STA S$A667 KEYPRESS 

0250~ AY 02 LDA #02 STATUS 

0252- 8D 68 A6 STA $A668 VECTOR 

0255- 4C 03 80 OMP WARM WARM START MONITOR 


Figure 1: ASCII Keyboard Interface initialization and 
communication routines. 
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Likewise, again because of the 
girect ASCII usage by the moniter, the 
carriage return (CR), plus sign, minus 
sign, forward arrow and reverse arrow 
functions of the ASCIt keyboard will per- 
form the same functions as those 
equivaient keys on the built-in keypad. 


Accessing the remainder of the 
monitor functions will require the use of 
two keys simultaneously, in the fashion 
of a shifted character. One of the keys is 
the CONTROL key often found on an 
ASCII keyboard. The function of this key 
(if your keyboard doesn't have one} is to 
inhibit the output of the two most signifi- 
cant bits of the ASCII oulput, tn this 
case,to force a zero to both input lines 
PAG and 2PA5. This can be accomp!ish- 
ed with & single switch and one type 7408 
IC as suggesied in Figure 2. . 


The following functions are access- 
od by first holding down the conirol key, 
then pressing the indicated ASCII key: 
icontrol key referenced by CNTL below) 


Store Double Byte: CNTL P 
Load Paper Tape: CNTL OQ 
LD1 (KIM format): CNTLR LD2 (SYM hi 
spd): CNTL S 

USRO: CNTL T 

USAT: CNEL U 

USR2: CNTL V 

USR3: CNTL W 

USR4: CNTL X 

USR5: CNTL Y 

USRE: CNTL 2 

USR7: GNTL ¢ 

SAVP save paper tape: CNTL 
SAV1 (Kilt format): ONTL 3} 
SAV2 (SYM hi spdp CNTL 


As may bo seen above, alinough cer- 
tain of the keys may be ditfercnt, all of 
the monitor functions are accessible 
from the external keyboard, fulliiling our 
objectives in adding it in the first piace. 
Actualiy | have hedged a bit for a couple 
of items, but these items ! fiqure are not 
needed on the external keyboard, but 
serve their purpose better on the keypad, 

specifically ihe DEBUG OVW/OFF, the 

SHIFT, and the ASCH keypad items. 
DEBUG is a hardware function which can 
be simulated by sofware, so ina progam 
we can access the function, SHIFT is a 
mornitor transtation routine, eppropriate 
only to the placement and arrangement 
of the keys on the keypad. Finally, the 
ASCH key is sot necessary externally 
Since everyihing we outpul from the ex- 
ternal Keyboard is formatted in paratiel 
ASCII anyway. . 


The SYM-1 is 6 very powerful single- 
board computer. Yhe addition of a 
parallel! ASCII! keyboard inexpensively 
Provides us with a basis for jurther ex- 
pansion of the SYM-1's capabilities. 
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Figure 2: Adding a CONTROL key 


The SY6516 PSEUDO-16 microprocessor, 
after power up, is identical to the 6500 
series microprocessors in terms of in- 
siruction set (source code only}, registers 
and sysiem timing. However, due to im- 


Instruction Addressing 
Mode 

STA (IND, Y) 

(ABS,X) 
LDA ABS,Y 
ING ABS,X 
DEC ABS,X 
ASL ABS,X 
ROL ABS,X 
ROR ABS,xX 
TAX IMPLIED 
TXA IMPLIED 
TAY IMPLIED 
TYA IMPLIED 
TSX IMPLIED 
TXS IMPLIED 
SEG IMPLIED 
CLC IMPLIED 
SED IMPLIED 
CLD IMPLIED 
SEI IMPLIED 
CLI IMPLIED 
CLV IMPLIED 
INX IMPLIED 
DEX IMPLIED 
DEY IMPLIED 
PLP IMPLIED 
PLA IMPLIED 
NOP IMPLIED 
RTi IMPLIED 
RTS IMPLIED 
TSX FLAGS 
TSR ABS 


6500 #Cycies 


provements made in the state counter 
and look ahead carry in the SY6516, 
several of the instructions in the 6500 
series will require fewer cycles to ex- 
ecute. Instructions in this category are: 


6516 #Cyctes 


aOwsm OWA oO nto ton most IBOHODMAO SW HN 


NO FLAGS 
5 


OPFOOANMAEAANDNMNM HYMNS NNMNNNNNN NNN ARO 
N 


Table 1: SY6516 Pseuda-16 compatability to SY6500 


series microprocessors 
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Now you can have a Clock and Calander ru ni 


Clock 
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SYM at the same time you are running programs in 
BASIC. The concepts preserited can be easily generaliz- 
ed into cther ‘muiti-tasic operations. 
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Here is a machine language 
subroutine for the SYM-1 BASIC which 
keeps track of time and date while allow- 
ing BASIC programs to be run. 


A useful adjunct to a microcom- 
puter, especially Gne used in a systern, 
is a continuously raaning ciock which 
can be used to record the time at which 
events occur cr te generate signats at 
specified times. The SYM-1 includes 
tiraers on the 6522 ViA chips which Take 
implementation of such a clock casy, 
The clock can be started, set, and read 
from BASIC. 


The clock is based on the use of the 
6522 to generate & train of accurately 
spaced interrumts. The April, 1979, issue 
of MICRO contained an article by John 
Gieryic (page 31) which presentad the 
techniques of setting up and servicing 
the interrupts. The clock is an agapta- 
tion of those techniques. The program 
consists of sections which set the clock, 
initialize the interrupt, service the inter- 
rupt, and update the clock. The clock- 
calendar needs to be reset only on 
February 23! 


The program: is toaded into the 
highest bytes of available memcry. Ona 
4K machine this is SOFS4-SOFFF. After 
the program is loaded, BASIS is initiehiz- 
ed with Momory Size set at 3920 to avoid 
overwriting the pragram. The clock is set 
and started by the command PRINT 
USR(3924,t4,d,h,m), where the four 
parameters represent the month, date, 
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hour, and minute, respectively. The pro- 
gram stores the times, then initializes 
the interrupt and starts the timer as 
described in MICRO 14:31. The timer 
located at $ACxx was used to avoid in- 
terference with the cassette tape 
routines. Once every 1/20 second an in- 
terrupt occurs which is serviced in the 
routines starting at $0F90. Accumulator 
and registers are pushed on to the stack, 
then the 1/20 of seconds, seconds, 
minutes, and hours are incremented as 
needed, These four updates are done in 
an indexed loop, using a tabie of com- 
parison values (20 fractions, 60 seconds, 
60 minutes, 24 hours) stored at SOF E9 to 
see if the next timing unit should be in- 
cremented. The days and months cannot 
be incremented in the same joop, and so 
are done in the routines starting at 
$OFBD. There is a comparison table giv- 
ing the number of days (plus one) in each 
month starting at SCFF4 used to deter- 
mine if the month should be in- 
cremented. When al! needed increments 
are made the flag is cleared and the sav- 
ed registers pulled back from the stack. 


The clock may be read from BASIC 
by PEEKing at the appropriate storage 
jocations. To print the date and time in 
the form 7/20/1979 17:45:02 execute the 
commandPRINTPEEK(4083)"7" 
PEEK(4082)'°/1979 
“PEEK(4081)": ‘PEEK(4080)':" PEEK- 
(4079). The number of the month in the 
date can be repiaced by a three letter ab- 
breviation by using the following snort 
program to print the date, 


sari Spender” sg 8 oaks DORE Ra TER oe 


et: Re a or ee Tne Lie nner ot Te 


Casmir J. Suchyta, tt! 
and Paul W. Zitzewitz 
Univ. of Michigan, Dearborn 
4901 Evergreen Road 
Dearborn, MI 48128 


1 A$ =“JANFEBMARAPRMAYJUN:- 
JULAUGSEPOCTNOVDEC” 

2 MO = 14 3°(PEEK(4083) — 1) 

3 PRINT 
MIDS(A$,MO,3);PEEK)4082);", 1979" 


Starting each program with tits 
routine will let you know exactly when 
you did each job. Another use of tise 
clack is to serve as an alarm clock. You 
may want the SYM to turn on a light, 0: 
start an experiment at a certain time. To 
do this include a tight foop which in 
cludes an IF statement comparing one 
or more af tne storage tocations with the 
desired time. When the comparison is 
good, the loop will be exited and the 
computer can execute the commarid, 
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CESé 3C FO CF €8 3b FI Cr €345% 
CFSC 6% BP Fe CF €3 €3 3D F2,eF 
Cres CF €8 FO SE BE AD PC SDs2EC 
rec 72 AE AD CF BD TF AE A9-DI 
CF74 Ch 3D RE FC AR OL FC 29,69 
CF7C EF ep rp 4c #9 Ce EP Cbs 6F 
@ree po fo £6 RD C6 FC AD C3+BF 
PESO SR Ce AC EF CR ABS SA 48,7F 
OFOn 98 43 09 AM CB AD FR 99,19 


CP FOC FD CF CH Co GS FR tf 18,08 
erps 29 tp OF £9 Zi ODF FB CFs BS 
CFKSC FE FR 29 FR OF #9 C3 2D IC 
(FCA @7 AC €B AS €% AK £9 28481 
@ FEC 4@ 1% At FR OF 69 21 KELOF 
OFCS FA SF CD FI ZF Fe CE SD-€3 
CFCC FP @F aC EL @F AD 21 3D24&? 
CFDA 2 OF FS FE OD FL PF BEAL 
C FOC F3 CF 4C EL CF AP CL Ee Ee 
CFFa FOCFK 4¢€ EL @F 14 20 3C47h 
CFEC 12 €¢ @5 18 24 CE YE &S.t1 
CFF4 02% 1D 29 IF Pe LF BE 7&,EC 
CFFC LF °? 2F 2f.3A 
arse 


ee RS ie AR AR Er re ree A 


ore: 


vedas 


oe Ne IN AE 
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CAG $OPF54 

HIN * $OrFO 

HR * SOFFI 

DAY * $ORK2 

HON * $OFF3 

COMP * $OFED 

ACCESS * $8386 
OF54 8C FO OF Setine STY MIN 
OF§7 68 PLA 
OP58 8D F1 OF STA HR 
OF5SB 68 PLA 
orse 68 PLA 
OFSD 8D F2 OF STA DAY 
OF60 &8 PLA 
or61 68 PLA 
OF62 &D F} OF STA MON 
oFr65 68 PLA 
OF66 20 86 BB JSR = ACCESS 
CF69 AQ 90 LDAim $9) 
OFSS 8D 7E AG STA  $A57E 
OFGE AQ OF LDAim 30@ 
GF70 8D 7F AG STA  $A67F 
Or74 Ag CO LDAim $c0 
Or75 8D OE AS STA $ACOB 
oF73 AD OD AC LDA = $ACOD 
OF78 29 BF AND $BF 
Or7D 8D Ob AC STA $AcoODd 
OFRO AQ CO LDALm $CO 
or62 8) OB AC STA  $ACOH 
OFS5 AQ 50 LDAim $50 
CF&7 &D 06 AC STA $AC06 
CREA AD C3 LDAim $¢3 
ors 8b O05 AC STA  $AC05 
Orer 60 RTS 
Orgad 03 Intyz pt PHP 
OF91 48 PHA 
OF92 8A TXA 
orgy3 48 PHA 
cro: §=698 TYA 
Orgs 46 PHA 
orgs Dds THC CLD 
GRO? = &£O 00 LOYim $00 
OF99 AQ OO LOOF LDALm $00 
OFsh 99 ED OF STAy COMP 
oron a INY 
OFor CO 05 CPYim $05 
OFA FO 14 BEQ  ADDAY 
OFA3 18 CLG 
CPA B89 ED OF LDAy CGH? 
ora? 65 04 ADGin $C! 
OFAG DQ £A OF CMPy 
CFAC FO EB REQ LOOP 
OFAL 99 KD OP STay con 
CFa1 ag G3 FEIN LDAGm $03 
OF83 BD 07 AC STA $ACO7 
OFsS 868 PLA 
Orz? AB TAY 
area 68 PLA 
OFB9 AA TAX 
crna 68 PLA 
OF23B 26 PLP 
OrEc 40 RTI 
OFHD 18 ADDAY CLC 
O#bE AD F2 OF LDA ODAY 
orci 69 O1 ADCin 3901 
OFC3 AE FR OF LUX  ¥§ON 
orcé OD FR OF CGMPx MON 
oreo FO 66 BEQ  HEDAY 
OFCB 8D F2 OF STA DAY 
Orce 4c Bi OF JHP 0 RETN 
orni ag 01 REDAY LDAim $01 
oFb3 8D F2 OF STA DAY 
OFD6 #8 INX 
OFD7? EO OD CPX $0D 
OFD9 FO 06 BEQsoEND 
OFDB 88 F3 OF STX HON 
OFDS 4c Bi OF JHP ORETH 
OFEL A2 O1 END LDXin $Ot 
OFE3 8E F3 OF STX MON 
OFfS 4&C Bi OF UMP = AkETN 
OFE9 14 30 3G RIGH 
OFEC 18 00 00 
OFEF 00 00 60 
OFFZ 00 00 
OFFS 20 1D 20 
CFF? iF 20 1F 
OFFA 20 20 IF 
OPFD 20 1F 20 
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Liatingr Tima-of-Day Clock and Calendar 


Stores minutes 
Pulls hours 
and stores 
Pulle Day 
and 
storea 
Pulls month 
and 
stores 
Clears stack 
Unwrite protect the system RAM 
Store Low 
vyte I2Q 
Store high 
byte IXQ 
Set 
IER 
set 


IFR 
Set 
ACR 
Get 
and 
start 
timer 
return 
Pusn processor 
Accun 


X rez 


Y reg 
Clear dec flag 
Zero Y 

A 
Zeros counter 
To next counter 
Need new day? 
Go to it 
Cloar carry 
Get counter value 
increment 


HIGH=1 Conv with highest 


Go to zero ani cerry to next 


Store new velue 
Finished: clear 
{nterruot flag 
Restore 
Y reg 


X reg 

Accum 

Proceesor 

Leave 

Clear carry 

Get day 

increment 

Put month in x reg 
Soe if at last day 
Yes, go to month change 
Save new day 

Lesve 

Back to day one! 
Save 
To next month 

At ond of year (13)? 
Go to reset year 
Save new month 
Leave 

Back to January (1) 
Save 
Laave 


Table of highest values of 


- fraetiona, ssconts, minutes, hours, (dummy) 


followed by storage area for fractions, 
enconis, minutes, houra, days, ronths 
Table of max doys in each month 

{plua one) for the twelve months. 
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SYM-1 Tape Verification 


a Tae 


One of the problems with using audio cassettes on any 
system is knowing whether or not the data has been 
recorded properly. By the time you find the data did not 
get recorded properly, it is usually too late to do any- 
thing about it. Here is a technique and program to verify 
the tape dump on a SYM-1. 


EN AS PD a PI Re Here 


Do any of you other SYMMERS ever 
wonder if your tape save has executed 
successfully? This “probiem” began to 
haunt me more and more as my tape 
library grew. A fair amount of time would 
be lost if the data on my tape was in er- 
ror. It is possible (even though remotely) 
two bits could be in error such that they 
would “cancel” each other out in the 
checksum verification at the end of tape 
read. With all this floating through my 
mind | decided to write the following 
tape verification program. 


After executing a tape save (high 
speed format only) this program will 
read the data back and compare it byte 
for byte, to the data in the memory which 
you just saved. This program needs no 
external information (parameters) from 
the user, The beginning and ending ad- 
dresses of the data in memory is ex- 
tracted from the tape. At the end, the 
checksum is also verified. All the user 
need do ts rewind the tape after a high 
speed format save, execute this program 
and then start the tape unit in the read 
mode. 


The program is relocatable to any 
point in the memory. No aiterations are 
necessary. This makes it easy to move 
the program into any area of memory via 
the MOV command. Just remember to 
avoid placing any part of the program 
near the top of page one or within the 


data you just saved on tape. Please note 
that this program is compatible with 
monitor version SY1.0. 


Messages 


If the tape agrees with the data in 
memory and the checksum is correct 
then the message “good” appears on 
the LED’s. tf the checksum is in error 
{even though the data compared correct- 
ly) then the message “CSUM” appears 
on the LED's. !f any data is in error then 
the address of the first compare error 
appears on the LED’s and the program 
terminates without checking the re- 
mainder of the data on tape. 


Programming Hints 


I'd like to pass along a few sugges- 
tions to you SYMMERS just getting into 
programming. Begin your program's 
(code) at location ‘200 (page two). Do not 
put anything (code, preset constants) in- 
to page one. Any constants you need in 
page zero should be initialized by your 
Program. Do not set constants in page 
zero and then store them on tape atong 
with your code. Do not use spare system 
RAM for code, constants, or temporary 
data storage. Begin all tape saves at 
location '200. Avoid saving page one on 
tape. | urge you to follow these sugges- 
tions as it will make your programmi 
tasks just a bit easier. 
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SYM - 1 TAPE VERIFICATION 


0200 


0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 


0200 
0200 


0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0209 
0200 


BY JACK GIERYIC 
QLY, 1979 


ORG $0200 
MONITOR SUBROUTINES 


ACCESS * $8B86 
CHKT * $8E78 
MONITR * ¢eooo 
QUTBYT * ¢82FA 
RDBYTH * $8DE2 
RDBYTX * $8E 28 
RUCHTX * ¢8DDE 
START * $8DB6 
SYNC * $8082 
CONSTANTS 


CLKCON * ¢1F 
SYN - $16 


MONITOR STORAGE 


BUFADH * SOOFF 
BUFADL * $OOFE 
CHKH * $4637 
CHKL * ¢A636 
ODRIN * $a002 
DISBUF * $A640 
EAH * $A64B 
FAL * $864A 
LATCHL * $A004 
MODE = * $O0FD 
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SYivi-1 6532 Programmable Timer 





The 6532 interval timer is useful as a backup timekeeper 
or as a loop controller. It can be accessed in two ways, 
independent of the interrupt system, and employed to 
meet a variety of realtime program requirements. 





In addition to the programmable ports 
and interval timers located in the 6522s, 
the SYM-1 has an interval timer in the 
6532. The 6532-style device is also used 
on the KIM-1, and so knowing how to use 
the SYM timer properly wil! help in 


understanding KIM programs and 
enable the SYM programmer té adapt 
KIM programs for use on his SYM more 
easily. 


The 6532 timer does not have its IRQ 
“ine connected to the IRQ input of the 
6502. Therefore, lacking direct access to 
the interrupt structure, we are unable to 
get as precise a level of timing as with 
the onboard 6522s. However, if an extra 
timer or loop controller is required, the 
6532 may prove to be useful. 


Before using the timer in the 6532, one 
must first clear the interrupt flags. Since 
ail of the features we intend to use are 
part of the write-protected memory, we 
must first of ail allow access to this 
area. This is accomplished by: 


20 86 6B JSR ACCESS 


Then, to clear the interrupt flag (PA7 
flag), we will read the interrupt flag 
register. This may be accomplished by 
reading any one of four locations: A405, 
A407, A41D of ASIF, typically by execut- 
ing the instruction: 


AD 068 A4 LDA INTREG 

After this instruction is executed, the 
interrupt flag register will contain 80”. 
This register will be cleared to “00” 
when we write a value into the timer 
register. We may then go back occa- 
sionally during program execution, test 
to sec if the flag register is stil! zero, and 
‘branch if it is not zero. 


As another alternative, we can do a 
BIT test on the flag jocation, checking 
only the timer flag for the branch condi- 
tion. This method has been used in the 
Sample program. If the BIT test is used, 
it is not necessry to read the interrupt 
register in order to clear the PA7 flag 
because this flag will not be tested. The 
initial read instruction thén becomes 
redundant. 


TOR eT UN drt ig ELSIE mate we 


At this point, we must decide how 
many clock cycles are to elapse before 
the timer flag becomes set. Then we will 
write the selected value into the counter. 


There are four different points at 
which to enter data into the counter, 
A41C, A41D, A41E and A41F. These are 
indicated in the manual! as 1T, 8T, 64T 
and 1024T. These multiples mean that 
any data which is entered into the 
counter will begin at that particular 
count and decrement at the rate of the 
clock frequency (1T), or at one decre- 
ment for each eight clock cycles (87), 
one decrement for each 64 clock cycles 
(64T) or one decrement for each 1024 
clock cycles (10247). 


There is only one timer register, but 
the four addresses mentioned above are 
the means by which the frequency pre- 
divider is set. For example, if we write 
01" into location A41E, the timer flag is 
reset and, 64 clock cycles later, the timer 
fiag is set again. If we write “01” into 
focation A41F, instead, then the timer 
flag will not be reset until 1024 clock 
cycles have elapsed. 


Just as an example, let's say we 
wanted 800 clock cycles to elapse 
before the timer flag is set. We will be 


reading the flag register periodically to . 


see if it is non-zero, determine whether 
the flag gets set, and branch on the non- 
zero condition. Writing decimal 100 (hex 
64) into location A4iD sets the pre- 
divider; to 8 then, 8 x 100 = 800 ticks 
later, the timer reaches zero and the flag 
iS set. ; 

While the counter is independently 
decrementing, we can determine the cur- 
rent timer contents at any time by 
reading one of these four locations: 
A404, A406, A41C, A41E. There are four 
readable locations due to “don’t care” 
addressing modes or incomplete ad- 
dress decoding. 


One might be tempted to look at the 
timer contents, occasionally, and 
branch when the count reaches zero. 
This does not offer a good chance for 
Success as the following example wilt 
show. 
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Let’s say we've written “OA” (decimal 
10) into location A41D (8T) so that 80 
cycles later the timer will count down to 
zero. Suppose we do the following dur- 
ing the counting period: 


(A) Increment a memory location 
(B} Test timer contents 


(C) Branch back if non-zero 


If the sequence of operations takes 
seven machine cycles, then after 77 
cycles the timer will still be at “01" and 
after 77 + 7 = 84 cycles the timer will 
contain a count of zero since more than 
80 cycles have elapsed, right? Wrong! 
Unfortunately, it will contain “FC” in- 
stead! The limitation of this counter is 
that, as Soon as zero is reached and the 
flag is set, the counter continues to 
decrement, but it no longer matters 
which counter multiple was being used 
because as the counter immediately 
begins to free-run decrement at the 1T 
rate. 


To overcome this limitation, since we 
do not use the IRQ and since we only 
Sampie occasionally, we will generally 
read the interrupt register, testing for a 
non-zero figure, rather than reading the 
timer and looking for zero contents as 
shown above. 


Now we comé to an example program 
which ties everything together and 
demonstrates the use of this timer. 
Location 20D may be set for any desired 
timer value. Location 20F may be set to 
1C, 1D, 12E, or 1F depending upon 
whether you want to operate the timer 
with a predivide of 1T, BT, 64T, of 1024T. 
You will notice that the loop of instruc- 
tions between locations 211 and 224 
takes a total of 28 machine cycles to ex- 
ecute. 


Begin program execution at jocation 
200. The display will light, upon comple- 
tion indicating how many times the pro- 
gram was able to traverse the loop 
before the timer flag became set. 


we ee ee 


tee ee eae 


EE a Aaah er a ee el Ne RCE TEP TT ABE ETE EE AE IT NPS EG A ee = me 


oie 
op ad 


oo nee yng 


TE -D 
rot he RAN 


nee 









0241 
0244 
0241 
0241 









0200 






0202 
0204 
0206 
0209 
020C 
O20E 











0212 
0214 
0276 
0218 
021A 
021C 
0218 
O21F 
0222 
0224 
0227 
0229 
022C 
022E 
0231 
0233 
0236 
0238 
0235 
0235 












































0211. 


85 
85 
20 
AD 
Ag 
8D 
F8& 
A5 
69 
85 
AS 
69 
85 
De 
2c 
30 
8C 
Ag 
20 
A5 
20 
A5 
20 
Ag 
20 
20 
kc 


0200 AJ 00 


AO 
Al 
86 
IF 
FF 
1D 


AO 
01 
AO 
Aj 
00 
Al 


05 
03 
11 
20 
Ci 
Al 
FA 
AO 
FA 
20 
Ci 
06 
35 





8B 
A4 


As 


Ay 
02 
89 
&2 
82 
85 


89 
02 


SCAND 8906 


* BY ROBERT A. PECK 
* MODIFIED BY MICRO STAFF 


ACCESS # 
OUTDSP # 
OUTEYT * 


SCAND 


TMIN 


TMOUT 


DSCAN 


ORG 
LDAIM 
STA 
STA 
JSR 
LDA 
LDAIM 
STA 


- SED 


LDA 
ADCIM 
STA 
LDA 
ADCIM 
STA 
CLD 
BIT 
BMI 
JMP 
LDAIM 
JSR 
LDA 
JSR 
LDA 
JSR 
LDAIM 
JSK 
JSR 
JMP 


SYMBOL TABLE 2000 202A 
ACCESS 8B86 


DSCAN 023B 


TMIN 


0211 


$8586 
$89C1 
$82FA 
$8906 


$0200 
$00 
$00A0 
$00A1 
ACCESS 
$A4IF 
$FF 
$A41D 


$00A0 
$01 
$00A0 
$00A1 
$00 
$0041 


$A405 
TMOUT 
TMIN 
$20 
OUTDSP 
$0041 
OUTBYT 
$0040 
OUTBYT 
$20 
OUTDSP 
SCAND 
DSCAN 


7 


OUTBYT 82FA OUTDSP &89C1 


TMOUT 0227 






* PROGRAMMABLE TIMER DEMONSTRATION PROGRAM 


STORE ZERO IN 
AREA RESERVED FOR TOTAL 


UNPROTECT SYSTEM RAM 

CLEAK PA? FLAG, OPTIONAL HERE 
LOAD TIMER PRESET NUMBER 
ESTABLISH 8 AS PRE-DIVIDE 
TIME = 255 * 8T = 20N0 CYCLES 
SET DECIMAL MODE 

LOAD AQ AND ADD ONE 

PUT IT BACK 

IF THERE'S A CARRY 

ADD IT IN 

AND RESTORE 

CLEAR DECIMAL MODE 

TEST TIMER FLAG 

BRANCH IF MINUS FLAG IS SET 
JUMP BACK AND DO iT AGAIN 
ASCII BLANK 

SEND IT TO DISBUF 

GET CONTENTS OF A1 

SEND IT TO DISBUF 

NOW GET AO 


ASCI1 BLANK 


SCAN THE DISPLAY 
DO IT CONTINUOUSLY 
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Dual Tape Drive for SYM-7 BASIC 


If you want to make your SYM - 1 


tape recorders and manage tape cassette files, here is 
what it takes. A few important observations about the 
BASIC are presented that could save you grief. 


When | bought my SYM-1, f had no in- 
tention of buying BASIC for it. However, 
after not being able to show off my new 
computer to my friends and relatives ina 
way they could understand, j decided to 
go ahead and get the BASIC ROMS. 
Then | purchased a book of BASIC 
games and copied several of therm onto 
tape. The need to have a convenient 
means of copying tapes to make backup 
copies became apparent. Also, | 
discovered that the tape routines do not 
work after BASIC has been interrupted 
and reentered with a “GO" command 
{warm start). After ! recieved the tech 
note from Synertek describing how to 
put trig functions in BASIC, | found out 
how to fix this problem. The tape 
routines use system RAM to pass infor- 
mation from BASIC and apparently the 
call to “ACCESS” was omitted during 
the warm start. 


To make the second tape recorder 
work, f added five components to one of 
the buffered outputs to make it look Jike 
the audio cassette remote control con- 
figured for type IV (see figure 3-3, pages 

-?7 of SYM reference manual). This is the 
Set up required for one of the recom- 
mended recorders, Radio Shack CTR-40. 
Refer to SYM reference manual figure 
4-5A, pages 4-12. Note that pad 1 is 
located between pads 2 and 6. The 
following connections were made to buf- 
fer PB4: 


install 470 OHM at location R5. 


Install 2N2902A transistor emitter to pad 
6 base to pad 9 
collector to pad 
1 


Install 1K resistors between pads 689. 

Instalt 1N914 diode anode to pad 1 
cathode to pad 6 

install 1N914 diode anode to pad 19 
Ccathode-pad 16. 


Fe RIE Rae wate I as Ste 


Instai! subminiature phono plug tip to 
pad 6, 
Shield to pad 1. 


My first tape recorder (General Elec- 
tric mode! M8455A) is connected to the 
norma! remote control! configured for 
type V. The audio out {LO) goes to the 
MIC input. | discovered a trim pot on the 
inside of the recorder which, if turned 
completely counter-clockwise, makes 
the recording ideal for the SYM com- 
puter (terrible for voice though). Also, | 
found it necessary to align the heads of 
both tape recorders before | could get 
reliable operation. The GE recorder is us- 
ed normally to save files and the Radio 
Shack recorder is used with special 
routines to load files. The assembly 
language program was written at a loca- 
tion just before the trig function routines 
and includes two sets of execute com- 
mands for cold and warm Starts to 
BASIC that are compatible with the trig 
functions and include a call to “AC- 
CESS” so that the tape routines will 
work after a warm Start. 

The hex dump of the tape drive routine 
pius the trig functions (from Synertek 
Systems Corp. Tech Note 53) can be us- 
ed to enter the code into your system. 
Use the same verify command and com- 
Pare checksums to check your work. | 
Save this file on tape using an ID of $31 
which can be loaded and saved from 
BASIC as file “1”, 

The sample run-stream iNustrates how 
to make it ail work. First, a coid start to 
BASIC was performed with the monitor . 
execute command (E E5A). SYM 
responds with everything down to line 
100 which was entered to excercise the 
trig functions and provide something to 
Save on tape. After running the single 
tine BASIC program, it was saved on 
tape with the file name “'T". “NEW" 
erases the program to indicate that the 
tape will do a reat load. The “USR" com- 
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SEE ee RRR pha me, Ante OS NPC AP pay 


BASIC work with two 


George Wells — 
1620 Victoria Place 
La Verne, CA 91750 


mand to hex address 8035 takes us out 
of BASIC and back to the monitor. To get 
back to BASIC use the execute com- 
mand (E E95). The response includes 
everything down to the word “ist”. 
Since nothing was listed, this shows 
that the previous program has been 
erased. It is foaded back in by transfer- 
ring the cassette from the “save only” 
recorder (in my case the GE) and putting 
it on the “toad only” recorder (Radio 
Shack} and Pushing the rewind button. If 
this is the first time that the load only 
recorder has been used since the SYM 
was feset, then the recorder will Start 
rewinding immediately. Otherwise it will 
wait until the “LOAD T” command is 
entered. When the tape is rewound, the 
play button is pressed and the recorder 
Stops automatically when the file is 
loaded. Listing and running the program 
Show it to be the same as before. 


The way | use routines to manage files 
is through the use of three identical 
cassette tapes each Storing one copy 
each of all my BASIC programs. | use a 
fourth tape for temporary storage of a 
Program | am currently working on. 
When ! want to make a copy of all the 
programs on tape, i put that tape into 
the LOAD-ONLY or READ-ONLY 
recorder, and push the PLAY button. 
Then ! put the tape that | want to copy to 
in the SAVE-ONLY or WRITE-ONLY 
recorder and push the PLAY-RECORD 
buttons. i also keep a directory on paper 
of the program files iD’s on tape. its a 
simple matter to type a sequence of 
BASIC commands consisting of a series 
of LOAD A, SAVE A, LOAD B, SAVE B, 
LOAD C, SAVEC., etc. If | want toinserta 
new program from my temp tape, | just 
Swap tapes in the READ-ONLY recorder 
to get the new Program out, and then 
Swap back to continue with the old pro- 
grams. 











Aa ~ rr - 1. _ ae ett mR 
pete a trae AE a pe ce Rt ee eet ree ne eg ans; 

hee 4 : 2 fae a AD aE aah enrol Fe nls aE 

oe Same erect e : 


.E ESA 

J 0 

MEMORY SIZE? 3674 
WIDTH? 90 


OK 
PORE? 021 169: PUKE 203» 141 POKE1 96, £048 POKEL972 15 


OK 
100 PRINT SIN<1> >COS C2) » TANC3> sATN C4) 


RUN 
.841470905 -.416146896 -. 142546543 132561766 
DK 
SAVE T 
SAVED 
OK 
NEW 
oK 
FUSR (&"B035"s 0? 
CB6D 3 
.£ E95 
6 0 
DK 
TUSR (&"BB86" » 0) 
0 
ox 
List 
oK 
LOAD T 
LOADED 
OK 
LIST 
100 PRINT SINCL> COS (2) » TAN (3) »ATN <4) 
OK ’ 
RUN 
1841470985 --. 416146936 «= -. 142546542 1. 32581746 
ow 
As a matter of habit ! then read the 
tape | have just written to verify that it is 
O.K. and use it to copy into my third per- 
manent tape. Then | repeat the process 
going from the third tape back to the 
original one. Finally, | read the original CESA 4A 
tape to verify it. If at any point | detect a pee oe 
bad load, | Know that 1 will always have 0E61 OD 
an available on one of my tapes a copy ce62 398 
of the file in good condition, that hasn’t vEs4 14 
been overwritten yet. 0666 50 
CE6R 32 
Small changes can be made in any a Me 
program file by copying it onto the temp C76 32 
tape with the changes (I usually make CE7A 31 
two or three copies on the temp tape) ce7D 50 
and then rewriting the file on each of the CERI 31 
permanent tapes by reading the file im- C685 «31 
mediately before the one | want to scan ee 
change to find where to start, and 0691 31 
reloading from the temp tape before ac- 0€93 OD 
tually saving the changed file. 
vE9S 47 
0697 OD 
Three Other Observations 0698 = 3F 
0ESC 28 
OERO 42 
1.Two words have been omitted from the 0ER4 2C 
list of reserved words on page 9 of the cen? OD 
BASIC manuat: “GO” and GET”. “GO” cERS 84 
allows you to spell “GOTO” as “GO TO” CEAB a9 
if you want; not really a good idea since OEAD 20 
it takes three bytes of storage instead of hard 
only one. GET" must be a leftover since OEB6 AD 
it always generates an FC error. OEBa 8D 
O€BB SD 
2.Page ©-2 of the manual states that 6 a as 
bytes of storage are used for each nap a 


variable: 2 for the name and 4 for the 
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5S 
26 
38 
30 
00 


FD 
a> 
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2E 
9c 
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62 
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7B 
00 
ao 
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33 
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45 
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3A 
a5 
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Se 
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value. In fact, 5 are used for the value, br- 
inging the total to 7. This is what gives 
SYM BASIC Its 94 digit resolution. The 
disadvantage is that every simple 
variable (including integer and string 
variables which only need two and three 
bytes respectively for their values) uses 
more bytes than are usually needed. In- 
cidentally, there is a memory saving 
when using integer or string arrays. 
However, Microsoft BASIC converts in- 
teger values to floating points before us- 
ing them, which takes longer than using 
floating points in the first place. 
Therefore, as a general rule, integer 
variables should only be used in arrays, 
and only when it is necessary to con- 
serve memory space. 


3.Don’t make a mistake when typing a 
line that prints a hex-formatted number. 
lf you don't follow the format exactly, 
BASIC hangs up in a loop, printing 
zeroes. If this occurs, you can recover by 
doing a reset and going back to BASIC 
with a warm start. Your program will still 
be there, but as with any error, the pro- 
gram cannot be continued. 


ASSEMBLY LANGUAGE PROGRAM 


MODE 
COMF IG 
ZERCK 
P2Scr 
DDRSE 
OR3B 
LOABT 


Eau SFD 
EQu $89A5 
EQU $832E 
EQU $8290 
EQ sACc02 
Eau SACO 
EQU $8t78 
ADR SESSA 
ASCII “$0? BASIC COLD START COMMAND 
BYTE sob CAPRIAGE RETURN 
RSCIT °3674° MEMORY SIZE 
BYTE $op CAPRIAGE RETURN 
ASCII “80° LINE WIDTH 
BYTE $14,800 COMTFOL Ts CRERIAGE RETURN 
CHANGE TAPE LOAD VECTOR 
ASCIT “POKEZOS + 1493 FOKEZO31 1462 
CHANGE TRIG VECTOR 
ASCII “POKE196>1042:P0KE197°15° 
BYTE $O0D> $00 CARRIAGE KETURN: END EXECUTE 
ASCII “G0" BASIC WREM CTRPT COMMAND 
BYTE $oD CRERIASE FETUPN 
JUMP TO MONITOR ACCESS SURPOUTINE 
ASCIL 7?USR C&R" SBBE"s 9D“ 
BYTE $OD,400 CAPRIAGE FETURPN>s END EXECUTE 
STY MODE Da CUSTOM INITIALIZE FOF FEAD RECORDER 
LDA #89 
JSR CONFIG 
JSR ZERCK 
JSR P2scr 
LDR 2%00010000 
STA DDR3B BIT FB 4 OF VIR 3 SET DUTPUT 
STA OF3B TUPN DN READ TAPE PECGRDER 
JSR LOARDT+3 CORD TAPE BUT th IP INITIALLCE 
LDA #%cao0000045 
STA OR3E TURN OFF READ TAPE RECORDER 
RTS 
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oY ESH-FFF 

OESA 4A 30 OD 32 26 37 34 Ones 
NE6E 32°30 14 OF SA 4F 4B 45.20 
OEGA 32 30 Re 20 F1 3H 3A 3Hs kA 
OEre SO 4F 4B 45 32 20 23 eC. AN 
OETA 31 34 3A 50 4F 4b 45 31,749 
OESe 29 36 SC 31 30 34 2A S062 
OE8A 4F 4B 45 31 39 27 Sr Stsaa 
QESe 35 OF OO 47 306 Gb 3F SS. oR 
OEGA S23 Se 82 26 22 38 42 3S,61 
OERe 36 2c tC 30 29 OD OD S4ecF 
QEAR FB RAO 09 20 AS 83 20 2EIA 


OEBE 83 20 39C 82 AG 10 BD of.22 
OEBA AC 80 00 AC 20 7R BC 
OECe OF BN OC AC 6O OF 76h 
OECH 83 BI 03 79 16 F4 AS FS. DE 
GEDe FR Ss FC BO 10 Fe of = 
GEDA 6&7 CA FC DE 53 CEC 
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HEX DUMP 


OEE2 14 64 70 40 7D RF EAS1,09 
VEER 7A 7D 63 30 83 TE 7E 92.6% 
QEFe 44 99 3A TE 40 CC 41 CPe6E 
OEFA 7F AA AA AA 13 81 OO OO 7F 
GFOe G0 GO AS Be 4S 10 G2 20,55 
OFOA 36 DD AS Bi 44 C9 81 9oEN 
OFie OF AY 72 AO D7? 20 OS 8s36 
OF1A AP C7 A4 C5 88 20 Ce DD s6 
(Fee 68 CY 81 90 OF AQ 325 AS 21 
OFeA CS 20 06 D6 6R 10 O63 4C,A9 
OF 32 36 DD 60 81 49 OF DA Azs71 
OF 3A ?7F GO 00 00 00 05 34 E4,5F 
OF4e IR 2D 1B 86 28 O7 FR FRsea 
OF4R 87 99 68 89 01 3S? €3 35,58 
OFS2 DF E1 86 AS SD EP 28 83534 
OF5A 49 OF BA AE AL 54 46 SFs He 
OF6e 13 BF Se 43 59 CD CO 72591 
OF6R FO 4A 30 41 CU 76 Fao 32,54 












Save and Data Load via the cassette are NOT supported 
by this version. The routines required to implement these 
two important functions are presented here. 





If you've read “A SYMple Memory Ex- 
pansion” in the August 1979 issue of 
MICRO and “Another KIM Expansion” in 
the September 1979 issue of Kilobaud 
Microcomputing, then you know that | 
like Micro-2’s BASIC for the KIM. You will 
also know that | have the Synertek BAS-1 
BASIC for the SYM. Both versions were 
written by Microsoft, have 9-digit decimal 
accuracy, etc. but differ in some of their 
functions. 


Comparing the Micro-Z 
Synertek BASICS 


Synertek BASIC has a more convenient 
USR function and a &‘hex” function that 
are definite improvements over the 
original BASIC. Their ROM version has no 


A IT IRC ee ROM REP ETS on 





OF7e 20 80 DP AA CO SS {6 ASs ES 
OF7A C5 43 AD BS 48 AS CS 48.ER 
OF82 AD BS 49 60 A2 SE AO OO-D1 
OF8A 20 8A BF AD A? AC OO 20.64 
OF92 58 DY AP 00 825 BS AS £5563 
OFOA 48 AS A? 43 AS 16 43 ASTER 
OFAe CS 48 AD EP? 48 60 AG SELF? 
OFAR FO 06 4C CS D& AD 35 A4,02 
OFBe C5 20 1D D6 20 Ce D9 AS.3E 
OFBA 59 A4 CS AG BE 20 BH bee14 
OFCe 20 Ce D9 20 S2 DA AY OOsFS 
OFCAR 8S BF 20 O09 Té AD 3A R4,03 
OFDe C5 c0 06 Dé AS BS 48% 10:37 
OFDA OD 2G FF IS AS Be 320 O09-CC 
OFES AS 16 49 FF 85 16 20 36500 
OFEA DD AP 3R AS CS 20 10 D6>,FC 
OFFe 66 10 03 20 36 DD AY 3F,92 
OFFA A4 CS 4C Ce DD 01557 

BOE? 
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UE dz 
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ailable in ROM. Data = 
John M. Blalock 
3054 West Evans Drive 
Phoenix, AZ 85023 
GET function like Micro-Z's. Another dif- financial records without this feature. 
ference is that a response of a casriage Perhpaps you could enter the data via 
return only to an INPUT statement will DATA statements, but that would be a 
cause a break in program execution with very trying task indeed! This feature is 
Synertek’s BASIC. Micro-Z has supplied a the major reason that | have preferred 
patch to defeat this break. The Synertek Micro-2's BASIC over Synertek's. 
ROM does not include any trig functions, 
but they have recently released Technical Data Save/Data Load for 
Note #53-SSC that gives you full trig Synertek BASIC 
capability using only 313 bytes of RAM. Listings 1, 2, and 3 are my first at: 
tempts to provide the same data 
The main difference between the two Save/data load functionality for the SYM 
BASICs, then, is the data save/data Joad with BAS-1. Listing 1 is just BASIC in- 
feature added to his version by Bob Kurtz itialization, program loading, and a LIST 
of Micro-Z. This is a very vatuable feature of the program. All terminal input has 
that Microsoft Jeft out. BASIC can not be been underlined for clarity. The iittle 
used to maintain any types of files such crooked arrows represent a Carriage 
as mailing lists, inventory records, or return typed in. 
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7479 BYTES FREE 
pasic V1.1 
COPYRIGHT 1°76 SYWERTE® SYSTENS CORP. 
ox 
LOAry 
LOapEt 
OK 


EIST 


10 REM SYM DATA SAVE/LOAL DEMC PROGRAM 
20 REM JOHN FLALOCK AUG 19 3979 


3O DIM AL1090)+ BEFIOGIIN & O 


40 PRINY CHRacCi2 eff OR I = 1 TO 2OO0°NEXT T 
50 PRINTTAR( 30} *DATA SAVE SLOAD NEMOS PRINTS PRINT SPRINT 
@0 INPUT‘'TFO YOU WANT TO RESTORE PRIOR SAVED DATA? *308 


OO IF LEFTR(Gte1) <> *Y" THEN 204 


#0 PRINTSPRINT*CONTROL WILL NOW EXIT TG THE SYm MONITOR. * 

100 PRINT‘SUSE THE MONITOR TO LOAD DATA BLOCKS WITH If Of+ O2+ & O3." 
yiG PRINT “°L2 OLS SPRINTS ED OBS ERPRINT*/L2 03°%* 

420 PRINT’ THEN ENTER “G 0’ TO RETURN TO BASIC.* 

{30 PRINT‘ HASIC WILi RESPOND ‘OK’. THEN ENTEF ‘GOTO 260’" 

940 PRINT’TO RETUFW CONTROL TO THIS FROGRAM." 


150 PRINT USR(3200070) 


200 PRINT CHRECL2>53F OF To o& 1 TO JOOINEXT 1: PRINT 

240 FRINTENTER PAY NUMBEF ANT WAMEs SEF ARATED HY A COMMA: ® 

Z2¢ FRINT ‘FOF CXAMFLES °122345.+ JOHN SMITH’ © 

230 PRINTSENTER @ NEGATIVE NUMKER ¢-1) @S A FAY NUMBER TO END ENTRY." 


240 FRINT 
256 FOR 1 = M#1 TO 1600 
240 FAPUT Af.) shECT) 


270 IF att) * & THEN NW = J~1 6070 FOO 


940 NEXT FSPRINT* TABLE IS FULL! 
290 # © I 


300 FRINT' THE TARLE NOw CONTAINS THE FOLLOWING DATA: * 


310 PRINTS ¢ FAY NUKE FE 


320 FOR I = 3 TO W 


BO PRINT T TARCI1) ACI} TARS27) Berd) 


340 NEXT J 
350 FRINTIPRINTIPRINT 


NAME" 


360 INFUTTIO YOU want TO SAVE THIS DATA? * 404 


370 IF LEFTS(Q0,1) ~~ "¥* THEN END 
JBO PRINT CFRINT IF RINE 


380 PRINT’COMTROL WILL NOW EXIT TO THE SYM MONITOR,” 

400 PRINT'USE THE MONITOR TO SAVE THREE B.0CAS OF DATA,” 

410 PRINY"THE FIRST BLOCK WITH IP Or IS FROM 865 TO SE? (SD 02-65-E7).* 
420 PRINT"YHE SECOND BLOCK (In O62. IS FROM THE ADDRESS CONTAINEN IN? 
430 PRINTS HEX 7D, VE THRU THE ADDRESS IN WEX Sle B2.° 

440 PRINT'THE THIRD BLOCK (IN O3+ IS FROM THE ADPRESS CONTAINED IN* 

456 PRINT’ KEY 83, 84 THRU THE ADDRESS IW HEX 67, BA.” 


460 PRINT USK(2200099) 
470 END 
OK 


Listing 2 is a RUN of the program 
showing the means used to save the 
data. Three separate records are saved; 
the page zero pointers, the numeric data 
and string pointers, and the string data 
itself. To reload this data, BAS!C must be 
initialized with the same memory size and 
the program can not have been modified. 


Listing 3 is another RUN of the pro- 
gram after memory was cleared and the 
program reloaded. The data saved in 
‘isting 2 was restored, as can be seen. 
No, it is not as convenient as Bob Kurtz's 
method, but it works! Bob packs all the 
data together with a machine language 
Subroutine and save it as one record. 
Another subroutine foads the combined 
record and then unpacks it, moving the 
data back to its original jocations. 


Machine Language Version of 
Data Save/Data Luad 


Listing 4 is a machine language 
subroutine that will save and toad BASIC 
data files without having to turn control 
over to the SYM monitor. The data is still 
Saved in three separate records, but they 
are recorded/loaded one right after 


another by the routine. An extra few 
seconds for each save or load {for sync, 
etc.) shouldn't hurt anyone, should it? 


Listing 5 is a VERIFY dump of the 
subroutine. Load it in, VERIFY between 
the same addresses, and if you check 
sums match mine then you keyed it in 
correctly. Now we know why Synertek put 
those check sums on the VERIFY dumps! 
The rest of listing 5 shows BASIC in- 
iHtialization and the loading of the revised 
BASIC program. 


Listing 6 is just a LIST of the revised 
program. Note the memory size was 
specified to allow room for the machine 
language subroutine which is called by 
statements 100 and 400. With either of 
the two methods, put the calf to the load 
routine after any DIM statements and 
before the main program body. The call to 
the save routine should be at the very end 
of the program, as shown. Any changes 
to the program that increases the 
memory size needed for it will prevent 
data saved hy a prior version from being 
loaded correctly. 


Listing 7 is a RUN of the revised pro- 
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gram wherein the data that is entered is 
saved at the end of the RUN. Listing 8 
shows memory being cleared. BASIC ini- 
tialization identical to that used in listing 
7, and then the BASIC program being 
reloaded. The RUN of the program loads 
the data saved in listing 7. 


tf you plan on saving and loading data 
files very often, dedicating 148 bytes of 
memory to this subroutine should pay for 
itself in convenience over the method 
given earlier. 


SYMpie Memory Expansion Update 


Reguiar readers of MICRO will 
recognize from the listings that my SYM- 
ple memory expansion board is still work- 
ing fine (7679 BYTES FREE). No probiems 
have been reported by anyone using it, 
there have been reports of S¥YMers using 
it in conjunction with other memoary- 
expansions! The bare boards ptus in- 
structions remain available from me at 
the above address for $5.00 each, pius a 
self addressed stamped envelope. 


Conclusion 


Now that the trig functions can be add- 
ed to BAS-1 and we've learned how to 
save and load SYM BASIC gata files, I’m 
sure you will agree that the S¥YMer has a 
BASIC that is comparable to the best that 
is available for the KIM. 


This article was prepared using the 
EPROM version of MON-1.1 from 
Synertek. This version didn't unprotect 
System RAM after exiting BASIC to the 
monitor, The final ROM version was sup- 
posed to correct this problem. It didn’t. IN 
the first method above, after re-entering 
BASIC via G 00, do a dummy SAVE with 
the recorder turned off. This will un- 
protect System RAM and further SAVEs 
will work satisfactorily. 
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The First Book of KIM — onaSYM 





Programs presented in The First Book of KIM can be 
modified to run on a SYM. What’s more, the techniques 
presented here will aid in the conversion of other KIM 


software. 


(pA LE ATER SSP a ES 


Anyone who purchased “The First Book 
of KIM” with the expectation of easily 
modifying the programs to run on their 
SYM quickly found that the KIM and 
SYM might be hardware compatable, 
but the monitors are a lot different. The 
3YM manual has a list of SYM counter- 
— parts to the KIM routines. it aiso makes 
the disclaimer that “the routines do not 
perform identically.” This is an over 
simplification! Some of the SYM rou- 
tines are really only distant cousins to 
their KIM counterparts. The routines 
listed in the SYM manual are not close 
enough to the K!M routines to be easily 
substituted for the KIM entry points 
used in the book. 


The first couple of programs | converted 
the hard way, with lots of relocating and 
some logic changes. | finally got smart 
and took the time to write these routines 
using simple address substitutions. 
These routines are obviously not identi- 
cal to the KIM versions they replace, and 
definitely do not take the same number 
of execution cycles. 


You may have to “tweek'’ some of the 
delay loop counters in the programs. 
Otherwise, replace the KIM addresses 
with these, fix up the !/O addresses 
_ which | willalso discuss later) and about 
80% of your conversion is done, at least 
for the games. 


| have not bothered to try any of the 
cassette programs yet. | have enough 
problems with the SYM standard rou- 
tines. There wil! be some places where 
you may need to get a little fancy to do 
the conversion without relocating 
things. Just remember that if you can 
perform an equivalent function in fewer 
bytes you can use NOP’s to avoid re- 
location. 


Before | get down to discussing the rou- 
tines and some notes about writing 
directly to the displays, ! would like to 
mention that these routines require one 
hardware modification to the SYM board 
in order to work properly. The modifi- 
cation is to remove the jumper that en- 
ables system RAM write protect, jumper 
MM-45, just to the feft of the crystal. 


This is the first modification 1 made to 
my SYM, and | have not regretted it at 
all. if you are leary about permanently 
disabling something, as | was, you will 
find that a four position DIP switch does 
nicely. You will get the added advantage 
of being abie to write protect user RAM. 
The alternative is to insert a JSR 
ACCESS at the start of each routine. 


The first routine is the one to light the 
on-board displays, and actually has two 


Nicholas Vrtis 
5863 Pinetree S.E. 
Kentwood, MI 49508 


entry points. If you enter at SCAND, the 
byte indirectly pointed to by POINTL is 
moved to INH, and then the program 
falls through to SCANDS. This routine 
lights the dispiay with the six hex values 
corresponding to the three bytes 
POINTH, POINTL, and INH, and then 
returns. 


The SYM “equivaient” standard routines 
OUTBYT and SCAND are not suitable re- 
placements. OUTBYT takes the bytes 
in the A register, converts them to two 
hex digits, and rolls them into the dis- 
play from the right. Repeated calls to 
OUTBYT cause the characters to march 
from right to left across the display. 


SCAND, on the other hand, lights the 
display with six hex digits as we want, 
but it assumes that the segment codes 
are already in the display buffer. This is 
further complicated by the fact that the 
display buffer is at $A640, which is a two 
byte address instead of the single byte 
used by the KIM. 


What | did was to pick up the data from 
the KIM addresses, convert it into seg- 
ment codes by using each nibble as an 
index into the SYM segment code table, 
and store ail six bytes of segment code 
in the display buffer before calling the 
SYM SCAND routine to light the display. 
Fortunately, the KIM addresses do not 


er SEI A a A 


* Update: Jack Gieryic of Andover, Min- 
nesota, advises against removing 
jumper MM-45, He prefers using JSR- 
ACCESS before code which writes into 
system RAM and JSR NACCES after this 
code to again write protect this RAM. 
He adds: 


“| have two reasons for avoiding the 
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hardware change. First, your program 
may contain a bug which inadvertently 
writes into some or alt of system RAM. 
Permanently removing the write protect 
feature will make this bug more difficult 
to trace. Instead of “missing data” in 
some buffer or variable {a problem 
relatively easy to “see” and figure out) 
you may have memory alterations which 
could be impossible to view since a 
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critical element of system RAM was 
destroyed. 


“Secondly, lf Synertek does add a disk 
option to the SYM, | wouldn't be sur- 
prised if critical information relating to 
the disk driver were located in the 
system RAM. !f so, a bug which alters 
this memory could also cause your disk 
data to be destroyed.” 
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conflict with important SYM addresses. 
Specifically. $FA and $FB are used by 
SYM as the pointer to RAM for the EXE- 
CUTE command, and $F9 is used as a 
work area for the terminal I/O routines. 


The SYM subroutine GETKEY super- 
ficialy resembles the KIM routine of the 
same name. The SYM does a lot more 
for you, since it lights the display and 
waits for the key to be pressed. It also 
debounces the keyboard, and converts 
the key code to ASCII. The KIM routine, 
on the other hand, reads the keyboard 
and returns with a binary number cor- 
responding to the key pressed. It does 
not wait to debounce the keyboard, nor 
does it light the display. This makes it 
easier to program the keyboard indepen- 
dently of the display. It is also more 
work, by the way. 


The SYM routine LRNKEY is a closer 
approximation to the routine we want. 
It scans the keyboard once, converts 
the key code to ASCil, and returns. Con. 
veniently, the value in the X register is 
the index that was used to get the ASCII 
equivalent of the key pressed. This table 
starts with the code for ZERO, so the 
value in X is neatly set 0 through F for 
those keys, and all we need to do is 
transfer it to the A register. 


The SYM has more keys than the KIM, 
so these are set to the KIM vaiue for 
“no key" on the assumption that the KIM 
routines wouldn't know whai to do with 
them anyway. For the remaining keys 
we just use a translate table that is 
somewhat arbitrary since the keys are 
not labeted identically. See the program 
listing for which keys are translated to 
what, and note that the SYM shift key is 
made equivalent to the KIM “no key” 
value. 


The KIM routine KEYIN has a very close 
equivalent in the SYM entry KEYQ. The 
main difference between them is which 
way the zero flag gets set if a key its 
down. The KIM returns a zero condition 
if a key is down, and the SYM returns as 
not zero, All this routine does is load a 
$FF or $00 into the X register to reverse 
the SYM 2ero flag setting. 


The reason the X register is loaded with 
$FF for a ''no key” is that LRNKEY in 
the SYM monitor does an [NX immedi- 
ately before returning if entered with- 
out a key down. With X set to SFF upon 
entry, this will result in a zero condition 
from the LANKEY routine. Since none of 
the ASCIi codes are zero, we can set the 
appropiate key value in the GETKEY 
routine. This way a JSR KEYIN followed 
by a JSR GETKEY will be consistant 
with the KIM routines. 





0010: 
0020: 
0030: 
0040: 
0050: 
0060: 
0070: 
0080: 
aog0: 
0100: 
O10: 


01205 


0130: 
07140: 
0150: 
0160: 


6170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
6320: 


0330: 
0340: 
0350; 
0360: 
0370: 
0380: 
0390: 
0400: 
O410: 
0420: 
0430: 
O4kO: 
0450: 
0460: 
O470: 
0480: 
O490: 
0500: 
0510: 
0520: 
0530: 
O546: 
0550: 
0560: 
0570: 
0580: 
0590: 
0600; 
0610: 
0620: 
0630: 
640: 
0650: 


0170 
0170 
0170 
0170 
0170 
0170 
0170 
O70 
0170 
0170 
0170 
O70 
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0100 


0100 
0102 
0104 


0106 
0108 
010A 
010D 
010F 
0112 
0114 
0117 


OVA 
O11B 
011C 
O11D 
OT1E 
O11F 
0120 
0123 
0126 
0127 
0128 
012A 
O2B 
O12E 
0131 
0132 


29 
40 
OF 


29 
40 


01 
01 


Ot 
89 


8C 
A6 


gc 
AG 


SYM-1 VERSIONS OF VARIOUS KIM ROUTINES 


BY: NICK VRTIS - LSI/CCSD 
MODIFIED BY MICRO STAFF 


THE PURPOSE OF THESE ROUTINES IS TO PROVIDE A CERTAIN 
AMOUNT OF SOFTWARE COMPATIBILITY BETWEEN THE SYM AND 


KIM MONITORS. THIS WILL MAKE IT EASIER TO CONVERT 


04/12/79 
06/06/79 


PROGRAMS WRITTEN FOR THE KIM TO RUN ON THE SYM. 


TIME DEPENDENT CODE IS NOT SIMULATED 


NO ATTEMPT IS MADE TO DUPLICATE THE KIM MONITOR, 


ENTRY POINT FOR ENTRY POINT. 


RATHER, THESE ARE 


THE MAIN ROUTINES AS USED IN "THE FIRST BOOK OF 


KIM . 


TRANSO 
PZSCR 
POINTH 
POINTL 
INH 
SYMPAD 
SYMPBD 
SYMDIS 
SYMSCA 
SYMKEY 
SYMLRN 
SYMSEG 


ORG 


$0137 
$00FC 
$00FB 
SO0FA 
$00F9 
$4400 
$ano2 
$4640 
$8906 
$8923 
$892C 
$8029 


$0100 


TRANSLATE TABLE LESS OFFSET $11 


PAGE ZERO SCRATCER LOCATION 
EXECUTE RAM POINTER HIGH 
EXECUTE RAM POINTER LOW 
TERMINAL CHARACTER INPUT 
OUTPUT PORT A ON 6532 
OUTPUT PORT B ON 6532 
DISPLAY BUFFER 

LED OUTPUT DISPLAY BUFFER 
CHECK FOR ANY KEY DOWN 
DETERMINE KEY PRESSED 
LED SEGMENT CODES 


OUT OF THE WAY ON STACK PAGE 


SESSSARCAKRKHESESSSESTSRRLEA PERG EHRARSRRSEES EES 


® SYM-1 VERSION OF KIM SCAND & SCANDS ROUTINES 
SSESRAICHRRERFOCCESRTEPESSELERHEKRGHREE CRS SHSSES 


SCAND LDYIM $0000 


SCANDS 


o 


SPLITP 


LDAIY 
STA 


LDYIM 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JMP 


PHA 
LSRA 
LSRA 
LSRA 
LSRA 
TAX 
LDAX 
STAY 
INY 
PLA 
ANDIM 
TAX 
LDAX 
STAY 
INY 
RTS 


POINTL 
INH 


$0000 
POINTH 
SPLITP 
POINTL 
SPLITP 
INH 
SPLITP 
SYMSCA 


SYMSEG 
SYMDIS 
$000F 


SYMSEG 
SYMDIS 


ENTER HERE TO GET 3YTE 
ADDRESSED BY POINTL 
AND MOVE IT TO INH AREA 


ENTER HERE IF INH ALREADY STORED 
POINTH FIRST TO DISPLAY BOFFER 


THEN DO POINTL 


LAST BUT NOT LEAST DO INH 


SET SYM MONITOR LIGHT & RETURN 


SAVE ORIGINAL 
ON STACK FOR LATER 
SHIFT HI HALF TO LO HALF 


WHICH IS 4 BITS DOWN 

PUT INTO X AS AN INDEX 

GET APPROPRIATE SEGMENT CODE 
AND PUT INTO DISPLAY BUFFER 
BUMP 'Y' FOR NEXT BYTE 


“NOW GET ORIGINAL VALUE BACK 


KEEP ONLY LOW GRDER 4 BITS 
AND REPEAT SEGMENT PROCESS 


INCLUDING BUMP FOR NEXT BYTE 
AND RETURN 


a en ee ES 


ee eee 


ate ear eke of 


Writing to the displays is, again, a little SHHORSODUSRETERSHEERREREGRCEBS ERE REDE ESET 


rom A EE ee 





more difficult than changing a set of * SYM-1 VERSION OF KIM GETKEY SUBROUTINE 
addresses. it is also something that SORTRSCOHESERSEESERSREREREREEE POSE REDEEE 
gets spread through the program, so | 
can't write a nice software solution as E 
| did for the other routines. Fortunately, 0133 20 2C 89 GETKEY JSR SYMLRN GET SYM VERSION OF THE KEY 
OW .Cal Usually BEHOrD te Same Lune; 0136 DO 03 BNE KEYDWN BRANCH IF ANY KEY IS DOWN 
Mane Othe. 2 1M as On.1he iin eithar 0138 A9 15 -«GKNONE LDAIM $0015 ELSE SET TO KIM NO KEY DOWN 
the same or a smaller number of bytes. 013A 60 RTS AND RETURN 
gee) good a the sare, Since One. 013B BA KEYDWN TXA X HOLDS INDEX INTO ASCII TABLE 
Can always AUG NOR S10 padiour. 013C C9 11 CMPIM $0011 NEED TO FUDGE KEY VALUE? 
: : O13E 90 07 BCC GKRTS O0-OF IS OK 10=AD(KIM)=CR(SYM) 
The first problem is to set the data 0140 C9 16 CMPIM $0016 CHECK FOR OUT OF KIM RANGE 
direction registers on. ihe 4/0 ‘ports: 1 0142 BO F4 BCS GKNONE AND TREAT AS A NO KEY 
is oak ein eign ieocne aoa yi 0144 BD 37 01 LDAX TRANSO ELSE TRANSLATE THROUGH TABLE 
the following: 0147 60 GERTS RTS AND RETURN ; 
0148 12 TRANST = $12 tet (KIM)='-/+! (SYM) ! 
STA $1741 omg 11 z $11 "DAY (KIM)=">/<* (SYM) 
. O14A 15 E $15 SHIFT (SYM)=NO KEY (KIM) 
On the SYM we need to set the two O1WB 13 = $13 *Gt (KIM)='GO/LP' (SYM) ! 
direction registers at $A401 and $A403. O14 14 = $14 'PC' (KIM)="REG/SP' (SYM) | 
In order to do this in the same number of 
bytes we can make use of the SYM moni- 
tor CONFIG routine as follows: 
LDAIM $09 SFSRERKECHFSSLASESSSSRSFERSARHEKREEEEPKEEE 
JSR $B9A5 ® SYM-1 VERSION OF KIM KEYIN SUBROUTINE 
FSRSSREKKEKSATLSCTAISESSLSLCAGCHFRKK FATE SEE 
This routine sets both I/O ports to out- 
— pul, and additionaily stores zero in both O14D 20 23 89 KEYIN JSR SYMKEY GET KEYBOARD STATUS 
/O regisiers. 0150 DO O03 BNE KEYIN2 REVERSE ZERO FLAG 
F 0152 A2 FF LDXIM $OOFF KIM NOT ZERO - NO KEY - FF FOR LRNKEY 
individual digit selection is also differ- 0154 60 RTS : 
ent hetween the two systems, but both 0155 A2 00 KEYIN2 LDXIM $0000 AND IS ZERO IF KEY IS DOWN 
use a multiplex concept. This means C157 60 RTS 
that one W/O register determines which _. 
segments get lighted, and one register 
determines which digit is selected. The 
ot ine auemes oo a oo. SECHSRSRRFLSESHASRKESKESSCHSEHSFERUASTSLEKVSCHHSIOSTEG LS 
into location $ . This 
ie ing ini ® SYM-1 VERSION OF KIM CONVD ROUTINES $1F48 & $iFHE 
iS incremented by two for each digit FREAHFFSSSSSHSPSCSSRSSSHSESSCTHSASHHEKETHSELHRTORAES 
to the right. | 
j , 0158 84 FC CONVD STY PZSCR SAVE Y IN SCRATCH AREA 
(ocallon, Sato? "This. needs io te i: 015A A8 TAY MOVE NIBBLE OF A TO INDEX REGISTER 
i j xtre O15E BE 02 AN DISPCH STX SYMPBD SELECT THE DIGIT 
euinae the é oat gesagt 0161 8D 00 Ay STA SYMPAD OUTPUT THE SEGMENT CODES 
lat increment and then check FOR A WHILE 
to see if they are done. Storing a 6 to Sar ee 10 evbie es $0010 KEEP iT LIT 
location $A402 enables the onboard 
beeper, so if your routine suddenly 0167 DO FD BNE LIGHT 
Starts beeping at you, don’t be sur- i 
prised. Teil everybody how great your 
sound effects are. 
~ The actual segment codes are written r 
pono Caton Wea U OM Ne LANG Sra oe 0169 8C 00 Au STY SYMPAD TURN ALL SEGMENTS OFF FOR NEXT ONE 
one forone replacements. ln -ercer’ te O16D AN FC LDY PZSCR RESTORE THE Y REGISTER 
convert routines that use these ports, O16F 60 RTS AND RETURN 
change the address of the store instruc- 
tions to the display, and find the place 
where the digit selector is bumped 
twice to get to the next digit, then simply 
NOP the second bump. SYMBOL TABLE 2000 2096 
CONVD 06158 DISPCH O15E GETKEY 0133 GKNONE 0138 } 


One final note about the timers. ye GKRTS 0147 INH OOF9 KEYDWN 013B KEYIN oOt1§D 
fa nee returns zero to a read before —s eyytwr 0155 LIGHT 0166  POINTH OOFB  POINTL OOFA 

e clock has timed out, whereas the PZSCR OOFC SCAND 0100 SCANDS 0106 SPLITP 0118 
SYM returns the current clock count. — sympIs 4640 SYMKEY 8923 © SYNLRN 892C = SYMPAD A400 


This means that, in addition to changing SYMPBD A402  SYMSCA 8906 SYMSEG 8C29 TRANSO 0137 
the addresses, you wilf also have to TRANST 0148 


change the branch after the check for 
clock expiration. : 
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Expand KIM - 


1 Versatility 


in Systems Applications 


Techniques and programs 








are presented which permit 


the simple addition of six sense switches or an ASCII 


keyboard to the KIM. 





The KIM-1 microcomputer, produced 
by MOS Technology, ,Commedore and 
Rockwell International, is a single-board 
computer which gained earty popularity 
with hobbyists. tt also was adopted by 
industry for small controller applica- 
tions. Some of these computers have 
been expanded into fairiy large systems, 
in colleges as well as industry. One 
reason for the easy acceptance of the 
KIM-1 was the on-board keypad and six 
digit display. These features, along with 
a slow but extremely reliable audio 
cassette interface for program storage, 
made KiM-1 one of the first microcom- 
puters which did not require an operator 
interface more expensive than itself. 


The on-board keyboard and seven- 
segment display, which permits system 
operation without an teletype of ter- 
minal, is implemented in a way which 
permits addition of both an ASCIi exter- 
nal keyboard and sense switches. Fig. 1 
Shows the key-pad iinplementation 
where U24 enables one of three banks of 
seven keys, and U2 (an MCS6530 pro- 
grammablie interface device detects a 
key closure in any one of the seven 
switch columns. 


A9 00 

8D 41 17 
AS 3F 

BD 43 17 
AY 06 

8D 42 17 
AD 40 17 
29 7E 

49 TE 

A2 00 

8E 42 17 
60 


The keyboard encoding scheme works 
as follows: U2 is programmed for output 
on lines PB1-PB4 to dribe U24, a four 
{ine-to-ten-lineé decoder which has 
active-low outputs. Note that the least 
significant bit of U2’s B port (PBO) is not 
used in the keyboard drive, so values 
written to Port B are incremented by two 
to select the next higher keybank. For 
example, writing 0016 to Port B selects 
Row keys, 0216 enables Row 1 and 0416 
selects Row 2. 


On Port A of U2 (lines PAO-PAS), which 
are programmed as inputs, a closure of 
(for example) key 8 will cause a logic 
zero to be input on PAS whenever key 
Row 1 is active (low). KiM’s operating 
system software then decodes Row 
1/PAS as key 8 and returns the value 
0816 in the accumulator. 


A fourth keybank (Row 3) is also im- 
plemented by this matrix, but the stan- 
dard KIM-1 has only the TTY/KYBD 
switch installed on this row. FIG. 1 
shows six additional switches in- 
plemented on Row 3; with proper pro- 
gramming, these can be used as sense 
switches or imput lines for address vec- 
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Ralph Tenny 
P.O. Box 545 
Richardson, TX 75080 


tors in an expanded interrupt scheme. 
Listing 1 gives an example of the pro- 
gramming required to detect activity on 
Row 3 inputs. 

The programming strategy requirea tor 
any such inputs is to enable PAO-PA6 
lines for input and sequentially activate 
the driving lines (outputs of U24 in this 
case) to their on (low) state. The program 
then reads ail input lines, masks and in- 
verts the data and returns to the calling 
program which tests the accumulator for 
any ‘‘one”’ bits. It is then the 
programmer’s responsibility to repeat the 
scan periodically and test to see if the 
same data ts present (a noise spike would 
be gone on a second scan) or has chang- 
ed after some period of time. This testing 
allows for switch bounce—multiple 
closures of the  contacts—a 
characteristic of all switches. Very good 
switches will bounce for a minimum of 
one of two milliseconds, while worn or 
cheap switches may bounce for up to 25 
milliseconds. On the other hand, any 
operator who is trying to make a very 
short switch closure will find it difficult to 
release a switch earlier than 50 
milliseconds after closure. Consequently, 
reading keys with software is a fine art! 


SET PADD (KEY INPUT LINES) 


LISTING I 
LDA #$00 
STA PADD FOR INPUT 
LDA #$3F SET PBDD (ROW DEFINITION) 
STA PBDD FOR OUTPUT 
LDA #506 ENABLE KEYBOARD 
STA PBD ON ROW 3 | 
LDA PAD READ SENSE SWITCHES 
AND #$7£ MASK OFF TTY/KYBD SWITCH 
EOR #S7E INVERT SWITCH DATA 
LDA #$00 DISABLE 
STX SBD KEYBOARD 
RTS 
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RETURN TO CALLING PROGRAM 





Any keyboard with ASCH outputs is 
likely to have both a debounced output 
and a strobe which becomes active when 
there is a key pressed and the data has 
been debounced. Typically, the key data 
is active high (positive logic), but the 
strobe can be either active high or active 
low. The ASCII keyboard input described 
here does not use the strobe; instead, the 
key matrix is scanned in the same man- 
ner as is the normal KIM keypad. Fig. 2 
shows the necessary connections—a 
pull-down transistor for each output bit of 


the keyboard. Any logic “one” data from 
the keyboard will input a low on the same 
lines as the KIM keypad. Note that some 
keyboards output only six bits, so the 
strobe can be implemented on Column G. 


Listing 2 shows a “bare bones” scan 
program which will return to the calling 
program as did Listing 1. The basic 
scheme here ts to initialize the ac- 
cumulator to FF4g and get the input data 
by a logic AND with the input port. The 
data is then inverted (Exc!usive OR) and 





tested for any logic one bits. Note that 
the calling program could also per- 
manently set the port for input and 
somewhat abbreviate the program seg- 
ment shown. If the strobe is implemented 
on Column G as mentioned above, the 
6502 BIT instruction followed by a test of 
the overflow status bit (BVC or BVS) will 
identify strobe activity. Note that the on- 
board keypad must not be active when 
the ASCII keyboard is being used, and 
that the normal KiM keypad scan 
routines wil} not properly interpret the 
ASCIil input. 


LISTING II 
AQ 80 LDA #$80 ENABLE KEYBOARD 
8D 41 17 STA PADD INPUT LINES 
AQ FF LDA #SFF INITIALIZE ACCUMULATOR | 
2D 40 17 AND SAD INPUT POSSIBLE KEYBOARD BITS | 
49 7E EOR #$7F INVERT ANY BITS PRESENT 
FO 02 BEQ OUT TEST FOR DATA PRESENT 
AQ 80 LDA #$80 SET FLAG FOR NO INPUT 
60 OUT RTS RETURN TO CALLING PROGRAM 
MCS6530 
U2 


U24 








roms | by Tag fg May BY Ed 


PBS c 
___PB2], 
PBi A 
KIM KEYBOARD MATRIX 
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7 — SIX DIGIT DISPLAY 
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Figure 1:KIM-1 Keyboard allows six sense switches to be Bit 0 


added. 


Bit 1 
Bit 2 





ASCIil Bit 4 
INPUT 
Bit 5 cl 
Bit 6 oe 


Figure 2: Simple interface allows addition of ASCH V 
keyboard to basic KIM-1. 
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6502 micro for controlling 


switches are presented. The particular application is for 
a KIM to control a tape deck, but the concepts are quite 
broad in scope. 





OBJECTIVE 


The Kim-i microcomputer is to be 
used to control the four functions (play, 
rewind, wind and stop) of a Tandbert 
9000X open-ree! tape deck by way of the 
remote control socket at the back of the 
deck. This contro! wiil enable the user to 
program the computer to automatically 
locate and play a sequence of songs 
previously selecied. 


METHOD 


The heart of the operating program 
is the tape counter displayed on the ad- 
dress LED’s which simulate the 

chanical tape counter on the deck 
reelf. Tne actual program increments of 
decrements this counter, compares the 
desired location to the present counter, 
and then directs the tape deck on the 
result of that comparison. A description 
of each of the blocks of the program flow 
chart follows: 


{nitialization- 


Here the counter, data register, 
and x and y registers are cleared. 
The data direction register is set 
to FF for an output condition. the 
x-register Is loaded with the first 
song sélection at location 0000 
ptus the y-register. The contents 
of both registers are then saved, 
using a STORE subroutine. 


Compare- 


The high order byte of the counter 
(OOFB) is compared with the con- 
tents of location 0050 pius the 
x-register. This location is reserv- 
ed for the high order bytes of any 
song starting jocation. If the result 
is either positive or negative, the 
program branches to wind or re- 
wind respectively. If the result is 
zero, the low order byte must be 
compared. Because of differing 
branch instructions, there are 
separate wind compares and re- 
wind compares. Each of these 
takes the low order bytes of the 
counter (OOFA) and compares it 
to the contents of location 0060 
plus the x-register. The program 
then goes to either wind, rewind or 
play, depending on the results. 


Wind- 


A 08 is placed in the data register 
to put the tape deck in the wind 
mode. The tape counter is in- 
cremented by adding 01 to OOFA. 
A delay !oop is set up with the in- 
terval timer and the counter 
displayed using the SCANDS 
subroutine. Jump to cmp. 


Rewind- 


A 01 is placed in the data register 
to put the tape deck in the rewind 


Michae! Urban 
General Electric 
SPD Box 43 
Aubum, NY 13021 


mode. The tape counter is 
decremented by subtracting 01 
from OOFA. A delay toop is again 
set up with the interval timer and 
the counter displayed using the 
SCANDS subroutine. Jump back 
to Compare. 


Stop/Wait- 


A 04 is stored in the data register 
to stop the tape deck. Another 
delay loop is utilized to wait for 
the deck to come to a halt before 
putting it in the play mode. The 
counter is displayed on the LED's. 


Play- 


The contents of the x-register are 
placed in OOF9 so that the next 
display will show the song selec- 
tion while playing it. A 02 is placed 
in the data register to put the tape 
deck in the play mode. The 
counter is Incremented by adding 
01 to OOFA. A delay loop is set up 
using the interval timer. The high 
order byte of the counter is now 
compared to the contents of loca- 
tion 0070 plus the x-register. This 
is the location of the ending loca- 
tion of the selected song, high 
order byte. If the high order bytes 
are not equal, the program bran- 
ches back to Play. If the high order 
bytes are equal, the low order 
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bytes must be compared. The con- 
tents of the low order byte of the 
counter (OOFA) are now compared 
to the contents of the address 
0080 plus the x-register which is 
the address of the ending loca- 
tion, low order byte, of the 
selected song. tf the low order 
byte comparison results in a zero, 
the end of a song has been reach- 
ed. The program sits in a delay 
loop waiting for the deck to catch 
up. The y-register is then in- 
cremented so that the next song 
selection can be made. Jump back 
to Begin. 


The interface- 


Through experimentation with the 
remote control socket, it was 
found that a short between any of 
the function pins and ground 
would cause the deck to operate 
in that mode. A current of 2mA 
was measured with a short circuit 
to ground. Later, it was found that 
a resistor to ground also worked. 
With 2K between the function pin 
and ground, a lower current of 
1mA was obtained. This was ideal 
for our purposes. Relays were con- 
sidered as the interface element 
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REEL-~TO-REEL INTERFACE 







DIGITAL 
SWITCH 


FIGURE 4 


but rejected because of cost and 
layout considerations. 


The 4016 CMOS analog/digital 
switch was decided upon. It is an 
integrated circuit containing four 
independent switches of the con- 
figuration in figure 3. An overall 
view of the basic interface is pic- 
tured in figure 1. The actual wiring 
diagram is seen in figure 2. A 
§-volt signal coming from any of 
the outputs PAO-PA3 will cause a 
switch closure in the following 
order: 


PAO-Rewind (01) 
PA1-Play (02) 
PA2-Stop (04) 
PA3-Wind (08) 


The numbers in parenthesis in- 
dicate the number that must be in 
the data register for that particular 
function to be performed. The 
resistors in figure 2 are for current 
limiting through the switch. 


SUMMARY 


For the most part, the project was a 
success. The only problem encountered 
was that of trying to synchronize the 
simulated tape counter speeds to those 
of the mechanical one on the tape deck. 
To better explain this, figure 4 is helpful. 
As can be seen in figure 4a, the KIM’s 
tape counter is a very linear device unlike 
that of the deck’s very non-linear counter 
in figure 4b. in the wind or rewind modes, 
the two could never be matched because 
of this non-linearity. Therefore, it was 
decided upon to only demonstrate the 
program's ability to control the tape deck 
and locate selections on the computer 
tape counter. This the program did weil. 


The ultimate way to circumvent this 
problem would be to actuaily couple the 
computer to the tape deck through an op- 
tical or magnetic pick-up on one of the 
tape reels. {In this way, the KIM would 
always know precisely where the tape 
was located. If, for some reason, this was 
not possible, a linear approximation 
could be programmed into the computer 
to simulate the acceleration curve of the 
mechanical tape counter. This would con- 
sist of three or four toops of differing 
speeds cascaded together to form a 
curve like that of figure 4c. 


In recent years, commercial 
manufacturers have been incorporating a 
similar program-tocating feature into 


“cassette decks. The most notabie is the 


Sharp RT-3388A which has its own 
dedicated microprocessor which will 
locate a particular section of the tape re- 
quested and plays from there on; it does 
not have the ability of playing any se- 
quence of songs asked for by the user. In 
this respect, our program is superior. 
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REWINO/WIND COUNTER 
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A: KIM-1 Tape Counter 






B: Tape disk counter 





C: Linear approximation 


Figure 4 


Address Instruction Label Op Code Operand Address Instruction Label Op Code Operand 





0210 FB SED 02BB AQ SF LoOP2—sLDA #35F 
0211 18 CLC 02BD 8D 07 17 STA $10241.T.| @ 
0212 A9 00 LDA #300 02¢0 20 1F 1F DISPLAY JSR SCANDS = 
0214 85 20 STA 0020 02¢3 2C 07 17 BIT I.T. 9 
0216 85 21 STA 0021 0266 10 F8 BPL DISPLAY | 
0218 85 23 STA 0023 0208 C6 24 DEC 0024 z 
O21A 85 F9 STA QOF9 O2CA DO EF BNE LOOP2 = 
o21¢ 85 FA STA OOFA o2cc 38 SEC iy 
O21E 85 FB STA OOFB Sa 02cD 4¢ 38 02 gmp *PULL o 
0220 8D 00 17 STA PAD = 02D2 8A STOP TXA 
0223 A9 O1 LDA #301 < 02D3 85 F9 STA F9 
0225 85 22 STA 0022 > 02D5 Aas 04 LDA #$04 
0227 AQ FF LDA #3FF = 0207 . 8D0017 STA PAD 
0229 8D 01 17 STA PADD. O2DA AQ OA LDA #SOA - 
0220 Az 00 LDX #300 02DC 85 26 STA 0026 <z 
022E AO 00 LDY #$00 O2DE A9 FF LOOP3. LDA eSFF = 
0230 B6 00 BEGIN LDX,Y 0000 02E0 8D 07 17 STA 410241.T. | & 
0232 20 20 03 JSR STORE 0253 20 1F iF DISPLAY JSR SCANDS o 
0235 4C 3E 02 JMP COMPHI 02E6 2C 07 17 BIT Lt. ” 
0235 20 54 03 *PULL JSR PULL O2E9 10 F8 BPL DISPLAY 
023¢ 20 70 03 JSR STORE O2EB C6 26 DEC 0026 
023E A5 FB COMPHI LDA FB O2ZED DO EF BNE LOOP3 
0240 D5 50 CMP,X 0050 O2EF Ad 02 LDA #$02 
0242 FO 05 BEQ COMPLO 02Fi 8D 00 17 STA PAD 
0244 10 10 BPL REWIND O2F4 18 CLC 
0246 4C 74 02 JMP WIND 02F5 A5 22 PLAY LDA 0022 
0249 A9 01 COMPLO LDA #$01 si O2F7 65 FA ADC FA 

2 024E 2D 00 17 AND PAD c 02F9 85 FA STA OOFA 
024E FO OC BEQ WINDC < O2FB AS 21 LDA 0021 
0250 AS FA LDA FA S 02FD 65 FB ADC FS 
0252 D5 60 CMP,X 0060 ,6) O2FF 85 FB STA OOFB 
0254  FO03 BEQ PLAY sad 0301 a9 04 LDA FSO 
0255 4C A5 02 REWIND JMP REWIND 0303 («85 27 STA 0027 - - 
0259 40 D2 02 PLAY  JMP STOP 0305 Ad 85 LOOPA LDA #$FF 
025 A5 FF WINDC LDA FA 0307 80 07 17 STA +10241.T. 
0255 b5 60 CMP,X 0060 030A 20 1F 1F DISPLAY JSR SCANDS 
0260 FO F7 BEQ PLAY 030D 2€ 07 17 BIT 1.7. 
0262 4C 74 02 JMP WIND 0310 10 F8 BPL DISPLAY 
0274 18 WIND CLC 0312 C6 27 DEC 0027 
0275 A9 038 LDA #308 0314 DO EF BNE LOOP4 
0277 BD 00 17 STA PAD 0316 20 54 03 JSR PULL 
027A A5 22 LDA 0022 0319 20 70 03 JSR STORE 
027¢ 65 FA ADC FA 031¢ A5 FB LDA OOFB es 
027E 85 FA STA OOFA 031E D5 70 CMP,X 0070 < 
0280 AS 21 LDA 0021 0320 po 03 BNE PLAY rd 
0282 65 FB ADC FB 0322 AS FF LDA OOFA 
0284 85 FB STA -  OOFB QO 0324 D5 80 CMP,X C080 
0286 A9 01 LDA #$01 z 0326 DO CD BNE PLAY 
0288 85 25 STA 0025 = 0328 AS 04 LDA #$04 
023A AQ 3E LOOP 1 LDA #S5F 032A 8D 00 17 STA PAD 
028¢ 8D 07 17 STA +10241.T 032D 4 30 02 JSR PULL 
028F 20 1F 1F DISPLAY JSR SCANDS 0330 EA NOP 

— 9292 2C 07 17 BIT Lets 0331 A9OA LDA #SOA 
0295 10 F8 BPL DISPLAY 0333 9 B5 26 STA 0025 
0297 C6 25 DEC 0025 0335 8 AQAF LOOP5 = LDA #$AF 
0299 DO EF BNE LOOP1 0337 «= 8D 07: 17 STA +10 -11.7 
0298 EA EA NOP 033A 4 201F 1F DISPLAY JSR SCANDS 
029D 40 38 02 IMP *PULL 0330 200717 BIT I.T. 
0245 38 REWIND SEC 0340 = 10 F8 BPL DISPLAY 
0246 =A. 01 LDA #501 0342 66 25 DEC 0025 
02k8 = 8D 00.17 STA PAD 0344 D0 EF BNE = L005 
O2A8 AD FA LDA FA a 0346 = 8 INY 
O2AD £5 22 SBC 0022 = 0349 4¢ 3002 JMP BEGIN 
O2AF 85 FA STA OFA = 0354 68 - PULL PLA w 
02B1 A5 FB LDA FB oc 0355 8530 STA 0030 z 
0283 E5 23 SBC 0023 035768 PLA 54 
02B5 85 FB STA OOFB 0358 = 85 31 STA 0031 OD 
0287 A O1 LDA #301 035A 68 PLA g. 0. 
0289 85 24 STA 0024 035B  A& TAY 2 
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MEMORY ALLOCATION 
Address Instruction Label OP Code Operand 


035C 68 PLA Address Label 
aie 2 31 He 0031 0051 Selections 1-15 
a Be 30 Em 0030 O05F Starting Locations High 
0363 «48 PHA - : . : 
cial ee Bis = 0061 Selections 1-15 ty 
nat : 30 Store se 0030 a O06F Starting Locations Low ie 
0373 68 PLA c 4 
oe 31 abi O03 Ww 0071 Selections 1-15 
z 
pee ~ ee = O007F Ending Locat 
ba) g Locations High 
0378 98 TYA ros 
0379 48 PHA o 
pets rv as a a 0081 Selections 1-15 
are re a ot OO8F Ending Locations Low 
0380 60 RTS 
x Song Sequence Numbers 
OF 
0210 
~ V Operating Program 
0380 
0020 : 
Miscellaneous Locations Used 
0032 Within Main Program 





Card Shuffling Program for KIM - 1 





Your 6502 might play poker like Amarillo KIM, but does it 
always have to pass the deal? Not if you teach it to 
shuffle cards! 


Hark Chan 
P.O. Box 714 
Cambridge, MA 02139 





Entertaining friends with computer ed in a KIM. The machine instructions —_rupt vectors to jump to the interrupt ser- 


games certainly makes all the effort of 
assembling a personal computer worth- 
while. However, if you happen to have a 
small microcomputer with limited mem- 
ory and very few software tools, there 
are not many games available. As an 
example, most card games need a ran- 
dom number generator to shuffle cards. 


The standard method to generate ran- 
dom numbers (as used in most BASIC 
interpreters} is not suitable for this pur- 
pose. Since some of the barc-bone com- 
puters do not even have the software to 
perform multiplication, it is asking too 
much for them to generate floating- 
point random numbers. To make these 
small computers more entertaining, a 
simpie method to shuffle cards is de- 
scribed here. This method is imptement- 


use about 80 bytes. There is lots of mem- 
ory left for playing card games. The only 
drawback is that it requires the operator 
to press the interrupt key in order to stop 
the program. 


The card shuffling program consists of 
two portions. The second portion is the 
main program that shuffles cards. It just 
keeps on shuffling until the interrupt.key 
is pressed, The first portion is an inter- 
rupt service routine used to ensure an 
orderly ending of the program. The pro- 
gram is relocatable, and the two portions 
can be in Separate locations. 


This feature makes it easy to incorporate 
the shuffling program into a complete 
card-playing program. However, it is im- 
portant that the user initialize the inter- 
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vice routine, 


To keep the computer code relocatable, 
the initialization of the 2 byte address is 
left to the user. The storage area for the 
cards, together with 4 bytes of working 
space, are in page 0. In this program, the 
storage area starts at address 0001. 
However, the program can be changed 
easily to move the storage area to other 
locations in page 0. 


The deck of cards is stored in an array at 
locations (hex) 0001 to 6034. The value of 


each address is distinct and is between 
hex 1 to 34 (decimal 1 to 52). After the in- 
terrupt key is pressed, the content of 
these addresses represents a deck of 
random cards. 


The program uses a simple random num- 
ber generator to generate random point- 
ess with values between 1 and 52. The 
first card in the deck is interchanged 
with the card selected by the random 
pointer. The position of ail the cards ts 
next shifted one place so that the last 
card becomes the first, the first card 
becomes the second, and so on. This is 
to make Sure that the first card is always 
changing, and a different card is inter- 
changed with each randomly selected 
card. A random pointer is again 
generated and the whole operation is 
repeated. 


After a sufficient number of operations, 
ihe deck is suitable for card games. One 
or two hundred shufflings are sufficient. 


When the interrupt key is pressed, the 
interrupt service routine sets a memory 
location, hex 0038, that serves as a flag 
to signal the end of the shuffling. This 
routine also restores the accumulator 
and the X and Y registers. It is important 
that the user initialize the interrupt vec- 
tor to address the service routine in- 
stead of the operating system. 


The sequence of cards being shuftied is 
actually predetermined because it is 
calculated from a prescribed series of 
operations. However, if the stop com- 
mand is activated by a human operator 
the cards can be very random. It takes 
about 10‘ second to do one shuffle. 
The time to activate the stop command 
can easily vary by more than 0.1 second. 
Thus, the number of shufflings can be 
uncertain by about 1000, which is suf- 
ficient to generate a deck of random 
cards. 


0200 
0200 
0202 
0203 


0205 


0206 
0208 
020A 
020C 
020D 
020F 
0211 
0212 
0214 
0215 
0217 
0219 
O21B 
021D 
O21E 
021F 
0220 
0222 
0223 
0225 
0227 
0228 
022A 
022B 
022D 
022F 
0230 
0232 
0233 
0235 
0237 
0239 
023B 
023D 
023F 
0241 


0243 
0245 
0247 
0249 
O24B 
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86 
A5 


Eg 
BO 
18 
69 


85 
B5 
85 
A5 
OA 
OA 
18 
65 
18 
69 
85 
18 
65 
38 
Eg 
BO 
18 
69 
AA 
BY 
A5 
95 
A6 
94 
A5 
C9 
FO 


A5 
AY 
A6 
E6 
40 


36 
00 
FA 
35 


34 
FB 


35 
35 
00 


37 
36 


36 


01 
36 


35 


a3 
FB 


34 


00 
37 
00 
35 
00 
38 
00 
C7 


F3 
FY 
F5 
38 
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ORG $0200 
LDXIM $36 
L1 TXA 
STAZX $00 
DEX 
BNE L1 
STXZ $38 
LOOP LDAZ $35 
L2 SEC nore 
SBCIM $34 
BCS L2 . 
CLC 
ADCIM $35 ‘ 
TAX 
STAZ $35 
LDAZX $00 
STAZ $37 
LDAZ $36 
ASLA 
ASLA 
CLC 
ADCZ $36 
CLC 
ADCIM $01 
STAZ $36 
CLC 
ADCZ $35 
L3 SEC 
SBCIM $33 
BCS L3 
CLC 
ADCIM $34 
TAX 
LDYZX $00 
LDAZ $37 
STAZX $00 
LDXZ $35 
STYZX $00 
LDAZ $38 
CMPIM $00 
BEQ LOOP 


® INTERRUPT SERVICE ROUTINE 


LDAZ $F3 
LDYZ $F4 
LDXZ $F5 
INCZ $38 
RTI 
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Circuits and suggestions for the selection, installation 


and utilization of EPROM. This fully buffered EPROM 
board is easy to build and use. It requires no special 


interfacing. 





One of the handiest additions for the ex- 
pansion-minded KIM owner to consider 
is an EPROM board. There's nothing 
like being able to summon your favorite 
programs as soon as the computer is 
turned on. Most people think of PROM’s 
in terms of holding BASIC or an operat- 
ing system, but there's no reason your 
favorite games and utilities shouldn't 
be there too. The most heavily used rou- 
tines in my 2708s are Hypertape and 
Browse, both from the The First Book 
of Kim, and the XIM Teletype utilities. 
Tiny BASIC wiil go in PROM as soon as 
' can find time to relocate it. QUICK, a 
reaction-time game from The First Book 
of Kim, is there too; it's fun, and a nice 
way to show off the computer. 


There are lots of articles from which one 
can build EPROM programmers, and 
some of these are specifically for use 
with KIM. The most EPROM fer the 
Money currently seems to be the 2708. 
Prices in the $6 range for 1K 8-bit words 
(650 ns access time, fine for KIM) are 
hard to beat for any type of computer 
memory. Just one of these things holds 
as much as the entire user RAM! 2708/ 
2716 programmers are also available as 
kits or assembied from dealers, but most 
are quite expensive. An exception is 
Optima! Technology’s unit, which is in 
the $50 range; that's what | have, and it 
works beautifully. Incidentally, their 
programming software can be relocated 
easily by hand, and it now residas in a 
PROM too. 


There seems to be considerably less in- 
formation available on using PROMs 
with KIM. Most of the commercial 
boards and construction articles are for 
the $-100 bus, which doesn't help the 





LM329T-5 
(top 
view) 


1uf 35v 
tantalum = 
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KIM owner a bit unless he already has a 
KIMSI or similar interface. Fortunately, 
a fully buffered EPROM board with ad- 
dress decoding is very easy to build and 
use with KIM with no special inter- 
facing. My unit is shown on the accom. 
panying schematic. It was wire-wrapped 
by hand on a smail piece of Vector perf- 
board, using sockets held in place with 
G.E. silicone cement, and contains aa- 
dress decoding for up to 16 EPROM’s 
beginning at address C000 hex. 


Two type 8197 hex buffers are used to 
buffer the lower ten address lines, since 
all the EPROM's are in parallel across 
this part of the address bus. Two sec- 
tions in the second 8T97 were left over, 
and were used to buffer KiM's lines 
AB14 and AB15 rather than let them be 
unused; substituting a 74LS00 in place 
of the 7400 would provide a simitar load 
on the address bus, but | wanted to buf- 
fer as many address lines as | could to 
make further expansion easier. The 
74LS154 four-to-sixteen line decoder 
provides the CS signal that gates a dit- 
ferent EPROM for each 1K of memory 
Space, and the NAND gate activates 
this decoder when bits 14 and 15 of the 
address bus are both high (address > 
C000). 


The vector-fetch and decode-enable sig- 
nais required by KIM are generated in 
my system by expansion RAM boards; 
you will have to provide them yourself 
if you don't already have some form of 
memory expansion. Although not shown 
on the diagram, 0.01 of 0.1 mf bypass 
capacitors were used from +5V, + 12V, 
and -5V points to ground on most ICs. 
A (M320T-5 IC regulator provided -—5V 
for the 2708s from my existing power 
supply. 
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William C. Clements, Jr. 
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There is a beneficial side-effect from 
using EPROM’s which is not enough 
talked about. Use of these devices pro- 
vides a strong encouragement toward 
cleaning up and refining your program- 
ming habits! If you are not already care- 
ful that your program contains “clean" 
or non self-modifying code, you wilt 
quickly get into the habit if you have 
any kind of ROM board. 


A certain amount of ingenuity can often 
show you how to adapt other's sofft- 
ware to PROM. If a table in page zero 
needs to be initialized before running a 
program, just append your own short 
program to move the data block from 
PROM down to page zero, and then 
transfer contro} to the start of the main 
program. | like to write short driver rou- 
tines like this when PROMming a pro- 
gram that requires register initiatization 
from the keyboard to run different cases. 


If the program is going to be kept in 
PROM for years, it is easy to forget 
which numbers go where and at what 
times. I'd rather just have to remember 
a single starting address for each sepa- 
rate Case, and jet my driver program do 
the initializing. For instance, | begin 
Microchess at one address for super- 
blitz play, at another for biitz, and at a 
third for regular play. These addresses 
set the proper constants for each level 
of play; the original version required 
changes of instructions in the program 
itself, which is not possible in ROM. 


If a program is self-modifying, and you 
can’t figure out how to fix it without 
Starting over, don't despair; put it as is 
{unrelocated) into PROM, along with a 
little routine that copies it into lower 
memory and then transfers control to 
it there. 


Using such a routine, the program ap- 
pears to the user as though it is execut- 
ing directly from PROM except, of 
course, that the lower memory is not 
available for other uses during execu- 
tion. If that is not a probiem, you could 
éven store a// your programs in PROM, 
Preceded by a move routine, and be 
Spared the work of relocating or modi- 
fying any of them! if you have tots of 
expansion RAM, this is probably the 
most hassle-free way to go. However, 
you choose to do it, relocating and run- 
ning direct from PROM, or moving and 
running an unmodified program, using 
EPROM's will be a lot of fun. And think 
of ai! the tape you'll save! 
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(E-X) indicates KIM 
Expansion Connector 
pin X 


(A-X) Indicates KIM 
Application Connector 
pin X | 
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KIM Scorekeeper 








Always on the lockout for new applications for the basic 
KIM-1, a general purpose, multi-player scorekeeper is 
presented. The techniques can be readily modified for 
use on a SYM-1 or AIM 65, and the scorekeeping function 


Joe! Swank 
4655 SW 142nd, 186 
Beaverton, OR 97005 


can be included as part of larger game programs. 





Ever have a problem getling someone 
to keep score for your friendly game of 
Hearts? Weil KIM would like to be a 
volunteer. KIM will keep up to nine 
separate scores for you to display and up- 
date from the keyboard. Each piayer can 
have from 0 io 9999 points, sufficient for 
most card games or other games needing 
a scorekecper. Bridge fans can drop the 
low order zero from their scores (150 
points for a grand slam??). | must credit 
the idea to a hardware project in October 
Popular Electronics by Joseph Fortuna. 
He used decade counters and 7-segment 
LED drivers to two-digit scores. A 
telephone dial was used to increment to 
counters. | immediately saw a job that 
KiM could do with software. Naturally 
with all the power of KIM avaitable | had 
to improve and expand the idea. 


Tne KIM SCOREKEEPER uses nine 
2-byte memory registers to save the 
players’ scores. Normally one of the 
players’ scores is displayed continuously 
in the KIM display. The high order digit of 
the display is the player number, 1 to 9. 
The next digit is blank and the four low 
order digits contain that player’s score. 
To display another player's score the PC 
(Player Change) key is pushed and the 
display goes blank. Then a number from 1 
to 9is pushed to get that player’s score in 
the display. After a player is selected, the 
score can be updated. A player’s score 
can be increased by entering the number 
to be added to the score and pushing the 
‘E’ (Enter) key. Up to four digits can be 
entered. During entry of a number, the 
display shows the number being entered 
in the four low order digits with the two 
high order digits blank. Digits are shifted 
through the display as they are entered. if 
more that four digits are entered, the high 
order digits are shifted out and lost as in 
the KIM monitor. 


The piayer’s score can be decreased by 
pushing the ‘D’ (Decrease) key to set sub- 
tract mode. When the subtract mode is in 
effect, any number entered wil be sub 
tracted from the player's score when the 
‘E' key is pushed. The high order digit of 
the display will show a minus sign when 
the number being entered is to be sub- 
tracted. Subtract mode stays in effect un- 
til the ‘+’ key is pushed to reset the pro- 
gram to add mode. The ‘+’ and ‘D’ keys 
are effective anytime except when perfor- 
ming the player change function. If any 
key except 0 to 9, ‘+’ or ‘D’ is entered dur- 
ing the update operation the display 
returns to the current player. The ‘C' 
(Clear) key may be used to zero the cur- 
rent player's score. 


As shown hy the programs, SCORE- 
KEEPER has two main cisplay loops. One 
displays the current player and his score 
while waiting for a command from the 
keyboard. The other displays the number 
being entered while inputting digits from 


the keyboard. The code is divided into 
subroulines for the sake of modularity 
and readability. The KIM subroutine 
GETKEY is used for communication from 
the keyboard, and the HEX to 7-segment 
conversion table in the KIM ROM is used 
to generate characters. The display is 
Griven directly by the subroutine DISSEG. 
DISSEG is more flexible than the KIM 
subroutine SCANDS since it allows in- 
dividual control of each segment of the 
KIM display. Thus any pattern can be 
displayed. DISSEG reads data from 
memory at SEGBUF and dumps it directly 
to the KIM display high order digit first. 
This subroutine could be used in a wide 
variety of games for KIM. 


KIM SCOREKEEPER is an exampie of 
KIM's ability to replace and improve a 
hardware gadget. There is nothing t like 
more than finding a hardware function 
that KIM can replace with software. 
Someday | will calculate the weight of the 
hardware that my KIM has displaced. 
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ZERO PAGE STORAGE 


fede PLAYER * 
8280 MODE * 
8208 CURPLA *# 
@208 CURKEY * 
B208 TEMP * 
B288 INDEX * 
#200 SEGBUF * 
B2a8 NUM@UF * 
8280 ZERO * 
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S$O8B868 PLAYER SCORE TABLE 
$8094 @eaADO ELSE SUBTRACT 
$8895 INDEX TO CURRENT PLAYER 
$2096 LAST KEY ENTERED 

$8297 REGISTEH SAVE AREA 
$2098 REGISTER SAVE AREA 
$2099 OISPLAY BUFFER 


“ $809F NUMBER INPUT BUFFER 








GA3X WAIN = =—-3BS WIdKD 38 69 9828 ZAIN DINBANN = V3 NTGNQ GON v2 69 Sp2a 
gooicn 93a @4 64 6928 
éNt1i39 gar 28 94 Ip aves 
eAaN ON, ABONST = ——-S4S MIND at 0.2028 WAAWId IN3HHND FONVHO ‘S34 AWIddN — HSP 2a 6S a2 4s€za 
AOAUNO: AB 96 $8 SEc8 ON Id0N 3Na 90 aa acze 
a8 108. S28 a7 Bocas LABX 2d = LS WGA HIION bb 69 af2e 
33IML AIM ANVG GV3W 4,NO0 A3xuNI = GAD 96 $2 LEez~O ‘ } 
GHVOGA3¥ OV3u A3WL39 = oYSr db v9 B82 3226 gni39 gw 28 9 2D a¢cee . 
434308 AWidSTG ANNSIO Ys dOOIGN 29 82 BZ acz~ WIAWId ANBWHND HW3I9 “G34 yNdHIO usr 2a 4> a2 Seze 
Y334NG OANT A3X L4THO ABNSHA = =oUSr oaMtdN Ce 6S Bz Giza ON WIJON 3Ng 98 80 Efz¢ 
AIM 3H0LS3Y dt ay yar £6 SV 9228 éaA3ax% 3 983 ATdAD SONNON 38 63 L€28 
bO+ 4NdMNN wis O¥ Sa bd22a : 
H344Nd LNdNI HV3ID 4nannn wig 46 $8 2229 dVV39 BA 33 84 4228 
Ou3z wIvan od &Y B228 3GGW LOVHLGNS 138 SBA 3GdN VIS v6 SB d2zB 4 
ABM 1S8HIS 3AVS dNZL = VS BLvadan 66 S@ 3920 fe CON SENNON:. .. SNR 08 BG Ge2e 
FEHEEREEA SERRE EORERE RARE EEEEH EEE EE OEE éA3m ) Gas NIdAD SATION . a@ 69 6228 
* * 
* H3AWId INIHWND JO 3409S * dn1139 = 3a a3 a4 22a 
« 3LVOdN ONY W3BANN INGNI ? 3ivGgn 300K = v4 v6 SQ Sz2a 
‘ ; 30GW Gdv 138 ‘S34 0H3Z AIVOT 82 6V C2e~ 
SREHEEHHEEEEAEEEHEEHHEE EME RERE EEE EERO ON SNIdON ANS 96 80 1228 
éa3y 8nd Z+$ WIGW3 Zt 69 4b2¢ 
S1y 69 A928 AaWHNS Vis 96 SB aLza 
AI BAYS Widund vis $6 $8 89¢a) gN1i39 3a 63 84 920 
XZ0NI WOd 2 aS LIN vSv va vozg JONNOGIG ASxUND ND 96 $9 6b28 
AViddn 898 43639928 A3X 139 9 3HODS AVIdSIO 139510 ysr gnNtL39 €B 98 B2 9124 
é N¥AL 3yuoan GNY was AXIango wd 63 9928 HHH HEHHSRTEHESEERHERHEHEE HH EEKHO HERERO ES 
AWIddt 994 €4 86 v9zp * " * 
b NVH2 $537 3HONOT b8S WIdKD LB 69 2920 * ANTONI WA * 
AaNWNS =o WAS 96 SB 3928 id - 
AW Iddfh O39 643 a4 3928 : REFS OREEEEEHEEHTHEEEEEEEREEEHORHH EE HERE EE 
44T7 OL ASM ASWT HOS LIVM ABIUND = GAD 96 SO IS28 
QWVOGASN OV3H A3NL3D «UST AVIddn 4b V9 Bz 6Sza Vidsnd vis S6 SB viz 
SRRERPEEEERE EEE REED DERE HE EERE ED ENDER EOD # SI HIAW Id INAHuNO cas WIvO) ed 6v cles 
is a WN¥12 LIDIO GNOD3S 66+ 4na53s ovis v6 $9 aLze 
. GHVOBARX WOBd WRAY Ig - . 7 qgqgv 01 300W 43S 3008 vis v6 S@ 30zB8 
@ IN3BHHND WIN 40 HOBANN 139 * avigdn ¢« A3H AN3HHND LINI AaxHuND ¥iS 96 SG Jaze 
: i . dQ1W19 ©9999 84 46 vaz~a 
HESP NEHER HEHEHE EERE E DESEO DERE REE EEE VbS WIAda vt 69 abe 
ANI 82 2aza 
H3AVId AVWIS GNINID 83 88 66 vIz~— 
SIH 29 8S2¢a : BO) S$3H03S Vv LINI Gu32 WI¥YOT O82 46v¥ 2¢2¢ 
3H098 40 Y3AVId XZWIS a9 $6 9S28)—, CaS -ATXON ef av B8c8 
X¥NT 83 6$28 SSH EHHSEEHHEHEHETEHONEREEHHEEEOHOREEEES 
S3LA8 HLOG OW3Z WSAVId xzZVv1S 83 S& £528 i sf : 
| Ov3z wIvay 82 6v LS2a * NOL AVZT WILINI . 
XJQNI Y3AVId 139 WidHNd = x07 yn" S6 Sv jb2— * . 
SHEESH RE EEE OEE ERESEREEOREEHEEE REE ERE OH SESEHEERT ENE EN ERO ERD HERES ESTEE OREN EHE 
* . * 
* HRA Id * 
* AN3SHHMAD 40 3y09S uv379 ? undYID LHOd iNdinO SIN3W9N3IS AvLEs * avs BB28 
" ; AWOd £93738 LI9IG eels * aas _ 8820 
PPEHERELEREOHEEELEREREEREEHEEOREEGEHED ES HALSIOIY NOTi93uIO boess = GOvd B82 
37aVv1 939-2 OL x3H 4348¢ + 3ev1 4820 
QuvO@aax 3H) GV3H VOSS # A3x139 ogza 


gnuu39 gar Za 9b Ov dvep 
3W008 Zivaun "S34 34¥dgn usr 2@ 39 B2 bbe s13av7 





FHSS SSHHEHHHEEEEHSEEEHES HEHEHE HSER ES 






Pi 3148 V 190 4MGANN avVdT gNTANN 98 36 69 Goz~e 
* ingga¢ wou4 43099 ; AYH SOTML +8¢$ WIAGN +a Sv 60z¢ 
* : . 
* H1TM AVIdSIG WIN 3111? O3ssta « MSONT | w1S 86 98 caze 
be i LISIO GHE Iv LHvIs 2a$ alxan 28 2v¥ Saz@ 
ao ag3s Wis 
SELES EEE SH HSSEEHEEHEHEEEEEE RHEE ERO EEE L79ra 1SHI4 NYT ‘on pee Pre NIWSIG ra aa 
CHVOGA3™ Gv3y¥ 09 434239) awe db v9 Ov 92¢¢ S44 NIWSIO = 3NQ 28 GG 4928 
H344NG AVIdSIO 93sstq. usr £6 62 B2 €2eg é3008 LovHLenS 300N = xQ7 06 9¥ 0228 
SiN34N938 O1 LH3ANOD 935149 Har 20 23 G2 B26 NOSIS SANIA 9S AIVvO1 waNnsta 89 6v ajed 
3LAd 07 YW3AY 1d A¥¥YOT ag 62 6&3 Ores SHHREEEEEEREHRHEE EEO EEE EEE EERE HERES EERE HOS 
AIG ee 2:¢a * ; * 
83902 i1N4N93S O14 LH3ANO09 935142 usr 28 £35 @2 &tEa * W333NG NI W3BWAN AvIdSIO : WNNSIG + 
AHO9S 30 3LAd £39 YWIAWVIa AVVO 24 868 68 Sica * * 
f 3iAd IH ANI 83 Stee PHEEEEEE HE SHE EEE HEH HEREEEELEEH HOHE REEDED 
J KAONI H3AVId Widynd aqn Sé& PY ELEB 
X3GNI W345na LINI xX30NI wis 86 SB Lice Slu 89 wIz— 
1I9IO GHIHL 24% AIVGT Za év 40¢8 AWVNIG OL OVA O73 GO 6328 
BWId4NG AVIGSIO NI 3avS 4ne53s vis 66 $@ Gata JAVS ONY UIAWId XZ¥iS ‘ 89 S6 L320 
3003 1N3N3S9 GQvVOT 37aVv) xvvOT 4b 23 03 v2ee # 40 3LA5 IH LOVHLENS La+ sngAAN as @v $3 S$oz¢8 
X30NI S¥ 35n XV E Vv 623¢2 31Ad IH 139 wIAVIg xXzvOI 88 SG €22¢g 
# WAAV1d 135 Of 2 ad AQIATIA ¥HS7 vp Qpea ¥NI 83 2328 
XFONT HNAAVId 139 VIdHNI WOT 139Srg S6 S¥ Sees 3AVS ONY Y3AVId XZVvIS 88 S6 B92a 
CRHSER HERE EES RENE ESTEE HEE RESEHE ERE E ERED S ##30 31ag 07 LIVYLENS JNAANN 39S 436 $3 #3928 
& . 23S wYuLans ae ouze 
* GHVOGAIN Ov3H * ‘ 
# ONY H3AV1d IN3HHN AvIdSIO : 439srq | 3HOUS IN3YHND WOWs W343NB LOVULENS ; 
* 7 * ‘ . = 
SOHN SER EPH EERE EEE EEE SERRE REE ER ERE RES : 
j Sid a9 20ze 
i AHVNIG O14 XOVA a12 80 sa2g ey 
Siu 29 Saca JAVS ONY YBAVId XZVIS 88 S& 6az8 = 
NOTLISOd 4344N9 1x3N X3BONI 3NT a6 93 €ace # 430 3149 IH QGv 48+ 4nannn = day Ov S9 Laz 
H344N9 NI 3avS 4n@9395 xzvIES 66 S6 Lace SLAG TH 139 W3AWId x2v07 #8 S8 SB2¢ i 
KX3QNI y344N9 1393 x30NI yor 86 OY di2¢ XNT 93 vas ; 
3009 i1N34938 dvo1 37ev, xvvat - gb €3 03 2428 3AVS 3 Y3AVId XZV1S @8 S6& 2828 
X3Q0NI S¥ 37844N 07 Asn XVI v¥ @3ze 3149 O07 OS¥Y 4na@wnN day 46 S9 gaze , 
JIGGAN IH Hyv319 4a% WIONY 43 62 6329 913 Qt 3vza 
JLAG 3H01S3u a3, Or £6 SY L42¢ 
NOTITSOd H34i5Na LX3N YXFIONI INT 86 93 3422 . 3HO098 LN3WYND OL H343Ng Gay 
3003 1N3N935 3HO;S ONY 4nag3as x2Vv~S 66 $6 £428 
XSONT H345N8 132 X30NI  xa7 86 Gv L4z@ LOVHLENS WHLaNS = 3NG 38 80 avep 
3099 2N3493S dvol 378v1 xvyar at £3 G3 3322 éL9Vu.5NS HO Gdv 300n = 4qgq 06 DY SvZ~— . 
ONY X¥30NI Sv 3ean XV Yv Gaz~ 3uGUS 3O 344g G7 1439 B3AVId X7vO7 ae oa 62a [ 
‘ WHSOI We 33228 SNVANH HO3 300K IWwWwII3d Q3s Si Svzg E 
1 37aGAN Mor ¥HS7 vb Qaze Y3AVId AN3ZHHND 139 Widynd x07 wWnagv S&6 9¥ 9Y¥2a | 
! OL AIGAN IH 3A0W vus) vo ¥426 4 
i vuST VD 6328 AIX] ‘ON Siu a9 SvzB t 
Alaa Jaws d&3L VIS D3SLAZ £6 $8 232g W344NE NI ind *§34 aNtan 2396 €0 @6 €vee . 
SEREEREHEE OTHE HE EH EERE EEE ENED REESE £434 SIW3ANN VBS AIdAD = WANYD v8 69 Lv2e 
* * : 
* JN@938 NI SL1I9IO x3H * dooy0n 83a VO 84 3628 
* OML OLNI 3140 & LYBANGO : S3S1A92 « JOOW LOVHLENS 138 ‘*S3, 300K vis vé& SB G62—a 
* a CN WANN 3Na pa@ 60 géecgd : 
FEEEEE EERE EEE EE EE EEER HERE EE EHO E EERE EE OS 43x Q as$ WIGHO ONS ga 63 6628 
l dOO1GH = ag 23 83 L628 4 
AVIdSIG 09 D3SsI0. gar €8 62 3» p3z0 ; 3004 = Vis 06 SB SézB 
2 W3id¥ LINO gn ANN 333 éi @4 2329 JOON OG¥ 138 ‘S34 O43z2 WIVOT 80 6v Cé2a 
A30 ; 88 +320 ON ana 3NQ 98 80 Lé2e ; 
U3I3ING NI $938 G1 LHIANOD 9351A9 sr 28 £3 82 3028 éA34 SNId ebS AIdKS 2) 69 4828 
i] : 


—peetann(iarlntian a insta: et abana he ae ihn wtnbeninpaltir mtd Sell sR Mt ena ate ilrlabicnatia 2 ae + E 


i De «in “nth, sem Ya edith tuna nonstate i atl oth ti 0 A 


1a+ 

H334NB6 WSIBANN 
OLNI WOAIGY AOWA 
Sild B 4L4THS 


a Va9aN IH 
OL AIR ZJAON 


dN3aHs 


SN@AGN 
JNBANN 


pas 


See ee epee dere ap me fr ey I Tn ain a km SVE RHR arrest: ena, iP CARA SAPO" AA hme: eP Aee earn." er 


Sly 
AN@ 
x4ad 
mitts) 
104 
¥TO8 dNTdHs 
“rxo1 
W1S¥ 
V1SV 
Vis 
ViSVv ASWAHS 


We ME aE He Ae ea a a Ee ae a a a a 


* i 


* SMG@WNN OLNI ,AAN LITHS 


* 


+ 
$ AJNSHS f# 
* 


SEER MEET EERE EERE EEE HERE EERERE EEE 


@€S69 330 NHNML 
$939 330 NUyUNnt 


3d0N 
i134 NNO 
LIQIO 2X3N 193735 


NOISOd W334NG 1X3N 
ANIHM ¥ yO NO LI 3AVIN 


LISI0Q 3107 
LISIOG 1943738 
AV UdSIC HVv3a19 


B344dna WOWF L4ISTO Vv 139 
X3Z0NI Wdas5snhd L393 
XBONIT H3435NG ¥V319 


LSHI4 | LIST 193738 
nding 
OL 8€S9 13S 


qovd 
a0S 
OW3Z 
dAsrIa 
Sts 


X¥SONT 
LIV¥ 


id$ 
avs 


a2s 
avs 
0437 
4an83S43s 
X3ZONT 
X3ONT 
OH32 
6a$ 
cavd 
acs 


Siu 
¥ViS 
VIS 
WIVGy 
35¢ 
WIAd3 
ANT 
ANT 
INI 
3NG 
x3qd LIVA 
WwIKd 
¥ViS 
ALS 
XiS 
ALY? 
K7ZVOT 
KG AMiIsla 
VAS 
wiryad 
wilagy 
¥1S 
AIYO) Jassra 


éb 
cb 


éb 
ét 
ab 


db 


84 


BY 
46 


ba 


bP 
aa 
da 
v3 
St 


36 


3 
gv 
Zp 
BP 
OB 
&6 
a6 
e6 
ra 


Lv 
3d 


a9 
Ee) 
WO 
92 
Je 
Ve 
ev 
vo 
va 
ve 
va 


a9 
og 
103) 
6v¥ 
a6 
da 
83 
B89 
93 
8a 
vo 
av 
ag 
a8 
38 


oY 


L9€8 
S9ea 
poes 
coEB 
a9f8 
4S€a 
OSes 
3Se4 
GSes 
¥SE8 
65€6 


goed 
SSee@ 
2ac8 
aS€a 
Apes 
3Pca 
aveg 
voc 
gves 
9vee 
Svee 
Eves 
Aveo 
Gece 
Vela 
eeca 
Feee 
pecs 
zeta 
BECB 
328 
B28 
6zea 


79 


t 
k 
5 


Sh MN OE EN NE TINS TRI 927 SO ae RE SO OT OE ORT SR A A, CME A 


SEATON, TE! YES I ELT LE LE OEE ET TT SEPT TN Ire sa a tar of = PR Ee eT idacaales | 


Kil — The Tunesmiin 





A number of programs have been offered which permit 
you to play music on your micro. The program presented 
here also permits you to compose music on your KIM, as 


well as save it and play it back. 





Anthony T. Scarpelli 
RR 1, Box 426 
N. Windham, ME 04062 


Have you ever wanted to compose 
music, but knew nothing about how to 
go about doing it? Do you lack a musical 
instrument and have a tune going 
through your head and don’t know what 
should go after the first few notes? Well 

re is a program for a basic KIM-1 that 
_ Al help you compose a tune, and you 
don’t even have to know how to read or 
write music. 


| have really never learned how to play a 
musical instrument, and | never have 
time to practice. Yet every once in a 
whiie | want to try out a few notes going 
on in my head, or {just want to see howa 
coupie of notes sound together, to see if 
they have any effect on me. So what I did 
was to develop a program that uses a 
basic KIM-1 and the speaker circuit 
shown on page 57 of the KIM-1 User 
Manual that plays a tune 1 compose one 
note at a time. | use the keypad as data 
entry to place into the program notes of 
two octaves, including sharp notes, with 
four possible fengihs and a rest or no 
note. i used the lettered keypads as well 
as the 9 which looks like a small G for all 
the notes which are seven in number, 
basically ABC DEF andG. 


Tunesmith Operation 


Once you start the program, you press 
one of the note letters. It will sound the 
appropriate note. If you want the sharp 
for that note, if it has one (B and E do 
not), press 5. To get the upper octave of 
the note you want you press 7, and if you 
want the upper octave sharp of the note, 
press 5 first, then 7. The keys 1, 2, 4,and 
8 will give you a whole note (1), a half 
note (2), a quarter note (4), and an eighth 
note (8). After you choose your note, you 
choose your length. If you don’t want the 
note, start again, only this time the 
length is not automatically a half note as 
it would be when you first start out, 
you'll have to change it to what you 
want. 


Now that you have your nice note that 
sounds just right, press 3. This will save 
the note and place it in a tune table. To 
know that the note is indeed saved, the 
display will flash a SAVE. You have to 
hold the 3 key down until the SAVE is 
seen, though. Now the chosen note will 
be played and you can pick another note, 
or a rest which is 0. The procedure is the 
same for a possible 72 note tune. If you 
like your tune and want to write it down, 
press the + key. The display will show 
you the first note of the tune, and every 
time you hit the 3 key, the next will be 
displayed. tf you want to start again, 
press the DA (Do Again) key. 


The Tunesmith Program 


We can go over the program now. Table | 
is a listing of the keypad numbers and 
what they represent. The main program 
starts at 0200 and initialization goes on 
to 021A. From 021C to 0228 we test the 
keypad and 022A to 022E we test for the 
first time through the program. This step 
eliminates any noise in the speaker while 
choosing the first note. 0230 to 0236 
gets the program to step through al! the 
notes, and 0238 to 023D delays the pro- 
gram, not only to give you more time to 
choose a note, but also to put a space 
between the beginning and ending of the 
tune. 0242 to 0248 is for the beginning 
silence. 024A thru 0263 loads the note 
you have chosen into a temporary loca- 
tion. 0265 to O26E will jump to all the 
subroutines which we'll explain in a 
minute. 0271 thru 0278 tests for the save 
key, which you press if you want that 
particular note. From 027B to 0283 we 
test for the DA key. 0285 to O28F will 
cause the program to jump to the routine 
which will allow us to see what notes we 
have so that they can be written down 
and saved for the ‘Top Ten’. 0295 to 
O2A9 sets the save flag, resets the note 
counter, and because the program goes 
deep into the stack territory, resets the 
stack pointer to avoid trouble, 
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The Get High subroutine is the first one 
we come to. From 0356 to 035E we test 
to see if we want a high note. If we don’t, 
we return from the subroutine. If yes, 
we'll first test to see if it's to be a sharp 
note that is to go to the next octave. If it 
is, then from 0366 to 036A we'll load the 
high sharp note into the temporary loca- 
tion, otherwise from O36F to 0373 we'll 
load just the next octave note. The Get 
Sharp subroutine is similar and the Get 
Length subroutine is simple enough. 


The Play Tune subroutine is next. From 
0300 to 0306 we set up the first note, 
then we play it. This is the unsaved note 
we are trying out. Then we'll test for a 
save flag from 0313 to 6317, and test for 
a note or notes in the tunetable up to 
031D. If there is one or more notes in the 
tunetable, from 031F to 9330 we’l! play 
them. If we had a save for the temporary 
note, we reset the save flag, store a rest 
so we don't hear the saved note twice, 
then load the note into the next position 
of the tuntable, and we'll also put our 
chosen length into the length table; all 
this from 0333 to 0345. Since we saved 
the note, not only do we need some in- 
dication that it was saved, we also need 
to indicate that our finger is on the 3 
keypad long enough for the program to 
catch the keypad entry, so at 0347 we go 
to the subroutine that displays a big red 
“SAVE”. At 034A we play all our notes 
again, and then go back to the main pro- 
gram to get another note, then back here 
again so we always hear our tune. 


in the Tone subroutine, at 02DD and 
O2DF we set the ports to outputs; and at 
O2E2 and E4 we start KIM's internal 
timer. We load the note frequency, and 
when it runs down we change the output 
to its other state, whatever it was. If you 
hook a speaker circuit on the port as in 
the KIM manual, a note will be produced 
as we repeat this procedure every time 
the timer times out at O2EF; and if we do 
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this for a fength of time determined by 
the note length at O2F9, we have just 
played a note in our tables or one we're 
testing out. 


Our Save subroutine starts at O3AA 
where we load a number for a particular 
time we want to keep the SAVE letters 
on. Next at O3AE and 03B0 we set the 
direction registers and since we want 
onty 4 digits lit we load the number 4 into 
the X register. When we Store one of six 
numbers, from 09 to 13 into the location 
SBD(1742), one of the six digits will be 
tit, and then if we load a particular hex 
number representing a letter, number or 
other shape into another tocation 
SAD(1740), then the seven segment 
display will light. We also need some 
delay, because if we did not, the display 
would light and go out in a couple of 
microseconds, which few of us could 
see. All this is taken care of from 0383 to 
03CC. And finally we want to end the 
tune after 72 notes so we will 
automatically go the the Display Notes 
routine from O3CE to 03D4. We want to 
keep count of how many notes we save 
so at 0307 we increment the note count. 


lf we have a nice little tune running 
through our circuits and we say to 
ourselves, “Hey, that’s a catchy tune 
that might make the top 40,” then we'll 
need some way of finding out what notes 
are in the tunetable so that we can write 
them down. The Display Notes routine 
does just that. What we want this sec- 
tlon to do is to display a lettered note, to 
show that it is a sharp and/or a high note, 
and to show what its length is. We want 
it to stay on the display until we're ready 
for the next note and we need some in- 
dication that the note has changed when 
we do go to the next note. Finally we 
want the option of starting again. So 
here we go. 


From 01400 to O10A we test the counters 
to see if we've reached the end of our 
tune table, then we take our note and 
length and put them into a temporary 
location from 010D to 0115. From 0117 to 
011D we check for a rest; if it isn’t one 
then at 011F on we determine what note 
it is. What | did was to compare the 
unknown note to the note table and for 
every wrong comparison increment a 
count. We also have four groups of 7 
notes and to determine what group, | 
subtract a number until | get a carry flag. 
This then tells me the group and also the 
note. The group indicates whether the 
note is high, sharp, or high/sharp. We 
load the correct shape for the display on 
this information. If it was just a rest, at 
0180 we load a zero shape. At 018A to 
0198 we test for the length and then 
store the length snape. Up to 01BC we 
display the shapes as before, only this 
time, as we go through a test for the next 
note, and ‘‘do again’, we keep the 
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0000 FB 
0901 OF 
0002 C6 
0003 6B 
GO04 Aé 
0005 93 
O006 6A 


0007 78 
0008 6D 
0009 61 
OO0A 5B 
0008 51 
COOC 48 
O00D 43 


OOOE ED 
OCOOF 02 
0010 O01 
0011 BO 
0012 XC 
0013 Ol 
0014 83 


0015 74 
0016 67 
0027 O01 
0018 56 
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BY ANTHONY T. SCARPELLI 


MAY 1979 


MICRO NUMBER 13 


JUNE 1979 


COPYRIGHT (C) MAY 1979 BY 
THE COMPUTERIST, INC. 


KIM MONITOR REFERENCES 


PAD 
PADD 
TIMER 
TTIMER 
STIMER 
SAD 
SADD 
SBD 
PBOD 
KEYIN 
GETKEY 
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PAGE ZERO LOCATIONS 


ORG 


LOW NOTE 


NOTE 


$1700 
$170) 
$1704 
$1707 
$3 70F 
$1740 
$1741 
$1742 
$1743 
$F 46 
SIF 6A 


TABLE 


$FB 
$0F 
$Cé 
$BB 
$A6 
$93 
$8A 


HIGH NOTE TABLE 


HINOTE 
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$7B 
$6D 
$61 
$5B 
$51 
$48 
$43 


$c000 


DATA REGISTER 

DATA DIRECTION REGISTER 

SET TIMER 

TEST TIMER 

START TIMER 

SYSTEM DATA REGISTER A 
SYSTEM DATA DIRECTION A REG 
SYSTEM DATA REGISTER B 
SYSTEM DATA DIRECTION REG B 
KEYPAD INPUT 

GET KEYBOARD INPUT 
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LOW SHARP NOTE TABLE 


SHPNOT 


$£0 
$02 
$01 
$80 
$9C 
$01 
$83 


G SHARP, A FLAT 
A SHARP, B FLAT 
NO NOTE 

C SHARP, D FLAT 
D SHARP, E FLAT 
NO NOTE 

F SHARP, G FLAT 


HIGH SHARP NOTE TABLE 


HISHRP 


$74 
$67 
$01 
$56 


G SHARP, A FLAT 
A SHARP, B FLAT 
NO NOTE 

C SHARP, D FLAT 
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0019 4C 
O01A O1 
OO1B 3F 


Colic 00 
0010 OO 
Ocie€ oO 
cO1lF 00 


0020 02 
0021 00 
0622 OO 
0023 00 
0024 OO 
0025 00 
0026 a0 
0027 GO 
0028 60 
0029 00 
002A 00 
002B 00 
002C 6d 
0682D 60 
082E 00 
ouzZF O00 
7030 60 
—J33)] 00 
0632 O00 
0033 a0 
0034 00 
0035 00 
0036 00 
0037 0d 
0638 00 
039 00 
CO3A GO 
003B 00 
003C OC 
003D OO 
OO3E OOD 
OO3F OO 


on40 Ol 
0041 02 
0042 04 
0043 08 
1044 20 
—J045 10 
0046 08 
0047 G4 
0648 86 
0049 DB 
CU4A E6 
CO4B FF 
004C BD 
On4D F7 
O04— FC 
OO4F Bg 
0U50 DE 
0051 F9 
0052 Fl 
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DELTIM 
TIMED 
TIMEC 
SAVFLG 
TLENTH 
NOTPIR 
KEYPTR 
TNOTE 

HIFLG 
SHPF LG 
NOTNUM 
PRMNOT 
FSTFLG 
PLENTH 
TNTNUM 
NEXNOT 
DELAYA 
DELAYB 
PNIPTR 
DELAYC 
TTBPTR 
NIBPTR 
NOICNT 
DNTCNT 
TEMNOT 
TEMLEN 
COUNT 

DF OUR 

DTHREE 
DiWO 

DONE 

LNIPTR 


CONSTANTS 


KEYLNT 


LNTH 


LNSHP 


NTSHP 


LE TNUM 


eo 
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$4C 
$02 
$3F 


$00 
$00 
$00 
$00 


$02 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$a0 
$00 
$00 
$00 
$00 
$00 
$00 
$o0 
$00 
$00 
$00 
$00 


$ol 
$02 
$04 
$08 
$20 
$10 
$08 
$04 
$86 


$E6 
$FF 
$BD 
$7 
SFC 
$89 
$DE 
$F 9 
$F 


$00 
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D SHARP, E FLAT 
NO NOTE 
F SHARP, G FLAT 


UNUSED 


DELAY TIME 


SAVE FLAG 

TEMP. LENGTH 

NOTE POINTER 

KEY POINTER 

TEMP NOTE 

HIGH FLAG 

SHARP FLAG 

NOTE NUMBER 
PERMANENT NOTE 
FIRST TIME FLAG 
PERM. LENGTH 

TEMP. NOTE NUMBER 
NEXT NOTE 

DELAY A 

DELAY B 

PERM, NOTE POINTER 
DELAYC 

TUNE TABLE POINTER 
NOTE TABLE POINTER 
NOTCNT NOTE COUNT 
DISPLAY NOTE COUNT 
TEMP. NOTE 

TEMP, LENGTH 


LENGTH POINTER 


(1) WHOLE NOTE 
(2) HALF NOTE 
(4) QUARTER NOTE 
(8) EIGHTH NOTE 
LENGTH 


(1) LENGTH SHAPE 
(2) 

(4) 

(8) 

(G) LETTER SHAPES 
(A) 

(B) 

(C) 

(D) 

(E) 

(F) 


LETTER NUMBER 
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display lit. [if we hit the 3 key we jump to 
a delay which blanks the display. This 
lets us know a new note has entered the 
circuits so that we can distinguish two 
of more same notes in a row. Finally we 
reset the stack pointer again and display 
the next note. If we want to start again at 
any time, we hit the DA key and off we go 
to the beginning again. By the way, the 
delay subroutine we go to is a good 
delay to get very long times. It uses the 
KIM-1's internal timer. 


So that’s it. | know it is a long program, 
because of all the explanation, but {| want 
as much understanding as possible, 
because of the possibilities it holds. The 
simple tone generation can be replaced 
with a D/A converter, an erase note mode 
can be implemented, a larger scale with 
more lengths and other variables can be 
developed, and so on. There is no limit. 
But for a beginning, with a smail com- 
puter, all you potential Bachs, here it is, 
go to it. 
fu 


Table | — Keypad Representations 


A = Anote 

B = Bnote 

C = Cnote 

D = Dnote 

E = Enote 

F = F note 

9 = Gnote 

0 = rest 

1 = whole note 

2 = 1/2 note 

4 = 1/4note 

8 = 1/8 note 

5 = sharp 

7 = upper octave 
3 = save or display next note 
DA = Do Again 


+ = Display notes 


ete ee 


Fee ae os 


a eee 


ee 


ne 
. 


Sati ete es Fac YS 


0054 
0055 
0056 
0057 


0058 
D059 
BO5A 
0058 
005C 


605D 
0050 


0100 


0100 
0102 
0104 
0106 
0108 
010A 
0100 
01 OF 
011} 
0113 
0115 
0117 
o1l9 
0118 
O1ID 
OLIF 
0121 
0123 
0) 24 
0)27 
0128 
0129 
0128 
012D 
01] 2F 
013] 
0133 
0135 
0137 


B13A 
01 3B 
O13C 
O13E 
0140 
0141 
0143 
O144 
0146 
0148 
O14A 
O14C 
O14E 
0150 


09 


oo 
Fg 
BE 
F7 
€0 


Ag 
85 
A5 
C5 
DO 
&C 
AG 
BS 
85 
BS 
85 
AZ 
AS 
co 
FQ 
D5 
FQ 
E8 
4c 
38 
BA 
Eg 
BO 
BS 
85 
A9 
85 
85 
4C 


3B 
BA 
E? 
BO 
BA 
£9 
AA 
B5 
85 
Ag 
85 
Ag 
85 
ac 


01 
37 
37 
36 
03 
El 
37 
60 
38 
A8 
39 
00 
38 
Ol 
41 
ait] 
04 


oP 


0} 


07 
OD 
ac 
30 
Ca 
3E 
3C 


BA O01 


o£ 
13 


06 


4c 
3D 
Fé 
3E 
CO 
3C 
8A 01 


LETTER 


TUNTBL 
LNTT8L 


tft WHO 


tt ote of 


“ * 


DISPLAY NOTE 


DISNTS 


NXTNOT 


BEGIN 


RPT 


SUB 


NXGRPA 


ORG 


LDAIM 
STA 
LDA 
CMP 
BNE 
JMP 
LDX 
LDAZX 
STA 
LDAZX 
STA 
LDXIM 
LDA 
CMPIM 
BEQ- 
CMPZX 
BEQ 
INX 
JMP 
SEC 
TXA 
SBCIM 
acs 
LDAZX 
STA 
LDAIM 
STA 
STA 
JMP 


SEC 
TXA 
SBCIM 
BCS 
FXA 
SBCIM 
TAX 
LDAZX 
STA 
LDAIM 
STA 
LOAIM 
STA 
JMP 


$or 
$00 
$08 
$09 
$00 LETTER SHAPES 
$F 9 
$BE 
$F? 
$ED 


¢0060 TUNE TABLE 


—$O0A8 LENGTH TABLE 


ROUTINE 
$0100 
$01 RESET DISPLAY NOTE COUNT 
DONTCNT 
ONICNT 
NOTCNT 
BEGIN 
DGAGNB 
DNICNT 
TUNTBL 
TEMNOT 
LNTTBL 
TEMLEN 
$00 
TEMNGE 
$01 
DISZER 
NOTE 
SUB 


TEST FOR END 


STORE NOTE 
AND LENGTH 


TEST FOR TEST 


TEST FOR NOTE 


RPT 
TESE FOR FIRST 
GROUP 
$07 
NXGRPA 
NISHP 
DIWO 
$CO 
DONE 
DIHREE 
DISLEN 


STORE NOTE SHAPE 


TEST FOR SECOND 

GROUP 
$0E 
NXGRPB 
$06 STORE NOTE SHAPE 
NTSHP 
DIWO 
$F 6 
DONE 
$co 
DIHREE ’ 
DISLEN 


STORE KE SHAPE 


0153 
0154 
0155 
0157 
0159 
O15A 
015C 
Q15D 
O15F 
016) 
0165 
O165 
0167 
0169 


O16C 
O016D 
O16E 
0179 
0171 
0173 
B175 
0177 
0179 
0178 
OL7D 


0180 
0182 
0184 
0186 
0188 
018A 
q18c 
018E 
0) 90 
0192 
0193 
0196 
OL9S 
OF9A 
NY9C 
O19E 
QAO 
O1A3 
O1A5 
014A? 
Q1A9 
O1AC 
DIAE 
OB} 
OLB2 
0184 
O1BS 
0187 
0IBY 
OBA 
OJ8C 
OBE 
qjcl 
0104 
o1cé 
o1C8 
01CB 
O1CE 
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38 
8A 
Eg 
BO 
8A 
&9 
AA 
BS 
BS 
Ag 
85 
Ad 
85 
4c 


38 
BA 
Eo 
AA 
B5 
85 
A9 
85 
Ag 
85 
4C 


Ag 
85 
Ag 
AS 
85 
A2 
AS 
DS 
Fo 
E8 
4c 
BS 
B5 
Ag 
85 
Ag 
8D 
A2 
AQ 
BS 
8D 
BS 
8D 
88 
DO 
CA 
10 
A4 
88 
84 
DO 
20 
20 
c9 
FO 
20 
20 
co 
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15 
3 


4c 
3D 
ED 
3C 
CO 
3E 
BA 


BA 


BF 
3D 
co 
3E 
3C 
00 
39 
44 


8c 
48 
38 
80 
33 
7F 
4} 
D4 
fF 
53 
42 
5A 


FD 
EE 


33 
E5 
40 
6A 
Q3 
oc 
40 
6A 


0) 


Ol 


0! 


iF 
IF 


IF 
iF 


NXGRPB 


NXGRPC 


DISZER 


DISLEN 
RPTB 


GTSHP 


DIS 


RPFC 
LITE 


WAIT 


SEC 
TXA 
SBCIM 
BCS 
TXA 
SBCIM 
TAX 
LDAZX 
STA 
LDAIM 
STA 
LDAIM 
STA 
JMP 


SEC 
TXA 
SBCIM 
TAX 
LDAZX 
STA 
LDAIM 
STA 
LDAIM 
STA 
JMP 


LDAIM 
STA 
LDAIM 
STA 
STA 
LOXIM 
LDA 
CMPZX 
BEQ 
INX 
JMP 
LDAZX 
STA 
LDAIM 
STA 
LOAIM 
STA 
LDXIM 
LDYIM 
LDAZX 
STA 
LDAZ xX 
STA 
DEY 
BNE 
DEX 
BPL 
LDYZ 
DEY 
STYZ 
BNE 
JSR 
JSR 
CHPIM 
BEQ 
JSR 
JSR 
CMPIM 


TEST FOR THIRD 
GROUP 
$15 
NXGRPC 
$00 STORE NOTE SHAPE 
NTSHP 
DTwa 
$ED 
OTHREE 
$C0 
DONE 
DISLEN 


STORE NOTE SHAPE 


$15 


NISHP 
DIwo 
$ED 
DIHREE 
$F 6 
DONE 
OISLEN 


STORE SHARP SHAPE 


$8F STORE ZERO SHAPE 


OMWO 

$C0 ‘ 
DONE 
DTHREE 
$00 
TEMLEN 
LNTH 
GTSHP 


rE€Sl FOR LENGTH 


RPTB 
LNSHP 
DF OUR 
$80 
DELAYC 
$7F 
SADD 
$o4 
FF 

LE TNUM 
SBO 
COUNT 
SAD 


STORE LENCTH SHAPE 


LOAD DISPLAY 
LIGHT FIME 
SET OIRECTION REGISTER 


SEF UP 4 LETTERS 
AND DISPLAY 
LIGHY LETTERS 


DELAY 
WAIT 

GET NEXT LETTER 
LITE 
DELAYC DELAY 


DELAYC 
RPFC 
KEYIN 
GETKEY 
$03 
NEXT 
KEYIN 
GETKEY 
$13 


TEST FOR NEXT NOTE 


TEST FOR START AGAIN 





G1D0 FO OF 
0102 DO Cé 


C1D4 26 AC 
01D7 E6 37 
0109 A2 FF 
O1DB 9A 
OMDC EA 
0100 EA 
GIDE 4C 04 


O1EI AS oO 
O1ES 85 36 
G1IE5 4C oO 


0200 


0200 A? 00 
0202 85 23 
0204 85 2A 
0206 85 2¢ 
0208 AY 0] 
‘720A 85 60 
—JZ20C 85 AB 
O20E 85 27 
0210 AS 19 
0212 85 24 
0214 AS 06 
0216 85 25 
0218 AS OF 
O21A 8&5 26 
62)]€ 20 40 
O21F 20 6A 
0222 C5 26 
0224 FO 2D 
0226 C9 00 
0228 FQ 20 
022A AS 2C 
022€ C9 00 
022E FO 12 
0230 C6 26 
0232 C6 25 
0234 10 D2 
0236 30 OF 
0238 38 
023A 
0238 86 
“"™D 00 
F oC 


AG 
cA 
30 
DO 
_ 65 
0242 
0244 
0246 
0248 


C6 26 
C6 25 
10 04 
30 CA 


AS O1 
O24€ 85 2¢ 
O24E 65 27 
0250 6¢ 65 


024A 


ST ER RL a RR te th ak os tal 


BEQ OCAGNB 
BNE DIS 
02 NEXT JSR DELAY 
INC ONTCNT INCREMENT DISPLAY NOTE 
LDXIM $fF COUNT, RESET STACK 
TXS POINTER 
NOP PADDING 
NOP 
01 JMP =o NNXTNOT 
DOAGNS LDAIM $00 
STA NOIFCNT 
62 OMP ss NUTUNE 
MAIN PROGRAM 
ORG $0200 
NUTUNE LDAIM $00 INIVIALIZ£ TUNE 
STA SAVFLG 
STA = NOTNUM 
STA FSIFLG 
LDAIM $02 
STAs TUNTBL 
STA LNTIBL 
STA = INOTE 
LDAIM $16 
STA TLENTH 
NUNCTE LDAIM $06 INITIALIZE NOTE 
STA NOTPIR 
LDAIM ¢OF 
STA KEYPTR 
JF PLAYB JSR  KEYIN TEST KEYPAD FOR NOTE 
iF JSR GEIKEY 
CMP = KEYPIR 
BEQ GINOTE 
CMPIM $on FOR REST 
BEQ  CTREST 
LOA =FSTFLG TEST FOR FIRST TIME 
CMPIM $00 
BEQ NOPLAY 
DEC KEYPIR SET UP FOR NEXI NOTE 
DEC NOIPTR 
BPL ODELYA 
BMI  NUNOTE 
DELYA LDXZ DELAYA DELAY 
DEX 
STX2 ODELAYA 
BNE  PLAYB 
02 IMP) = SVNOTE 
NOPLAY DEC KEYPTR SET UP FOR NEXT NOTE 
DEC NOTPTR 
BPL = PLAYB 
BMI NUNOTE 
GTREST LDAIM $0) LOAD REST 
STA FSTFLG 
STA TNOTE 
02 JMP = SYNOTE 








0253 AS OL 
0255 85 2c 
0257 A6 25 
0259 AS 06 
025B 85 28 
0250 85 29 
O25F BS 00 
0261 85 27 
0263 86 32 
0265 20 56 
0268 20 86 
0268 20 DA 
O26E 20 O90 
0271 20 40 
0274 20 6A 
0277 C9 Q3 
0279 FO 16 
0278 20 40 
O27E 20 6A 
0283 C9 1] 
0263 FO 13 
0285 20 40 
20 6A 
C9 12 
FO 15 
DO 8B 


Ag 
85 
4c 


0] 
23 
14 


Ag 
85 
A2 
9A 
FA 
EA 
4c 


oo 
36 
FF 


co 
AZ FF 
9A 
EA 
EA 


4€ 00 


O2AC AS 
O2AE 85 
02B0 Ag 
0282 8D 04 
0285 2C 07 
0288 16 Fa 
O2BA C6 22 
O2BC DO F2 
O2BE C6 21 
O2C0 DO EE 
02C2 66 


20 
2] 
FF 


GINOTE LOAIM $01 


O35 SVNOTE 
Q3 
03 
03 
iF 
if 


IF 
iF 


IF 
if 


SAVE 
02 
DOAGN 


02 
DNOTES 


STA 
LDXZ 
LDAIM 
STA 
STA 
LDAZX 
STA 
STXZ 
JSR 
JSR 
JSR 
JSR 
JSR 
ISR 
CHPIM 
BEQ 
JSR 
JSR 
CMPIM 
BEQ 
JSR 
JSR 
CMP IM 
BEQ 
BNE 


LDAIM 
STA 
JMP 


LDAIM 
STA 
LOXIM 
TXS 
NOP 
NOP 
JMP 


LDX1M 
TXS 
NOP 
NOP 
JMP 


LOAD FIRST NOTE FLAG 
FSTFLG : 

NOTPTR LOAD CHOSEN NOTE 

$00 

HIFLGE 

SHPFLG 

NOTE 

TNOTE 

PNIPTR 

CETHI GET HIGH NOTE 

GEFSRP GET SHARP NOTE 
GIUNTH GET LENGTH 

PLATUN PLAY NOTE 

KEYIN TEST TO SAVE NOTE 
GETKEY 

$03 

SAVE 

KEYIN TEST OFR START OVER 
GETKEY 
$1] 
DOAGN 
KEYIN TEST FOR DIPSLAY NDIER 
GETKEY 

$12 = + 
DNOTES 

PLAYB 


DA = DO AGAIN 


$0 SAVE NOTE 
SAVFLG 
NUNOTE 
$00 RESET NOTE COUNTER 
NOTCNT 
$FF RESET STACK POINIER 
PADDING 

NUTUNE 


$F F RESE STACK POINTER 


DISNIS JUMP TO DISPLAY NOTES 


DELAY SUBROUTINE 


DELAY 
DELA 
TEST 


17 
1? 


LDA 
STA 
LDAIM 
STA 
BIT 
BPL 
DEC 
BNE 
DEC 
BNE 
RTS 


DELTIM GET DELAY VALUE 
TIMED 

$FF 
TIMER 
TTIMER TEST TIMER 

TEST @RANCH IF NOT RUN QUT 
TIMEC REDUCE TIME VALUE 
DELA = START AGAIN 

TIMED REOUCE DELAY VALUE 
DELA BRANCH IF NOT DNOE 


LOAD TIMER 


ee er ne eS 
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* 
et meee 


02DD 


0200 
O20F 
02€2 
0264 
O2E7 
O2E9 
O2EA 
g2EC 
O2EF 
O2F J 
02F 4 
02F 6 
O2F 9 
02° 8 
O2FD 


0300 


0300 
0362 
0304 
6306 
0308 
030A 
0300 
O30E 
0310 
0313 
0315 
0317 
0319 
0338 
031D 
O31F 
0321 
0323 
0325 
0327 
0329 
032€ 
D32E 
0330 

1332 


0333 
0335 
0337 
0339 
0338 
0330 
03 3F 
0341 
0343 
0345 
0347 
D34A 
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Ag 
80 
Ag 
8D 
A6 
CA 
DO 
Ee 
A 
2c 
30 
4C 
C6 
DO 
60 


AS 
85 
Ag 
85 
A5 
85 
AS 
85 
20 
A5 
C9 
FO 
AS 


FO 
A6 
BS 
85 
BS 
85 
20 
Fé 
C6 
10 
60 


Ag 
85 
A9 
85 
E6 
AG 
AS 
95 
A5 
95 
20 


0) 
01 17 
20 
OF 1? 
2B 


FO 
00 17 
80 
07 17 
03 
E? 02 
2D 
ES 


2A 
2t 
06 
2F 
27 
28 
24 
2D 
DD 02 
23 
0) 
1A 
2A 
00 
13 
2F 
60 
2B 
AB 
2D 
DD 92 
2F 
ZE 
ED 


06 
23 
Ol 
27 
2A 
2A 
2B 
60 
24 
AB 
AA 03 
00 03 


TONE SUSROUT INE 


ORG  $02DD 
TONE LDAIM $01 “OPEN PORT 
STA PADD 
SOUND LDAIM $20 — START TIMER 
STA STIMER 
NOTEX LDXZ PRMNOT NOTE FREQUENCY 
NWAIT DEX — 
BNE -NNAIT 


INC PAD TOGGLE OUTPUT 
LDAIM $80 TEST COUNTER 


61T TVYIMER 
BMI = TIMOUT 
JMP = —-NOTEX 
TIMOUT DEC = PLENTH NOTE LENCTH 
BNE SOUND 
RIS 


PLAY FUNE SOBRCUT INE 


ORG $0300 
PLATUN LDA NOTNUM SEF UP FIRST NOTE 
STA — TNTNUM 
LDAIM $00 
STA = NEXNOT 
LDA NOTE PLAY NOTE 
S!A  PRMNOT 
LDA  -FLENTH 
STA = PLENTH 
JSR TONE 
LOA SAVFLG TEST FOR SAVE 
CMPIM $0) 
BEQ  SAVEX 


LDA = NDINUM TEST FOR NOTE 
CMPIM $00 (NOT REQUIRED) 
BEQ RETURN 

PLAYC LOXZ NEXNOT LOAD NEXT NOTE 
LDAZX TUNTBL 


STA = PRMNOT 
LDAZX ENTTBL LOAD NEXT LENGTH 
STA = PLENTH 


JSR TONE PLAY NOTE 
INC} =NEXNOT SET UP FOR 
DEC I TNYINUM NEXT NOTE 


BPL = =PLAYE 
RETURN RTS 
SAVEX LDAIM $00 RESET SAVE FLAG 
STA SAVFLG 
LDAIM $0) NO PLAY 
STA NOTE 


INC NOTNUM LOAD NOTE INTO 
LDXZ NOTNUM TUNE TABLE 

LDA = PRMNOT 

STAZX TUNTBL 

LDA JLENTH LOAD LENGTH 
STAZX LNETAL INTO LENGTH TABLE 
JSR BISPLY 

JMP PLATUN 
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GET HIGH SUBROUTINE 


0356 ORG ¢n356 

0356 20 40 1F GETHI JSR KEYIN TEST FOR HIGH NOTE 
0359 20 6A IF JSR GETKEY 

O35€ C9 07 CMPIM $07 

O35€ DO 15 BNE = RETRNB 

0360 AS 29 LDA = =SHPFLC TEST SHARP NOTE 

0362 C9 00 CHPIM $00 (NOT REQUIRED) 

0364 FO 09 BEQ  LOADHI 

0366 A6 32 LOXZ PNIPTR LOAD HIGH SHARP NOTE 
0368 85 15 LOAZX HISHRP 

O36A 85 27 STA = TNOTE 

O36C 4C 75 03 JMP = -RETRNB (COULD HAVE BEEN RTS) 
O36F AG 32 LOADHI LDX PNIPIR LOAD HIGH NOTE 

0371 B85 07 LDAZX HINOTE 

0373 85 27 STA = TNOTE 

0375 60 RETRNB RTS 


GEY SHARP SUBROUTINE 


0386 ORG $0386 

0386 20 40 IF GEFSRP JSR KEVIN TEST FOR SHARP NOTE 
0389 20 6A IF JSR GETKEY 

O38¢ C9 05 CMPIH $05 

O38E DO 0A BNE = REFRNC 

0390 A9 0} LDAIM $01 LOAD SHARP FLAG 
0392 85 29 STA = SHPF LG 

0394 A6 32 LDXZ =PNIPTR LOAD SHARP NOTE 
0396 BS OF LDAZX SHPNOT 

0396 85 27 STA NOTE 

O39A 60 RETRNC RTS 


DISPLAY SAVE SUBROUTINE 


O3AA ORG $Q3AA 

D3AA AY 80 DISPLY LDAIM $80 LOAD DISPLAY 

O5AC 85 33 STA = DELAYC LIGHT TIME 

O3AE AS 7F LOAIM $7F SEY DIRECTION REGISTER 
0380 8D 4) 17 STA SADD 


0383 A2 04 REPEAT LOXIM $04 SET UP 4 LETTERS 
0385 AO FF LIGHT UDYIM ¢FF AND DELAY 


0387 B5 53 LOAZX LETNUM LIGHF LEFTERS 
O389 8D 42 17 STA Sed 

O3BC BS 58 LDAZX LETTER 

OSBE 80 40 17 STA SAD 

O3C1 88 WAITY DEY DELAY 

032 DO FD BNE = WAITY 

O3C4 CA DEX GET NEXT LETTER 
O3C5 10 EE BPL LIGHT 

O3C7 A4 33 LOY DELAYC DELAY 

O3C9 88 OEY 

O3CA 84 33 STY DELAYC 

O3C¢ 0O E5 BNE =REPEAT 

O3CE AS 36 LOA NOTCNT TEST FOR 72 NOTES 
0300 C9 48 CMPIM $48 48 HEX = 72 DECIMAL 
0302 DO G3 BRE INCNOT 

0304 &4€ 00 Ol SMP ODISNTS 








D7 E6 36 INCNOF INC NOTCNT INCREASE NOTE COUNT O3E4 AG 3F 
D9 60 RTS 0366 D5 40 
0368 FO 05 
GET LENGTH SUBROUTINE G3EA C6 3F 
O3EC 10 FO 
DA AY 03 GILNTH LDAIM $03 LOAD LENGTH POINTER O3EE 60 
IDC 85 3F STA —LNTPTR O3EF BS 44 
‘DE 20 40 1F KEYIST JSR KEYIN TEST KEYPAD FOR O3F 1 85 24 
SE] 20 6A IF JSR GETKEY LENGTH O3F3 60 


LDXZ LNTPTR 
CMPZX KEYLNT 


BEQ LODLNT 

DEC = LNTPTR 

BPL KEYTST 

RTS 
LODLNT LDAZX LNTH LOAD LENGTH 

STA TLENTH 

RTS 


Performing 
n Machine 
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f you are 
issembly language, 
started. 


Since addition, subtraction and shif- 
ting are the only arithmetic functions 
available in machine language for most 
small computers, it becomes necessary 
to find methods to perform other 
mathematical operations using addi- 
tlon, subtraction, and shifts in combina- 
tion with other commands available on 
the programmer's microprocessor. 


Multiplication is an example of an 
operation that is commonly performed 
in this way. Let’s look at a particular ex- 
ample. Suppose we want to multiply 187 
by 345. it is obvious that we can cleara 
register and add 187 a total of 345 times 
to arrive at the answer, but we soon 
discover that it Is more efficient to per- 
form the same function by combining 
additions with shifts. 


ee, AES rs Seni lihieani’ an xeechanaae 


afraid to try doing mathematical functions in 
then this article may help you get 


ee pe te 6 A EY TE TE 


Math Functions 
Language 








Fillies en) 





Using the shift command, we would 
add 3 187s, then shift left, then add 4 
187s, the shift left, then add 5 187s to ar- 
rive at the final product. Thus, we have 
replaced 345 additions with 12 additions 
and 2 shifts. In the same way, repeated 
subtractions may be combined with 
shifts to implement a division algorithm. 


Division and multiplication algorithms 
are often described in the programming 
manuais that come with a computer. A 
programmer soen needs other mathe- 
matical functions and must find a way to 
perform them with a limited instruction 
set and limited computer memory. if the 
functions become too complicated, one 
must add memory or go to a higher level 
language, such as BASIC. 
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The purpose of this article is to 
demonstrate the power of the lowly addi- 
tion and subtraction cornmands by 
developing an algorithm for extracting 
the square root of a number. The ail- 
gorithm is described and a flow chart is 
presented along with a 6502 listing for 
the KIM-1. 


The square root algorithm to be 
presented here is based on the equation: 
n 


>. (2k-1)=n?; nan integer greater than 0 
k=1 
which says, in English, that the sum of 
the first n odd integers is equat to the 
square of n. For example: 


14345474+9=25=5 


oh, 
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That is, the sum of the first 5 odd in- 
tegers is equal to 52, or 25. This equation 
is easily proven true for all positive tn- 
tegers by mathematical Induction. 


The method implemented here is to 
subtract first 1, then 3, than 5, and so on, 
from the number whose square root Is 
desired. The number of subtractions, 
less 1, that it takes to reduce the original 
number to a nonzero negative number is 
the square root. For example, if X = 25: 


25-1 = 24; 24-3 = 21; 21-5= 16 
16-7 =9; 9-9=0; 0-14=11 


Since it took 6 subtractions to reduce 
25 to a number less than 0, the answer is 


i 


6-125. Notice that this method 
gives only the integer part of the answer, 
so if X had been any value from 25 to 35, 
you would have arrived at the same 
answer. Remember-—-when you take the 
square root of a number, your answer 
has only about half as many significant 
digits as the number. 


The original value {NUM) Is placed in 
the accumulator. The answer will be in 
the Y register and also displayed on the 
KIM’s seven segment LEDs (POINTH). 
Notice that the algorithm as.described 
below will not handie very large 
numbers. To use this for practical pro- 
dblems, it will nave to be extended to 
multiple precision. 


1 STORE 1IN ay 

_MEM 0093 

0900 

| ao00 

STORE 0 Iie 

Y REGISTER ; 0000 
—_ 0900 Ag 
SUBTRACT MEM 0002 Ab 
FROM ACCUM n004 &6 
0906 Ag 
0006 36 

(ACC) C 
eer a ae cold 0009 £5 
wy OOOB 30 
NO 0000 C& 
QOOE £6 
ADD 1TO 
0012 4& 
‘2d app2t0 | 0015 64 
oo MEM - Q917 4F 
Flewchart 
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The coding to implement the routine is 
given below. While the addresses are 
given for the KIM-1, a few address 
changes should make it possible to im- 
plement this routine on any other 6502 
based system. The number you want the 
square root of goes in location 0001, 
then set the address to 0000 and GO. 
The answer will be displayed in POINTH, 
the left two LEDs of the KIM display. The 
code given is probably not optimum—i 
am a relative newcomer to machine 
language coding. If you come with an im- 
proved version of this routine, I'd ap- 
preciate receiving a copy of it. The exam- 
pie shown is set to take the square root 
of $10. 


SQUARE RGCT RCUT INE 
ALFRECL J. BSUEY 


O8G = ¢9000 


MEM ~ {OIA 
PLINTH *- ¢O0FL 
START * PUear 
10 BEGIN LDAIM $10 
O1 LDYIM $901 
1A STX = MEM 
a0 LBYtM $90 
LGGP = SEC 
1A SEC MEN, 
O8 BME ©6STOGP 
INY 
1A TNC MEM 
1A INC) MEM 
0& 00 Jéo 6LEOP 
FE STGP STY POINTH 
4aF oe IMP START 


Clocking KIM 
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While you prebably are not going to use your $180 KIM to 
replace your $18 digital clock, a lot can be learned about 
proper use of the KIM and 6502 by building a clock as an 
exercise. This example includes use of the IRQ interrupt, 
driving the display, and calculating time. The program ts 
intentionally NOT optimized, providing a challange for 
the reader. 












When 1 first laid eyes on KIN, 
something inside my head screamed out 
at me. It said, “That six digit display was 
just made to be a clock display.” Not be- 
ing the type of person who likes getting 
yelied at, | decided to fook into the idea. 


The idea may seem trivial or worth. 
less, but the design of a clock program is 
both challenging and educational. When | 
first started this project | had only owned 
my KIM-1 slightly more than a month, and 
i had not made use of some of ihe KIM‘s 
features (such as the interval timer and 
interrupt capabilities). fhad read the MOS 
Technology manuals carefully,-but some 
things had to be Jearned the hard way 
-like the fact that decimal mode does noi 
effect increments and decrements, PB7 
of the 6530-03 must be wired to IRQ on 
tne 6502 by the user, and how to use the 
KIM's displays. | Jearned through ex- 
perience. 


A clock program is not totally 
useless, either. Outside of being a good 
program for keeping the processor busy, 
it also could be valuable when run with 
other programs. !f, for instance, you had 
your KIM connected ta an A/D converter, 
the clock program woutd enable you to 
take readings at specified times during 
the day. Or, when you are going to be 
away from home, your microprocessor 
could turn lights, radios, etc. on and off 
as a deterrent to burglary. And, if you had 
to scrape together your last coilar to buy 


your KIM, and the old alarm clock just 
croaked, you can build an alarm to hang 
on your micro with parts from your tool 
box (see KiM-1 manual, page 57). You 
would then be the proud owner of the 
most intelligent alarm clock on the block. 


A project such as this is an excellent 
way to become familiar with the features 
of your microprocessor. And, although 
there are several obstacles to be over- 
come, none are too difficult to surmount, 
given a little thought. The following 
discussion, intended for the KIM-1 could 
also serve as a guide for the development 
of a clock program on a similar system. 


The first difficulty encountered in 
designing a clock program is a parallel 
processing problem: how to scan a 
display (or execute some other process) 
white at the same time, count the 
microseconds as they whiz by. Parallel 
processing on the KIM-1 can be achieved 
by the use of the 6502's interrupt 
capabilities. And since one of our pro- 
cesses is a sirnple counting mechanism, 
we can use the interval timer on the 
6530-03 as our second “processor”. The 
next two problems revolve around the in- 
terval timer. 


The KIM’s interval timer is only 
capable of timing intervals of 0.261102 
seconds or less (with a 1MHz crystal). 
Problem number two results because of 
this. We need to simulate, through soft- 
ware, an interval tirner able to time inter- 


88 


FE ee RSE TCT EF A SVE aA SIN PA RS EE A I, “gy aS VTE ER ERS SN TT SE I net ER NEE TTL: 


Ronald A. Guest 
12153 Melody Drive, 204 
Denver,CO 80234 


vals of up to one second. This can be ac- 
complished by writing a value(s) into the 
interval timer until a certain number of in- 
terrupts has occurred, and then updating 
the time. But, it is not quite that simple. 


Which brings us to problern number 
thre’. We want to be as efficient as possi- 
ble, which means we want to interrupt 
normal processing as fittle as possible. 
Thus, as large a value as possibie should 
be written into the timer. The problem. the 
most difficult of all, is; what value(s) to 
write where, and how many times. The 
discussion must now become a little 
more detailed. Keeping efficiency in 
mind, we want to delay the maximum 
value between interrupts as many times 
as possible, without exceeding one se- 
cond. This means that we shoutd write a 
$FF into the + 1024 location three times. 
This will give a detay of (3°255* 1024)us, or 
0.216640 seconds less than one 
{1 — 0.783360). 


As you can see, this value is less 
than the maximum interval. The largest 
value, jess than 0.216640 seconds, that 
we can write to the interval timer is 
(211° 1024)us, or 0.216064 seconds. About 
now you are probably thinking, “Oh! Holy 
Bit Bucket. wilt this never end?” But don't 
fuse a power supply, this tedious process 
is coming to an end. Now, let's see. If we 
write a 9 into the +64 location, that wilt 
give us a delay of 576us, and a grand total 
of exactly one second. Success! We have 
accomplished our task. But, wait. We've 
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game? 


got some software overhead to consider, 
right? Right. The software which 
simulates this interval timer, and the soft- 
ware which updates the time must be 
taken into consideration. The amount of 
time allocated to the execution of this 
software will vary slightly for different 
programs. But 32us seems to be a suffi- 
client amount of time. So we want our 
final delay to be 544yus (instead of 576). 
We can easily achieve this by writing 68 
into the +8 iccation. 


What do we have so far? We have 
three delays of (255*1024)us, one delay 
for (211°1024)us, and one delay of 
(68*8)us; giving us a grand total of 999,968 
ps. (Although not the only combination of 
intervals which yeild one second, this is 
the most efficient from the standpoint of 
the interrupted process.) Now, we need to 


take a look at the software necessary to’ 


simulate this timer. 


The code needed to simulate a one 
second interva! timer is given in listing 1. 
The first section of code gives us the 
delay of (3°255°1024), assuming that 
“NUMDLY" is initialized to one (1). The se 
cond group of instructions gives the 
delay of (211° 1024), and the third group 
gives the delay of (68*8). To assure that 
your clock program will he accurate, you 
should determine how much time your 
software will actually require. When 
calculating the amount of software 
overhead for your particular program, 
remember that the execution time of in- 
structions executed after the timer has 
been written into, should not be included. 
This is because the timer will have 
already started counting down, resulting 
in an overlap of the countdown and in- 
struction executions. Taking Listing 1 as 
an example, and assuming “NUMDLY" is 
less than three (3), all instructions before 
“INCDLY” should be included, but the in- 
crement and restore instructions should 
not be, since they are executed after the 
timing begins. 2 


The code in Listing 1 would be con- 
tained in an interrupt program, which 
consists of instructions to do the follow- 
ing; 


1. save ail registers on the stack, 
2. determine if one second has elaps- 
ed, 


if not then (5), else, 
3. add one second to the time, 


4. reset “NUMDLY” and the timer, 
and, 


5. restore the registers from the 
stack. 


A block diagram of the process is 
given in Figure 1. The coding for the inter- 
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rupt program occupies about 96 bytes of 
memory (most of it is used to update the 
time). 


The updating code must: 


1, add 1 to the seconds, If not 60 then 
(4), else zero seconds and 


2. add 1 to the minutes, if not 60 then 
(4), else zero minutes and 


3. add 1 to hour, if 13 (or 25 for a 24 
hour clock) set hour to 1, else 


4. continue. 


Since time uses decimal digits, it is 
necessary to load the byte into the ac- 
cumulator and perform an add; an incre- 
ment would not be decimal. The code to 
update the seconds is given in Listing 2 
as an example. 
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Figure 1 













RESTORE 
THE 
REGISTERS 


RETURN 
FROM 
INTERRUPT 


The preceding information should 
aid you in writing your own clock pro- 
gram. The coding examples and intervals 
mentioned earlier should make the pro- 
cess painiess. The intervals should pro- 
duce a clock accurate to within about 5 
minutes a year. The only interval which 
might require adjustment would be the 
last one. If this adjustment turns out to be 
more than one, in either direction, check 
your code to make sure it is accurate. 


Let me mention a few more things to 
help you avoid trouble. Don’t forget that 
any program which is to run coincidental- 
ly with the clock program you must in- 
itialize the interval timer and counter 
(NUMDLY) at the outset. Also, after you 
have loaded the clock program into 
memory, you must also store the starting 
address of the program in the IRQ inter- 
rupt vector locations. And, last but not 
least, connect the P87 pin of the 6530-03 
to the IRQ pin of the 6502 (A-15 to E-4). 


The clock program | have described 
contains the basic features of any digital 
clock. it could be expanded to keep track 
of the month, day, year, and/or just about 
anything else you could want. If you are 
witling to spend the time, the clock can be 
as accurate as the hardware will allow. 
Theoretically, my clock program should 
ba accurate to within less than 2 minutes 
a year. In practice, | set the program bv 
WWYV and fet it run for three days straight. 
At the end of this time, the seconds were 
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still clicking by, right on the nose. This 
should be enough accuracy for all but the 
most exacting and finicky of home- 


Listing 1 


brewers. (i hope no one Is going to run 
their clock program for a solid year.) 
Hopefully, the information information in 


this article, and the program itself, will be 
as useful to others as it has been to me. 
Good Luck!! 


INTERRUPT SERVICES ROUTINS TO RUN A REAL-TIME 
CLOCK ON A MCS TSCHNOLOGY KIM-1. 


WRITTEN BY : 
COPYRIGHT 1976 BY 


DEUAY DETERMINED BY VALUS 


RONALD A GUEST. 


NONALN A. GUEST 


SAVE REGISTERS ON STACK 


IN NUMDLY. 
1024 


INCREMENT COUNT AND GO RSSTORE 


TF NUMDLY <> 3 BRANCH TO ONETST 


= 3 THEN DELAY 21181024 


THEN ONS SECOND HAS ELAPSED 


+ 


F = ¥ THEN DELAY 688 


_ 


ONS SECOND HAS SLAPSEL SO, INC STORED TIME 


DZCiMAL MATH, 


BCNDS Set SECONDS BYTS 


ADD DECIMAL 1. 
IF < 69 THEN FINISHED 
ZERO SECONDS 


9020 ORG $0020 
0020 NUMDLY #* 90072 
0929 SSCNDS *# Q90C 
0020 MINUTS * O00B 
0029 HOURS * OO0A 
0020 48 PHA 
0021 G&A TXA 
0022 48 PHA 
Hee TYA 
092 & PHA 

™ IF DELAY IS < 3 THEN DELAY 255 * 
0025 A5 ID LDA NUMDLY 
0027 C9 903 CMPIM $03 
0029 10 OA BPL DELAYF 
902B AG FF MAXDLY LDAIM $FF 
0O2D 8D OF 17 STA 17OF 
C030 36 9D INCDLY INC NUMDLY 
0532 4c 80 09 JMP RESTOR 
0035 DD Ga DELAYF BNS ONSTST 
COST AD D3 LDAIM $33 
0039 8D OF 17 STA TGF 
09 he 309 98 JMP ZNCDLY 

TF NUMDLY > 4 

OO3F Cg 34 ONETST CMPIM $04 
CO41 DO 96 BNS ONESSC 
90435 AG 4y LDAIM $44 
eee BD... 47 STA $790D 

om GON& HO 30 99 JMP aNCDLY 
QOHB F§ ONESEC SED 
cou AS OC LDA 
OO4E 18 ae 
OOF 69 01 CIM $91 
9951 85 9c SrA SCNDS 
0053 69 69 CMPIM $65 
0055. 30 22 BMI. R=SS5T 
0957 AG 90 LDAIM $29 
9059 @&5 oc STA ECNDS 


INCHSMZNT MINUTES 


0055 AS OB LDA 
095D 69 99 ADCIM $09 
OO5F 85. Ob STA MINUTS 
0061 SA NOP 
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MINUTS GET MINUTES BYTE 


ADD IN CARRY FROM PREVIOUS COMPARES 
FOR TIMING 
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Listing 1 continued 
IF ¢ 690 , FINISHSD 


BM= RUSer 
LDAIM $0 ZERO MINUTES 
STA MINUTS 
INCREMENT HOURS 
LDA HCURS 
CLC THIS TIME CLEAR CARRY (FOR TIMING) 
ADCIM $01 
STA OURS 
CMPIM $25 WOULD BE 13 FOR 12 HOUR CLOCK 
BMI. RESST 
LDAIM $91 
STA CURS 
RESST TIMSR AND NUMDLY 
RESET LDAIM $09 
STA NUMDLY 
JMP MAXDLY 
RESTORS REGISTERS 
RESTOR PLA 
TAY 
PLA 
TAX 
PLA 
RTI 
THIS PROGRAM DISPLAYS THES HOURS, MINUTSS, AND SSCONDS 
ORG $9200 oe gh 
NUMDLY * $0990 
CONVD # TFUE 
TIME # OOOA 
LDAIM $01 INTTALIZS INTERRUPT COUNTER 
STA NUMDLY 
LDAIM $FF INITALIZS DIVIDES BY 1024 COUHTER 
STA S170F 
Chi. SNABLS INTERRUPTS 
eee cin INITALIZS DISPLAY PORT 
START LOXIM 99 X REG POTNTS TC DIGTT TO BS BISPLAYED 
LDYIM $00 Y RSG IS INDEX TC TIMS BYTE TO BE DISPLAYED 
THIS IS THE START OF THES LOOP 
THE PRECEEDING CODE TS INITALIZATION 
LOOP CPYIM $04 IF ¥ REG TS >= 4 THEN JUMP BACK TC START 
BPL START 
LDAY TIME GST BYTES OF TIME POINTED TC BY Y REG 
LSRA GST HIGH CRDSR 4 BITS 
LSRA 
LSRA 
LSRA 
JSR CONVD OUTPUT 4 BITS TO POSTTIONPOINTED , 
TO BY X &3EG 
LDAY TIMS 
ANDIM $OF GST LOW ORDER 4 BITS 
JSR CONVD OUTPUT 
LYATM $09 TURN OFF DTSPLAY 
STA 1740 
INY INCREMENT Y REG 
X RSG TS INCREMENTED BY CONVD 
BPL LOOP BRANCH ALWAYS TO LOOP 
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The APPLE Stripper 





eager 





One of the classic dilemmas in BASIC has to do with 






REMarks. If you use them, they take up space and time. If 


you do not use them, the code is hard to understand. This 
Program resolves the problem. It permits you to 
generously REMark your program for documentation 
purposes and then remove the REMarks for the run-time 
version. 


Bill Crouch 
P.O. Box 926 
Long Beach, CA 90801 





As a writer of custom business soft- 
ware for the APPLE computer,! kept runn- 
ing into the same conflict; good program- 
ming style insisted that | document my 
programs with frequent REMark 
statements. My customers would have a 
hard time understanding or changing my 
programs if | did not. 


On the other hand, large business pro- 
grams use a great deal of memory and 
every byte is precious. The Applesoft 
manual tells us that the statement: 130 
THIS IS A COMMENT uses up 24 byles of 
memory. In a large program, a lot of 
memory will be taken by REMs, leaving 
Jess for arrays anc program operation. It 
also means more frequent waits while the 
machine “housecleans” its string space. 


The answer is obvious; write the pro- 
gram with REMarks and then remove 
them in the fina! working version. H 
changes are necded, make them on the 

— version with REMarks and then remove 
the REMs again after the bugs have been 
corrected. 


Removing REMs by hand took too iong 
so | wrote a simple program to do it for 
me. it is disk based and will work on any 
APPLE with a disk drive. 


Program Requirements 


To use this program you need only 
observe a couple of simple rules. First, 
NEVER GOTO or GOSUB to a REmark. 
Always GOTO or GOSUB to the first tine 
of code after the REMark. 

Secondly, for maximum benefits, put 
your REMarks on a separate line rather 
than at the end of a jine of code. This pro- 
gram only eliminates those lines where a 
REM is the first thing in the jine. 


La eae eae amen ead EE LI REET ATS PE ENF NATO FRE AS IT TT LY SETS TE PT TI aT TO NT FTE TIT OW OE, 


16 REM 

REM KILLER 
29 REM BY BILL CROUCH 
38 REM PO BOX 926 
48 REM LONG BEACH CA 98881 
58 PRINT CHRS (4);"MON 1I,0,C" 
6@ DIM ARRAY(1¢90) 
78 ONERR GOTO 246 
8g X = G 
98 REM 

READ TEXT FILE 
188 ROME : REM CLEAR SCREEN 
116 PRINT CHRS (4);*OPEN PROG. FILE" 
128 PRINT CHRS (4);“READ PROG. FILE" 
138 INPUT L$: REM GET A LINE FROM DISK 
148 IF LEFT$ (L$,5) = "63808" GOTO 258: REM CHECK FOR END OF TEXT 
158 IF L$ = "" GOTO 138: REM ELIMINATE NULL STRINGS 
160 LN = VAL (L$):LN = INT (LN): REM SAVE LINE NUMBER 
178 IF LEFT$ (L$,1) = "" THEN L$ = RIGHTS (L$,( LEN (L$) ~ 1)): GoTo 1] 

70 
188 IF LEN {L$) < 2 GOTO 136: REM IF LINE USED UP GET ANOTHER 
198 IF ASC (LS) < 65 THEN L$ = RIGHTS (L$,( LEN (L$) - 1)): GOTO 178 
208 IF LEFPT$ (L$,3) = "REM" THEN X = X + 1:ARRAY(X) = LN: REM KEEP TRAC 
K OF REMS 

216 IF X > 995 GOTO 259: REM STAY WITHIN ARRAY 
226 GOTO 138: REM DO IT ALL AGAIN 
23@ REM 

WRITE STRIP FILE 
248° IF PEEK (222) < > 5 GOTO 138: REM CHECK FOR OUT OF DATA ERROR 
258 PRINT CHRS (4);"CLOSE" 
260 POKE 216,8: REM CLEAR ONERR GOTO FLAG 
276 IF X = @ GOTO 348: REM NO REMS IN PROGRAM 
288 PRINT CHRS (4);"OPEN STRIP, PILE® 
298 PRINT CHRS {4);"WRITE STRIP. FILE" 
306 FOR Y = 1 TO X 
318 PRINT ARRAY({Y): REM SAVE LINE # OF REM 
328 NEXT Y¥ 
338 PRINT CHRS$ (4);"CLOSE® 
348 END 
] . 
)PRee 

95 \ 





Seen 


— es 


aa ee 


voter 


PET TE eh pat 


ce SATE i EA ROA tn a a ml RN wh RSE lS a i lh a laa Saat eat te Midori 


How to Use the Programs 


There are two separate programs. The 
rst, XFILE.MAKER, must be appended 
» the end of your program. You could 
rpe it in yourself or, better still, use the 
ierge routine on the DOS 3.2 Master, The 
nly requirement is that line 63000 be 
fter the last line of your program. It tells 
1e next program that it is done. 


You start the process with the com- 
yand “RUN 63000” 


You should have both programs on 
heir own diskette with plenty of space 
or their text files. If REM KILLER is not 
in the same diskette with XFILE.MAKER, 
emove fine #63130. 


XFILE.MAKER will convert your pro- 
ram into a text fie and then run REM 
“LLER. REM KILLER then reads the text 
ite, makes a list of REtAs and then writes 
tr =f as STRIP.FILE. 


By the way, certain characters in your 
program will cause the computer to say 
=XTRA IGNORED during the running of 
IEM KILLER. You can ignore it too. 


When it is done, load your original pro- 
gram and EXEC STRIP.FILE. Every line 
which is a REMark will be removed. Then 
save the stripped program. 


Of course also save a Copy of your 
original program. The first program t used 
this on was part of a trucking company 





package. It saved me over 2400 bytes. 
How it Works 


XFILE.MAKER clears the screen with 
line 63050 and squashes the listing to 
suppress extra carriage returns with line 


The rest of the program writes your pro- 
gram to the disk as a text file. Line 63130 
calls REM killer. 

(Note: CHRS(4) is the same as CTRL D 
and is required before every APPLE disk 
command.) 


REM KILLER: Line 60 sets up an array in 
which REMS are saved. It now allows for 
4000 REMs which probanly is too many. If 
you have memory limitations, you may 
reduce this number and the correspon- 
ding one on line 210. 


Line 140 checks for the end of your 
file and is the reason line 63000 is re- 
quired in XFILE.MAKER. 


Lines 150-190 get rid of null tines and 
all non-aipha characters. Line 200 then 
sees if the first alpha string is REM. if so, 
it saves the number in the array. 


Lines 240-340 save the approximate 
line numbers as a text file called 
STRIP.FILE. 


When you EXEC STRIP.FILE, the line 
numbers are prnted just as if you had 
typed them yourself, And the REMark 
lines are eliminated. 


XFILE.RAKER 


63600 REM XF TLE .MAKER 


629165 REM 
BY BILL CROUCH 


“29268 REM PO BOX 926 


_ 383@ REH LONG BEACH CA $8&A1 


63849 REN APPEND TO END OP PROGRAM 


63959 CALL <- 936 


63058 POKE 323,33: REM FORMAT LISTING 


63070 PRINT CHRS (4) ;"HON 1,0,C": REM LET 


63088 PRINT CHRS$ (4) ; “OPEN PROG. FILE" 
63098 PRINT CHRS (4) ;"WRITE PROG.FILE" 


63100 LIST 6,63886 


63118 PRINT CHRS (4) ;"CLOSE" 


63128 TEXT 


63138 PRINT CHRS$ (4) ;"RUN REM KILLER" 


63148 END 
63158 REM 


CHANGE CHR$(4) TO CRTL D FOR INTEGER PROGRAMS 


TOT Bag OSM ORgIRE a TET 


US SEE IT WORK 


Author's Update: if you want to use 
REM KILLER on a program which has 
GOTO and GOSUB statemants which 
refer to remark lines, you can change 
line 340 of REM KILLER to read: 


310 PRINT ARRAY(Y);CHRS(58) 


This will replace the REM statements 
with a colon. Although it doesn’t save as 
much space as a complete removal of 
the REMs, the program will work as 
before. 





search/Change in Applesoft 





It is often useful to be able to search a file for a par- 
ticular string and then to change the string for a new 
one. This paper presents a Search/Change capability for 
Applesoft. 





A program to produce a cross- 
reference table for all the variables in a 
program under develooment is a useful 
tool; such a table enables one to deter- 
mine whether and where a variable tabel 
has been used. Unfortunately, a 
variable’s cross-reference program in 
BASIC is not available in the literature 
although the development of one was 
recently reported by William and Alice 
Engiander, Nybbles: BASIC Cross- 
Reference Table Generator, Byte, v4, 
4:190 (April 79). About as useful in pro- 
gram development though not as neat 
for complete documentation purposes is 
the FIND program of Jim Butterfield, /n- 
side PET BASIC, MICRO, 8:39, 
(December78-January 79). Butterfield’s 
paper inspired the present SEARCHI- 
FIND program, one that does the same 
function as Butterfield’s but also, allows 
one to change the found item (within 
limits). 


SEARCH/CHANGE is about seven 
times as tong (1.5 Kbytes) as 
Butterfield's FIND and runs at about half 
the speed. It takes about 2.5 minutes to 
search 8.5 Kbytes. On the plus side, the 
extra jength and sacrifice in speed buys 

1. the option not to search or 
only to search strings, 

2. the option to have listed the 
lines that contain the sought 
item, and 

3. the option to replace the 
sought item by anything of equal 
length. 


Because of the limitation on tength in 
the CHANGE function, this feature is not 
really a general purpose program editing 
tool. Nevertheless, it is quite useful in 
dressing up variable labels or changing, 
Say, a real variable to an integer variable. 


Demonstration 


To do a search/change, the 
SEARCH/CHANGE program must be ap- 
pended to the program to be searched. 
Either use the merge feature of the 3.2 
DOS renumbering program or the 
machine language APPEND program 
and proceedure given by Chuck 
Carpenter, Renumber Applesoft, MICRO 
12:45 (May 79). Once the programs are 
wed, enter the search item as line 1 and 
the change item, if any, as line 2. Thena 
RUN 63000 siarts the works. 


To demonstrate the workings of 
SEARCH/CHANGE, we use the rather 
nonsensical program listed in Figure 1. 
We enter the search item DOG as line 1 
and run 63000. The print-out of this run is 
given In Fig. 2. Every appearance of the 
three consecutive letters D O G is listed. 
Had we asked for the lines to be listed, a 
given tine would have been tisted only 
once. 


We can search for anything; Fig. 
3(a) shows the result of a search for 
equal signs. However, we do have to be 
careful of Applesoft's reserved words. 


J.D. Childress 
5108 Springlake Way 
Baltimore, MD 21212 


Figure 3(b) shows what happens if we try 
to search for CAT. Applesoft recognizes 
the reserved word AT in CAT. This makes 
clear the need of having the program list 
for verification the search and change 
items. 


The reserved word problem is a 
relatively minor nuisance. A little in- 
genuity can get us around it. In the CAT 
case, we could search for CA; if that 
gave too many other items, we could 
then search for TS and only consider the 
lines that appear in both lists. 


The CHANGE function, as well as 
the line listing feature, is demonstrated 
in Fig. 4. Again caution is wise. What if 
we had already used the DGS fabel in our 
program? There would be no way later 
that we could separate the old DGS from 
the new DGS. {f in doubt in changing a 
label, first make a search to see if the 
new label is already being used. 


In changing the variable label from 
DOG to DGS, we did not want to change 
the word DOG inside strings, hence did 
not search strings. The capability of not 
searching strings or only searching str- 
ings provides ail the flexibility we ever 


need. 


We note that we can only change an 
item to one equat in length (as AP- 
PLESOFT sees the length). Extra tength 
in the change item entered as line 2 is ig- 
nored. if the replacement is shorter than 





the ssarch item, things go awry. The 
result is a muddie, correctable in general 
only by &@ start over from scratch. 


Design 


A few comments on the design of 
the SEARCH/CHANGE program are of- 
fered here in iieu of remark statements 
in the program itself. 


First the program identifies the 
search item, FOR toop lines 
63040-63070. Then it identifies the 
change item, if any, FOR loop tine 63110 
and preceeding line. The search is car- 
ried out by FOR loop lines 63130-63170. 
To get the best operating speed, we 
close the FOR loop within a single line 
(line 63130} if no byte of significance is 
found, Even so, the testing for up to 
three conditions takes time. If one of 
these conditions is not met, then the 
following lines either pass to subroutine 
line 63300 to complete the item iden- 
tification test and make the item change 
(if one.is entered), or set the string's 
search flag, or strart ihe search of the 
next program line, whichever is  in- 
dicated. Line 63120 determines that the 
search is over when line 62399 isreached 
and passes to output. The routine lines 
63220-63290 accomplish the fine listing 
feature. Note that the search for the 
LIST command is backwards from the 
end of the program (we know that the 
one we want is the last one). Also note 
that the fine number has to be poked in 
so that there should always be five digits 
following LIST. Afier use of the program, 
the actual number that appears here 
when tine 63270 is listed is the jast 
number poked in. There should be 
leading zeros if that number had less 
than five digits. The Appiescft inter- 
preter preserves these leading zeros 
whereas the 3.2 DOS renumbring pro- 
gram does not. If you want to renumber 
SEARCH/ICHANGE, remember to check 
this line and, if you want to, change the 
62999 in line 63120. 


Figura 1: 
{ion Program 


10 FOR ft = TTO 5 
20) PRINT "DOGS ANP CATS FIGHT, 
"ss NEXT +; PRINT : PRENT 
30 oO TNPHT "RIVE THE NIIMRER OF CAT 
S "seye: PRINT 
5O INPUT “GIVE THE AIMRFR MF paA 
S "sNNG: PQUNT 
$0 JF CTS @= f ANR NOG » O THEN FAD 


Listing of Demonstra- 


60 PHINT = POYP!T "THE PRORASLE 
tNNFR ER A CAT«ANG FIGHT": PRINT 
"WITH "350G;" POGS ANN ";CTS 

: 3" CATS WOULD SF 

70 YF PAG = 0 THEN PPINT “ewes 
CATS enamels ENA 

60 OFF CTS « fl THEN POPHY Veneee 
DONSeenee!s FD 

90 (4F «PNM (1) @ CTS / ANC D> .S THE 
PREMT “eweeelATSanrene'ls FND 


100) PRINT “seaceNQCSeanan'ts FUN 





met sent sata ana lA ct ete eh in Tac aA et Pile anti tan Sle SS a ic te he otal 2 nda. Pet 


Fig. 2: SEARCH Demonstration 
}1 906 
YRUN 63000 
1 506 


PLEASE VERIFY FF THE COMPUTER TAKES 
THIS AS YOU ENTENDER, DO YOU NANT 

TO CONTINUE CYES OP NO}? YES 

DO YOU WANT TO SFAPCH ENSINE STPTNGS 
(YFS OR NO}? YES 

DN YOU WANT TO SFARCH STRINGS ONLY 
CYFS OR NO)? NO 


THE {TEM 
1 BOG 
1S FOUND IN THE FOLLOWING LENES: 


20 49 &0 
50 60 60 
60 - 70 80 
90 inn 


DO YOU WANT THESF LINES LISTER CYFES OR NO)? NO 


) 
Fig. 3: Other SEARCH Demonstrations 
{a} Search for equal slgens 
THE ITEM 
1 


IS FOUND IN THE FOLLOWING LINES: 


10 50 50 
70 80 


DO YOU WANT THESE LINES LISTED CYES OR NO)? NO 
(b) Attempt to search for CAT 


21 CAT ‘ 


JRUN 63000 

1 ¢ AT 

PLEASE VERIFY IF THE COMPUTER TAKES 
THIS AS YOU INTENDED, DO YOU WANT 
TO CONTINUE (YES OR NO)? YES 

DO YOU WANT TO SEARCH INSIDE STRINGS 
CYES OR NO)? YES 

DO YOU WANT TO SEARCH STRINGS ONLY 
{YES OR NO)? NO 

THE ITEM 

1 ¢ AT 

$S FOUND §N THE FOLLOWING LI“FS: 


NONE. 


98 





SFT ME RET US OT IE (SS SARA a RENE ETO ANNE ETN TY PITT TN FEE LIE PMI TE ae NTE TT EMT E aTy 


Sires se re ee me 


> Pi AAD ta tS PP SS > RS 


Fig. 4: CHANGE Demonstration 


YRUN 63000 


1 HOG 
2 NGS 


PLEASE VERIFY IF THE COMPYUTFS TAKFS 
THES AS YOU INTENDED, PO YOU WANT 

TO COMTSNUE CYFS AR NO)? YES 

PO YOU WANT TO SEARCH IMSEDF STPTNCS 
CYFS O& NO)? NO 

DD YOU WANT TA SEAPCH STRINGS ONLY 
(YFS OR NO)? 8N 


THE ITFM 
1 noc 
1S FOUND IM THE FOLLOWING LINES: 


40 50 me) 
70 90 


NO YOU WANT THESE PINES LISTED CYES OP NN)? 
YES 
THERE WILL RE A WALT AFTE® FACH LIME 
UNTIL YOU HIT PETURN TO COMTEMUE, 


GO INPUT "CIVE THE HIMRER NE AOC 
S "spas: PRINT 


59 1F CTS = 7 AND 9GS = 1 THEN ENN 


60 PRINT ¢ PRINT "THF DANRARLe w 
INNES IN A CAT-POG FICHT"s EPLT 
METH MSOs: NALS ANP USCTS. 

7" CATS MOULD REY 


DOT Veeeen 


706 VF OGsS = 0 THE” 
CATSaaeen":s END 


99 JF RAO (1) * CTS / DAS > (5 THEN 
PPINT SerenweCATSenrwaen't: FAR 


Fig. §: Listing of SEARCH/ICHANGE Program 


62999 ND 

63000 DIM SFEKCION),NT(100),L(10 
O):START = 256 » PEEK (104) 

+ PEFK (103):FINI = 256 * 

PEFFK (106) + PEEK (195) 

1F 256 « PFEK (STAPT + 3) 

+ PEEK (START + 2) < > 1 THEN 
PRINT “YOU MUST ENTER YOR 
SEARCH ITEM AS LINE: PRENT 
"7 REFORE YOU RUN 63000.": ENN 


63010 


LIST 0,2: POINT "PLEASF VE 
RIFY 'F& THE COMPUTER TAKES": 
PRINT "THIS AS YOU INTENNFED 
. DO YOU WANT: ENPUT *TO CN 
NTENUE CYES OR NO)? "s¥S: TF 
Y¥$ <¢ > "YES" THEN END 


63020 


63030 PRINT NO YOU WANT TN SFAR 
CH INSIDE STRINGS": INPUT "¢ 
YES OR NO)? "s¥YS: PPINT "DO 
YOU WANT TO SFARCH STRINGS 
ONLY": INPUT "(YES OR NO)? " 
3YZ$: YF YZ& = "YES" THEN SN 
# 1:YY¢$ = "NO" 

63080 FOR I = 9 TO 255 

63050 SEEK(I) = PEEK (STAPT + & + 
1) 

63060 IF SEEK(t) = 0 THEN N*= Tf - 
1: GOTO 63080 


63070 NEXT 
63080 M = STAPT + N + 
| 
| 
{ 
| 


a 


63090 CH = f: IF 256 * PFEK (M + 
3) + PEFK (M + 2) ¢ > 2 THEN 
CH = 1: GOTO 63120 

fF N = 0 THEN NT(O) = PEEK 
(M + &): GOTO 63120 
63110 FOR t = 0 TO N:NTC(1) = PEEK 

(M+ & # PF): NEXT 

63120 LM = 256 # PFEK (M + 3) + 
PFEK (M + 2): "F LM > ®& f2 
999 THEN 6318f 

FOR 1 =» M «¢ & TOM + 255: TF 
PEEK (¢ 
PEEK (1 


63106 


63130 
PEEK (1) < > 0 AND 
1} < > SEEK(O) AND 
) < > 34 THEN NEXT 
631460 EF. PEEK (tI) = 36 AND YY$ = 
"wo" THEN SO = SQ + 1: [TF SO 
= 2 THEN SO = 0 
63150 UF PEEK (1) = SEEK(O) AND 
SQ < > 1 THEN GOSUB 63300 
63160 $F PEFK (1) = 0 THEN M ® 
1} + Ll: GOTN 63120 
63170 NEXT 
63180 HOME : PRINT : PRINT : PRINT 
"THE ITEM": PRINT " "ss LEST 
1: PRINT "1S FOUND IN THE FO 
LLOWING LINES:":; PRINT : IF 
L(1) = 0 THEN PRINT " 
NONE": END 
FOR | = 1 TO Kz: PRINT LCI) 
»: NEXT : PRINT 
PRINT : ENPUT "NO YOU WAN 
T THESE LINES LISTED CYFS OR 
NO)? "s¥$: IF Y$ = "NO" THEN 
END 
PRINT : PRINT "THERE WILL 
BE A WAIT AFTER EACH LINE's PRINT 
NUNTIL YOU HIT RETURN TO CON 
TINUVE."s PRINT 
63220 FOR | = 1 TO 1000:W = FIN! 


63190 
63200 


63210 


- 2- t: TF PEEK (W) = 188 
THEN 63240 
63230 NEXT 


FOR ! = 170 K: IF LCI) = 
LCI} - 1) THEN 63290 

63250 t$ = "0000" + STRS (LCE)): 
t$ = RIGHTS (L$,5) 

63260 FOR J = 1 70 5: POKF W+ J 


632460 





,48 + 
NEXT 
63270 LIST 12345: INPUT "3 ¥¢ 
63280 IF K < 2 THEN END 
63290 NEXT END 
63300 {FN 


@ «= 


VAL ( MIPS (L$,J,1)): 


O THEN K # K # ist 


K) = LM: IF CH = 0 THEN POKE 


{,NTCO}: RETURN 


63310 IF N = 0 THEN RETURN 
63320 FOR J = 1 TON: !F PEEK ¢ 

1+ J) ¢ > SEEK(J) THEN RETURN 
63330 NEXT 
63340 K = K + TsLCK) = LM 
63350 $F CH ¢ > THEN RETURM 
63360 FOR J = 0 TO Ns POKE $ + J 


UNTCU): NEXT 


63370 RETURN 





Assembly Language 
Appiese7t Renumber 















AST Na a PR Ra aha a Sain Efe PEE te LP ot 
While there have bgen a number of programs published 
for renumbering APPLE BASIC, most have been written 
In BASIC and have therefore been slow. Here is a ver- 
sion written entirely in assembly language - very fast 








and very easy ta use. 





Chuck Carpenter gave a program in 
the May, 1979 issue of MICRO for 
renumbering Applesoft programs. 
Although this is probably adequate for 
most needs, there were still several 
drawbacks. Among these are the foltow- 
ing: 


i. User must make changes in BASIC 

a instructions when the new line 

number has more digits than the 
original line number. 


2 .!t is written in BASIC, so therefore, 
slower than a 6502 assembly 
language program. 


3. The program will take up the same 
amount of memory, rather than 
reducing its size when it is possi- 
ble. 


4 .User cannot specify only a portion 
of the program to be renumbered. 


5.The program did not work for all 
types of IF-THEN siatements. 


CTE Se RTE Minted Samat pa rs 


Being a software person, | found it dif- 
ficult to turn down the challenge to 
answer these deficiancies. The resuits 
of my efforts are contained in the foliow- 
ing assembly language program. 


To load the program, type in the hex 
numbers in the disassembled listing. 
This is written for #32K or larger APPLE 
system. tf you have a smaller system, 
you can go through the effort of 
relocating the program by hand. If you 
do relocate, be aware that the symbol 
table is stored at 7000 and continues as 
needed, using two bytes per line 
number. (A cassette version is available 
for $5 for any size system by contacting 
me. Make sure you state the amount of 
memory that you have. | will also give 
you @ copy of this program at any other 
special memory location if you have a 
need for this.) Record from 6CO00 to 
6F9C. 


To execute the renumberer, load your 
Appiesoft program, Hit reset and load 
the binary executable renumber pro- 


Alan D. Floeter 
4333 N. 71 Street 
Milwaukoe, WI 53216 


gram. Type: 6COOG. You will now see a 
flashing cursor. Enter the line number in 
the Applesoft program where the 
renumbering will begin. Then enter the 
next statement number you do not want 
renumbered. Finally, enter the new line 
number to start with, followed by the in- 
crement between line numbers. 


When the program is finished, (nor- 
mally under 30 seconds,) type: 0G, and 
your program is renumbered. You can 
now record it, or continue developing it 
as normal. 


An example of executing the program 
is as follows: 
52 (Start at line number 52...) 
512. (And stopping before fine 
512...) 
60° (Renumber, start with line 60) 
10 {And go in increments of 10) 
OG {And carry on!) 





.—- 


oe teens eee 


o&00- 
ocu2- 
ov05- 
ecuie 
olOy~- 
ocub- 
ocoD=- 
oc iGg- 
ot I 3~- 
ol la- 
oC lye 
oc lca 
oC le = 
 22- 
ol 2b- 
oc 2d- 
ov 2b- 
olédk~ 
0 31- 
oC 34- 
oC si 
ol 3A~ 
OL 30- 
oC 40- 
oC43- 
oC 4o0~ 
aC 49~ 
oC 4h— 
oC 4k- 
olb0< 
oCb2= 
— olb4- 
oCbo~ 
olby- 
ocbe- 
oUbk=- 
oloei- 
oco+- 
wWoiln- 
oCoA~ 
ovoc~ 
OCcok- 
ol f= 
oi2- 
ou id= 
ot for 
ocli- 
oC ldé- 
oC lA- 
oc ib= 
ol IDeA 
ovir- 
oC y0- 
olde 
oleo~ 
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OL d= 
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ED 
YO 
oo 
5] 
wu 
CB 
Bi 
EL 
bU 
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Bl 
oi 


rc 
00 


UU 
FU 
Ed 


re 
Es 
47 
FC 
Eb 
re 
ko 
42 
Fe 
FE 
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ob 
oF 
or 
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ov 
OF 
or 
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ore 
or 
oF 
OF 


- OF 
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or 
or 
or 
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or 
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OF 
or 
oF 


OF 


at 


oF 
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LvA 
STA 
LUA 
SLA 
LOA 
OLA 
JSR 
LDA 
S1A 
LLA 
SLA 
Jon 
LDA 
SIA 
LDA 
SlA 
JSn 
LUDA 
STA 
LDA 
DSlA 
JSH 
LDA 
DiA 
LDA 
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LUA 
SIA 
LUDA 
SIA 
LUDA 
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LDA 
Sola 
LDA 
DIA 
ola 
LDA 
SIA 
LDA 
SLA 
LDA 
SIA 
Lby 
LDA 
PrlA 
lay 
LUDA 
PHA 
ou 
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LOA 
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BCC 
vet 
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sit 
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SOD. 
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#900 
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PORFY 
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SEC 

7Od 
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(SFC), Y 
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SoC DU 
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Cvrud,y &§ 


$SoréE/ 


(stcd,t § 


Sorces 
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ont b= 
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cd 
ko 
bl 
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£0 
KE 


be 
ba 
AU 
vl 
Ca 


vi 
is 


oU 
3D 
AU 
ov 
uD 
Oo 
she) 
os 
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be 
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og 
O38 
Ad 
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a> 
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Bl 
3 
ED 
AA 
CA 
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CA 
AQ 
iI 
cy 
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Ly 
FO 
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FO 
Ls 
CA 
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AO 
Is 
od 
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YO 
ko 
tl 


AS 
3b 
AS 
8D 


FC 


of 
FC 
OU 
FL 
axe) 
FC 


re 


04 
FC 
BO 
25 
AB 
2l 
C4 
tv 


EE 
O1 
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to 
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DY 
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oY 
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or 


OF 
oF 
or 
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Dia 
PLA 
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PLA 
SIA 
CLC 
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LDA 
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OTA 
LbY 
LUDA 
dtl 
Su 
LAK 
UrA 
WEA 
DEA 
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Liuy 
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CMP 
BEQ 
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KTS 
Iny 
DEX 
BE 
Jor 
LUA 
HEU 
TYA 
PHA 
LUA 
STA 
LUDA 
STA 
LUDA 
ofa 
STA 
LUA 
Sra 
LUA 
STA 
LUY 
LDA 
[ny 
CMP 
BNE 
LDA 
CMP 
BEU 
Dr¥ 
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INC 
GNE 
IWC 
CLC 
LDA 
ADC 
OTA 
LUA 
ALC 
STA 
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BNE 
Ine 
LDA 
idP 
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LUDA 
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TAY 
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CaP 
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CaP 
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oDE4- ov EE 6F SIA 9OrFtE Oc Ad= AD kd Lua Sko oF4|— 69 Fb SIA SFb 
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Data Statement Generator 





If you have ever had trouble getting those pesky DATA 





statements at the end of your BASIC program correct, 
then you will appreciate this program which “writes” its 
own DATA statements! Written for APPLESOFT, it 
should be adaptable to other BASICs. 





| had just finished adding several 
new data statements to-a sewing pro- 
gram of mine that utilized a number of 
data statements, and now | was reading 
the information into their respective ar- 
rays. ‘‘BEEP,” said the Apple, ‘** “SYN- 
TAX ERROR.” | found the offending line; 
Id left out one of the elements and Ap- 
plesoft would not accept “RED’ as a 
value for “YARDS.” ! entered the line 
again and this time | typed the wrong 
line number and erased my previous line. 
There ought to be a way, | decided, to let 
_.he Apple keep track of these things. | 
“experimented with input statements, 
and while these allowed me to update 
the arrays, | couldn't save the informa- 
tion. 


Using the information from Jim But- 
terfield’s article on “Pet Basic” and the 
information in the Applesoft Manual, | 
developed a program that “writes” its 
own data statements. This routine 
automaticaily increments the linge 
numbers and inputs the data elements 
in response to appropriate prompts. It’s 


all poked into place and becomes a per- 


manent part of the program. 


it is first necessary to understand 
how ROM Applesoft is stored. The basic 
program begins at $801 (2049 decimal) 
and there are only two bytes between 
the end of the program and the start of 
the simple variable table which begins at 
{OMEM:. Anytime a Basic fine is 
ntered, altered, or deleted, the value of 
~LOMEM: is changed and the program 
must be rerun to incorporate this new 
value. Therefore, LOMEM: must be set at 
some value past the end of the program 
to allow for expansion of the program 
without writing on top of the variable 
table. 


To use this routine it is also 

necessary to recognize the following 
locations of a data statement in Ap- 
plesoft: 


2 bytes—pointer to next line 
of Basic (to next pointer) 

2 bytes—hex equivalent of 
the line number 

1 byte—"83""—token for 
"*DATA’ 


N bytes—ASCI! equivalents 
of the program line 

1 byte—‘00"~—indicates the 
end of the tine 


Then the sequence starts again until 
there are two bytes of “00” In the first 
two positions (total of three "00" bytes 
ina row.) 


The program uses the fact that the 
locations $AF.BO (175-176 decimal) hold 
the value of the location where the next 
line number would go; or put another 
way, two less than this is where the 
“pointer to next line’ would go. Call this 
PSN (for position). Thus the values to be 
poked into PSN and PSN +1 are the low 
and high order bytes of the hex 
equivalent of LINE number. Then the 


- DATA token (131 in decimal) is placed in 


PSN + 2. Since this program was design- 
ed to handle several elements in one 
data statement, a series of strings is 
next input as one string array. (It could 
just as easily have been déne as several 
“INPUT A$” 's, but using an array allows 
you to change a string before it is poked 
into memory). This is handied in lines 
1035-1045. {f there are no further 
changes, then the individual strings are 
concatenated into one long string with 
commas separating the individual 
substrings. Next this string is poked, 
one ASCI!t value at a time, into 
PSN +1+2; then the “0” is poked into 
the end as the terminator. 


Since PSN +143 is the start of the 
next line (remember the value of | was in- 
cremented one extra time -in the FOR- 
NEXT foop), call this NUMBER, convert it 
into hex, and poke it into PSN-2 and 
PSN-1, If the program is to be continued, 
PSN is given the value of NUMBER+ 2 
and the sequence restarted. If this is to 
be the last entry, then place ‘'O” into 
NUMBER and NUMBER + 1. All that re- 
mains is to reset the $AF.BO pointers to 
reflect the new value of the end of the 
program (NUMBER + 2). This is done in 
line 1085. 


List the program — the new data 
statement is in place at the end of the 
program and can be read into the 
necessary string of numeric variables. If 
you want to use this program as a 
subroutine to an existing data program 


Virginia Lee Brady 
D-3 Arthur Ct., Apt. 453 
Salisbury, MD 21801 


swhere you already have some data 
statements being read in, you couid use 
the fact that $78.7C gives the tine from 
which data is being read. Then insert a 
Statement that sets LINE equa! to 
PEEK(123) + PEEK(124)*256. 


If your program uses trailers, then 
have a TRAILER$ that is the sarne as 
your trailer line (eg. “0,0,0,0"). To write 
over this, set PSN equal to 
PSN-6-LEN(TRAILER$) and your first 
data statement will start that much 
eartier and replace this trailer. At the end 
of the program, handle this as before 
and poke the TRAILER$ Into place... This 
way every time you update your pro- 
gram, the original trailer is erased” and 
re-appended after the tast data state- 
ment. 


it is important to remember that the 
line numbers you insert this way must be 
greater than those of an existing pro- 
gram line. tf not, they witl be placed at 
the end of the program, but will not be 
recognized as legitimate line numbers. 
(if you try to erase or Ilst it, Applesoft, 
rot finding it between the next lower and 
next greater iine numbers will think it 
does not exist.) Also, do not try to 
Control-C out of the program once it has 
started the “poking” portion, since the 
pointers would be incorrect at this point 
and Applesoft would not know where to 
find the end of the program. , 


Since | developed this routine, | 
have used it in another program and in 
both cases ! have run into only one prob- 
lem. When I've added lines, saved the 
program to tape and later tried to reload 
it, ! got an error message even though it 
still listed and ran alright. This may have 
something to do with the header on the 
cassette tape which | know contains the 
length of the program; but I’ve not yet 
found out how to alter this. | would ap- 
preciate any information a reader could 
offer. This has not, however, been a 
problem when a disk is used. Other than 
that, it’s worked fine and it sure beats 


typing: 


3000 DATA RED, SOLID, 
1.25, POLYESTER 


3005 DATA BLUE/GREEN, 
STRIPE, 1, COTTON...!! 
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10 REM EXAMPLE OF A ROUTINE THAT AUTOMATICALLY WRITES 

20 REM ITS OWN DATA STATEMENTS THROUGH THE USE OF INPUT STRINGS 

30 REM VIRGINIA LEE BRADY 

50 HOME 

60  LOMEM: 4000 

70 =LINE = 2000 

80 GOTO 1000 

90 REM CALCULATE HI/LOW BYTES 

100 HIS INT(NUMRER/ 256) : LO=(NUMBER/256-HI)*256: RETURN 

1000 REM INPUT SUBSTRINGS . 

1010 PSN=PEEK(175)+PEEK(176)*256 

1015 INPUT" INPUT THE COLOR ";FS(1) 

1016 INPUT"INPUT THE PATTERN ";FS(2) 

1017 INPUT" INPUT THE YARDS IN DECIMAL ".FS(3) 

1018 INPUT" INPUT THE FABRIC TYPE "SFS(4) 

1020 REM ALLOW CHANGES 

1035 FOR I = ] TO 4:PRINT I; TAB(5)FS(I): NEXT I 

1040 INPUT"ANY CHANGES ? "t:y$: IF LEFTS$CYS,1)="N" THEN 1050 

1045 INPUT"WHICH ONE ? ";W: PRINT'CHANCE PART "sW;" TO "s: INPUT 
FS(W): GOTO 1035 

1050 FS="":FOR I = 1 TO 3:F$= FS + FS(I) + ",": NEXT: FS= FS+FS(1J 

1055 LINE = LINE + 5: NUMBER = LINE: COSUB 100 

1060 POKE PSN, LO: POKE PSN + 1, HI: POKE PSN + 2, 131 

1065 FOR I = 1 TO LEN(FS): PONE PSN + 1 ¢ 2, ASC(MIDS(FS,I,1)): NEXT I 

1070 POKE PSN + I + 2,0: NUMBER = PSN + 1 +3:GOSUB 100 

1075 POKE PSN ~2,LO: POKE PSN~1,HI 

1080 INPUT"ADD MORE ? "sY$: IF LEFT$(Y$,1)="yY" THEN PSN = NUMBER + 2: 
GOTO 1015 

1085 POKE NUMBER,O: POKE NUMBER + 1,0: NUMBER = NUMBER + 2: GOSUB 100: 

POKE 175,L0: POKE 176,HI 

1090 END 


Figure 1: “MAP” of Two New DATA Statements being Added 


Original Last Line First Added Line New Last Line 
POINT LOW 08 1000 PSN-2 0A 2000 PSN~2 40 1234 
POINT HIGH 10 1001 PSN~1 20 200} PSN~]} IZ 1235 
LINE LOW 64 1002 PSN 65 2002 PSN 66 1236 
LINE HIGH 00 1003 PSN+] 00 2003 PSN+1 00 1237 
"DATA" 83 1004 PSN+2 83 2004 PSN+2 83 1238 
data XX 1005 PSN+3 XX 2005 PSN+3 XX 1239 
XX 1006 PSN+1+3 XX 2006 PSN+1I+3 XX 123A 
"END" 00 1007 XX 2007 XX 1238 
NEXT LOW 00/02 1008 XX 2008 XX 123¢ 
NEXT HIGH 00/20 1009 "END" 00 2009 XX 123D 
Orig. End 100A NEXT LOW 36 200A XX 123E 
NEXT HIGH 12 200B "END" 00 123F 


NEXT LOW 00 1240 
NEXT HIGH 00 1242 
(AF.BO)*® New End 1242 


Note: Original Last Line 
NEXT LOW/HIGH change from 0000 
to 2002. 
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Applesoft Renumbering 





Here is a fast and reliable utility for APPLE pro- 
grammers who do not have disks. It can be adapted 
to the PET and other Microsoft BASIC systems. 


el 


The need for a program written in Apple- 
soft to renumber Applesoft programs is 
moot now that APPLE has made avail- 
able the 3.2 version of its disk operating 
system, that is, if one has a disk system. 
t wrote the present renumbering pro- 
gram while my disk drive was out of ac- 
tion, before the release of the 3.2 ver- 
sion, and after reading Mr. Carpenter’s 
program in MiCRO 12:45 based in turn 
en a PET program by Jim Butterfield, 
MICRO 8:33. Since some people do not 
have disks and since Applesoft pro- 
grams can be adapted to the PET and 
other systems using Microsoft BASIC, 
my renumbering program still may find 
users. 


Comparisen 


This Applesoft renumbering program 
(hereafter called RENUMB) is dreadfully 
slow; it took 7.9 minutes to renumber a 
8.5K program. Even at that, it’s faster 
than Mr. Carpenter's program, which 
took 13.2 minutes to renumbder the same 
8.5K program (and also had a problem 
with one THEN). In comparison, the 3.2 
disk renumber program did the job in 7.8 
seconds, 


Like Mr. Carpenter’s program, RE- 
NUMB cannot change the fine number 
after a GOTO, a GOSUB, or a THEN 
equivalent of a GOTO when the new line 
number has more digits than the old 
one. The program prints a list of these 
changes which must be made by hand. If 
there is not enough space, RENUMB in- 
serts only the least signiftcant digits. 
For example, the line 

100 ONL GOTO 180, 190 


with a fine number shift upwards by 1005 
would be given as 


1105 ON L GOTO 185, 195 


J.D. Childress 
5108 Springlake Way 
Baitimore, MD 21212 


With the manual change instructions 
shown here: 


LINE 1105: INSERT 1185 AFTER GOTO. 


LINE 1105: INSERT 1195 AFTER COMMA. 


lf there is more space than needed, 
RENUMB inserts leading zeros. (Note 
that the Applesoft interpreter preserves 
such leading zeros whereas the 3.2 disk 
renumber program does not.) 


RENUMB has one useful feature in 


common with the 3.2 disk renumber pro- - 


gram, namely the capability of renum- 
bering only a specified portion of a pro- 
gram. This feature must be used with 
care since one can renumber a part of a 
program with line numbers equal to or in 
between some of the line numbers of the 
remaining part of the program. 


Unlike the 3.2 disk program, RE-NUMB 
does not order such lines into the oroper 
sequence. If you really want that, you 
must run RENUMB first then use the 
screen/cursor editing controls to copy 
the out-of-sequence Jines through the 
Appiesoft interpreter. The reader is left 
with the nontrivial problem of getting rid 
of the still remaining out-of-sequence 
lines. 


Operation 


To use RENUMB, one needs to ap- — 


pend RENUMB to the program to be re- 
numbered. The machine tanguage AP- 
PEND program and procedure given by 
Mr. Carpenter are recommended. After 
the two programs are properly loaded, 
renumbering is accomplished by a RUN 
63000 command. Give the requestec in- 
formation, then be patient; remember 
that RENUMB is numbingly slow. 
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Copy carefully all the manual changes 
listed. If you want to see them again, you 
can do so by a GOTO 63360 command 
provided you have done nothing to clear 
the variables, i.e., have not given any 
RUN commands or changed any tine of 
the program. 


You may use the SPEED command to 
slow up the display and the CTRL-C 
command to interrupt the display 
without clearing the variables. Once the 
variables have been cleared, there is 
nothing you can do except start from the 
beginning, that is, joad the programs 
again. 


At the beginning of the program run, 
you are asked for a rough estimate of 
the number of program lines (numbered 
tines) to be renumbered. Be generous, 
within limits of available memory. If your 
estimate is too small, you will get a 


2BAD SUBSCRIPT ERROR IN 630X0 


where X = 6, 7, or 8 since your estimate 
is used for array dimensioning. Unless 
your program is especially rich in bran- 
ches, an estimate, say, about 50% 
greater than the number of line numbers 
will suffice. 


Program Design 


The design of RENUMB is quite sim- 
ple. First RENUMB searches the pro- 
gram being renumbered for fine numbers 
(and their memory locations) and the line 
numbers (and memory locations) after 
GOTO’s, GOSUB’s, THEN’s, and COM- 
MA’s in multiple branches. This search 
is done by lines 63040-63090 and for 
branches, the subroutine at 63250, Lines 
83130 and 63140 make the changes at 
the branches and line 63180 at the 
jabels. The routine beginning at 63350 
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Prints out those changes that must be 
made by hand. 


All else Is bookkeeping. Note: In line 
63030, START is the address in memory 
of the beginning of the program. This is 
probably the only thing that needs to be 
changed for RENUMB to run on the PET 
(try START @1025 per Butterfield) and 
possibly on other systems using Micro- 
soft BASIC. Finally, if you write very 
GOTOy and GOSUBy programs, you may 
want to change the definition of DD In 
line 63030. 


Applesoft 


Butterfield gives considerable infor- 
mation about the insight Into the struc- 
ture of Microsoft BASIC. What is even 
handier is your own APPLE Il. Let it be 
your textbook and teacher. For example, 
starting fresh with Applesoft in the com- 
puter, enter 


LISTING-~APPLESOFT RENUMBERING 63230 FOR | = 170K: IF LMU < > 
PROGRAM INSC1) THEN NEXT : GOTO 631 
es &0 
63140 FOR KA = 1 TO NDC1): POKE 
LOC(T) + 1 + NO(E) + KA, Vat 
62999 END ( MIDS (SK¢,E - KA,1)) + U8: 
63000 HOME : VTAB (3): POINT * NEXT 
RENUMBERING PPOGRAL": OR INT 63150 IF LNU # INS(T) THEN IMSCJ 
») = SK 
63010 PRINT "LINES TO BE RENTIMRE 63160 fF LEN ( STRS (S$K))} > NDC 
REO: "s fNPUT ' PEGIMING LI 1) THEN PCR = 1 


INPUT " 
papyy 


NE-="'s 8GN: 
LINE=="; 7 aM; 


NUMBER OF LINES (ROUGHLY) -- 


"sD: PRINT 

63020 
G LINE@="3 SK; 
NT-="S ADD 


€3030 START = 256 # 


6 « PEEK (M+ 1) + 
dy: TF LO > 62900 THEN 


63050 FOR J = M + 2 TOM + 255:T 63290 
= ST = PEEK (Jd: TF TST = 0 THEN 63270 SU = 10 * SU + CPR = 48 

MevJ + 3: GOTO 63040 63280 NEXT 

63060 IF TST = 171 THEN NASC(K + 63290 LOCC(K) = J:ND(K) = KA - I 
1) = "GOTO": GOSUB 63250 UrINS(K) © SUsJ = KA © Ls UF 

63079 IF TST # 178 THEN NAS(K ¢ CPR = && THEN NAS(K + 1) « " 
1) = "GOSsUB": GOSUB 63250 COMMA": J © KA: GOTO 63250 

63080 IF TST = 196 ANN PEEK (y + 63300 RETURN 
1) > &7 AND PEEK (J + 1) < 63310 ENN 
58 THEN NAS(K + 1) = "THEN*: 63350 tf Pom? < > 1 THEN ENN 
GOSUB 635250 63360 PRINT : PPINT "NOTE: YoU M 


63090 NEXT UST MAKE THE FOLLOWING CHAN] 
63100 FOR J = 1 TO LILNU = 256 « "ss PRINT "GES MANUALLY: ": PQyNT 
PEEK (LS(J) «© 1) + PEEK CE 
S(J)):s TF LNU > TPM OR LNU D> 63379 FOR | @ 1 TO kK: TF LEN ( STO8 
62900 THEN PRINT : POINT tA CIMSC1))) ¢€ = NDC1) THEN NEXT 
ENUMREOING COMPLETED THPOUGH : END 
LINE "sLUNS",": GOTO 633596 63380 PRINT "LINE “stm(dyets FNS 


63110 
63129 Ske = "cCO0O" + 
Kt = 


STPS$ 


RIGHTS (SK$,5) 
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ENDING 


INPUT "RENUMBEPED BEGINNIN 
INPUT "ENCOEME 


PEEK (104) + 

PEEK (103):M = START + 2:00 

« ENT (CD / &): DIM LSCD),L 

N(DD), LMC DD), LOCC DD), NAS(DD) 
sNDODD), ENSCDO), IMS (DD) 

63040 L = bk * U:lS(t) = MiLC = 25 

PEEK {(M 


IF tNt! < BGN THEN 63190 
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1 PRINT: GOTO 521 
527 PRINT “FREE”: LIST 524 


Whiie this little program runs without 
error, that Is not necessary. You can 
enter anything you want to see how Ap- 
plesoft handles It. 


Now go to the monitor and took at 


801- OC 08 01 00 BA 3A 
AB 35 32 31 00 


80C- 10 08 09 02 BA 22 46 52 45 45 22 
3A 
BC 35 32 31 00 


810- 00 00 


for ROM Applesoft (1001 for RAM Ap- 
plesoft). In the above tines, arranged 
here for clarify, OC, 08, 10 08, and the 
final 00 00 point to the next instruction tn 
memory, the 00 00 pointer labelling the 
end of the program. 01 00 and 09 02 are 






53170 
TOTAL 


63190 


63200 
63220 
63260 


R = 
63100 





(SK):S 


106 


NEXT 
63180 SO = 
C(LSCJ) + 19,50: PIKE (LSCu)) 
oSK = 256 * SO 
FOR 
NCH) THEN LYCE) = SK: 
< BGN THEN LMCI) © LNU 
NEXT . 
63210 SK = SK + ADD:LUN = LAU 
NEXT 
63250 K = K + 1:LN(K) # LC:SU ® 
(J + 1) - &8 : 
FOR KA © J + 279 J + 6:0? 
PEEK (KA): 
CPR = 58 OR CPR = && THEN GOTNA 


ERT "SIMSCI);" AFTER “"SNAS(I 


youn 


63390 NEXT = END 


the line numbers, 1 and 521 respectively. 
BA is the token for PRINT; 3A is the 
ASCitt code for the colon: AB is the token 
for GOTO; 35 32 31 gives the line number 
for the GOTO; and 00 indicates the line 
ending. 22 46 52 45 45 22is a direct ASCH 
code rendition of “FREE”. Finally BC is 
the token for LIST and 35 32 31 Is the line 
number 521 after LIST. 


Study of the above paragraph shows 
that Applesoft puts things into memory 
almost exactly the way you type them on 
the keyboard, except that the interpreter 
removes spaces, puts in instruction ad- 
dresses, translates its command words 
into tokens, and uses ASCII code and 
hexidecimal, low-order bit first notation. 


{ think we can be confident that 
Microsoft has written most of their 
BASIC interpreters in as similar a 


fashion as possible. After all, why not 
exploit one’s own good work. ei 











POKE 





INT (SK / 256): 






TF LNU & L 
iF iNU 


{= 1 TO K:3 








PEEK 







JF CP® = 0 OR 
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Common Variables on the APPLE II 





Modular software designs rely on common variables to 


pass data between interrelated programs. Two short 
subroutines emulate the DOS CHAIN capability by 
allowing use of common variables under Integer or Ap- 


plesoft BASIC, without a 





The solution of complex problems often 
leads to the writing of several inter- 
related programs. Furthermore, the pro- 
grams usually use several of the same 
variables -- called common variables. 
This is accomplished in most systems 
by not destroying the common variables 
when a new program is toaded. Thus, the 

_ value of a variable can be defined in one 
program and used in subsequent pro- 
grams. 


There is no true facility with the APPLE I] 
for using common variables. The CHAIN 
cornmand in DOS comes close to pro- 
viding the capability, but it saves all 
variables instead of just saving 
designated common variables. Also, it 
can only be used with Integer BASIC pro- 
grams run under DOS. No facility for 
common variables is provided for non- 
disk systems or for AppleSoft programs. 


The attached machine language routines 
can be used to pass all variables to suc- 
ceeding programs. Integer BASIC and 
AppieSoft versions are provided. Both 
versions are used as follows: 


1. Load the machine language 
routine before the first BASIC pro- 
gram is executed. 


2. tneach BASIC program except the 
fast program, “CALL 774" im- 
mediately before termination or 

> before the DOS command to RUN 
the next program. 

3. In each BASIC program except the 
first program, “CALL 770” before 
executing any statement that af- 
fects or uses variables. Do not 
reOiMension variables in subse- 
quent programs. 


Since all variables are saved whether 
they are needed or not, main storage is 
used most efficiently if the same set of 
variable names is used in ali programs. 
This, of course, is required for the 
variables that are intended to be com- 
mon for all programs. Other main 
storage is reclaimed by the reuse of the 
names of “non-common” variabies. 


String variables will not always be saved 


correctly in AppleSoft. If the string value 
was read frorn disk, tape or keyboard, the 


disk. _ 





value will be saved, !f the string value is 
defined in an assignment statement (e.g. 
AS = “XXX"), the value will not be 
available to subsequent programs. 


The routine for integer BASIC is very 
simple. The variable table pointer is 
simply saved and restored. The Ap- 
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pleSoft version, however, is a little more 
complex. The AppleSoft version of the 
routine moves all non-string variables to 
high RAM, just under the strings. Then, 
when called at the beginning of the next 
program, via “CALL 770”, the routine 
moves the variables back down to the 
end of the new program. 


0030; ® ROUTINE TO SAVE AND RECALL 

0040: ® COMMON VARIABLES FOR APPLESOFT II BASIC 

0050: ® PROGRAMS ON THE APPLE II 

0060: ] 

0070: @ WRITTEN 03/16/79 BY ROBERT F. ZANT 

0090; e. 

0100: O3A7 DL # $0018 

0110: O3A7 DH * $0019 

0120: O3A7 cL £ SOO1A 

0150: O3A7 CH bl $001B 

O10; O3A7 EL # $001C 

0150: O3A7 EH * $001D 

0160: O3A7 AIL * $003C 

0170: 0347 A1H * $003D 

0180; 03A7 A2L « $003E 

0190: O3A7 A2H * $003F 

0206: O3A7 AYL & $oo4e 

0210: 03A7 ASH # $0043 

0220: 0302 ORG $093502 

0230: 0302 4C 56 03 UMP AECALL #*#ENTRY 770 : 

0240: 0305 00 BRK 

0250: 0306 38 SEC ###ENTRY 774 - SAVE NUMEALCS 

0260: 0307 AS 6F LDA  $006F COMPUTE ADDRESSES FOR MOVE 

0270: 0309 85 18 STA DL SAVE START OF STRING ADDRESS 

0280; O30B E5 6D SEC $006D END OF NUMERICS 

0290: O30D 85 TA STA CL TEMPORARY STORAGE 

0300; O30F A5 70 LDA = $0070 

0310: 0311 85 19 STA DH 

0320: 9313 ES 6E SBC $006E 

0330: 0315 85 1B STA CH TEMPORARY STORAGE 

0340: 0317 18 CLC 

0350: 03128 AS 1A LDA CL 

0360: O31A 65 69 ADC $0069 START GF NUMERICS 

0370: 031C 85 1A STA CL TEMP STORAGE 

0380: O31E A5 1B LDA CH 

0390: 0320 65 6A ADC $0064 

O400: 0322 8&5 1B STA CH 

O410: O324 AGB IA LDX CL SUBTRACT ONE 

0420: 0326 DO 02 BNE At 

O430; 0328 C6 1B DEC CH START OF COMMON 

O44O: O32 CA Al DEX 

0450: 032B 86 14 STX CL 

O460: 032D 86 K2 STX AM4L SET UP MOVE 

0470: O32F AS 1B LDA CH 

O48O: 0331 85 43 STA  A4H 

0490: 0333 a5 69 LDA $0069 START OF VARIABLES 

0500: 0335 85 3C STA ATL 

0510: 0337 A5 6A LDA $006A 

0520: 0339 8&5 3D STA AIH 

0530: 033B A5 6D LDA $006D END OF VARIABLES 
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MICRO-WAhe ASSEMBLER 65XX-1.0 PAGE 02 


0343 
0345 
0348 
C349 
0345 
034D 
O34F 
0351 
0353 
0355 


0356 
0358 
O35A 
035C 
O35E 
0360 
0362 
0364 
0366 
9368 
036A 
036C 
036E 
0370 
0372 
0374 
0377 
0378 
O37A 


AQ 


28 
A5 
LS 
85 
A5 
ES 
85 
60 


A5 
85 
A5 
85 
A5 
85 
B5 
A5 
85 
85 
A5 
85 


85 
AO 
20 
18 
A5 
65 


co 
2c 


6B 
69 
1c 


4 
w 


” 


OA 
1D 


3¢ 
1B 
30 
18 
6F 
3E 
1g 
70 
3F 
&9 
42 
6A 
43 
co 
2c 


69 
1 


FF 


+ 
RECALL 


LDYIM $00 
JSR  $FE2C 
SEC 
LDA —- $006E 
SBC $0069 
STA EL 
LDA $006 
SBC 40064 
STA EE 
RTS 
LDA CL 
STA AIL 
LDA CH 
STA AIH 
LDA DL 
STA  $006F 
STA A2L 
LDA DH 
STA $0070 
STA A2H 
LDA $0069 
STA AYL 
LDA $0064 
STA AUH 
LDYIM $00 
JSR  $FE2C 
CLC 
LDA $0069 
ADC EL 
"6318 
0318 
0302 
0202 IC 
0305 00 
0306 A5 
0308 85 
030A A5 
030C 85 
030E 60 
OR0F AS 
0311 85 
0313 A5 
0315 &5 
0317 60 


USE MONITIN MOVE R 
COMPUTe DISPLACEMENT 
TO ARRAYS 


BECK TO BASIC 


SRECHTRY 770 - RECALL 
SET UP MOVE 


START CE STRINGS 


START GF NUMERICE 


COMPUTE START 
OF ARRAYS 


037C 
O37E 
0380 
0382 
0384 


outing 0385 


0387 
0389 
038B 
038D 
038F 
0391 
0392 
0394 
0396 
0398 
O39A 
039¢C 
0398 
03490 
OLA? 
O5a% 
0545 


65 
A5 
65 
85 


AS 
ES 


A5 
ES 
85 
18 
AS 
65 


AS 
65 
65 
A5 
bo 


cs 


G6 
69 


6B 
6A 
tD 
6C 


6F 
TA 
6D 
70 
1B 
6E 


&D 
69 


> 6D 


nm 


G 
6A 
68 
6p 
Be 
5E 


C 
cD 


STA 


AnC 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
BNE 
DEC 
A2 DEC 
RTS 


SYMBOL TABLE 2000 205A 


7 nm . > AQ 
USE MON MOVE ROU 
SE ITOR MO ROUTINE ARE 


CH 
EH 


$006B 
$O06A 
EH 

$006C 


$006F 
CL 
$006D 
$0070 
CH 
$006E 


$066D 
$6969 
$coép 
$CGSE 
$005A 
$006E 
$O06D 
A2 

$006E 
$006D 


COMPUTE END OF NUMERIcS 


TEMP STORAGE 


TEMP VALUE 

TEMP VALUE 
SUETRACT ONE 
END CF NUMERICS 


BACK 70 BASIC 


0324 AQH 003D AQL 0O3C AR 344 
003F AL 003E *Th 9043 ATL 0042 
0018 CL OOTA OH C019 DL 0018 


001D EL 001C 


*#FENTRY 774 - SAVE VARIABLES 


ENTRY 770 - RECALL VARZABLES 


* ROUTINE TO SAVE AND RECALL 
* COMMCN VARIABLES FOR INTEGER BASIC 
® PROGRAMS ON THE APPLE II 
. 
® WRITTEN 63/16/79 BY KOBERT F. ZANT 
- # MODIFIED 7/4/79 BY MICRO STAFF 
€ 
CL * $001A 
CH s $001F 
ORG $0302 
OF 03 JMP RECALL ®#*ENTRY 770 
BRK 
ce LDA = $00CC 
1A STA CL SAVE END OF 
cD LDA $00CD VARIABLE TABLE 
1B STA CH 
RTS BACK TO BASIC 
1A RECALL LDA CL 
cc STA  $00CC RESET END OF 
1B LDA CH VARIABLE TABLE 
CD STA  $00CD 
RTS BACK TO BASIC 
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How to do a Shape Table 
Easily and Correctly! 





a 





The mechanism for generating shapes and characters in 


APPLE High Reslution Graphics is cumbersome and 
prone to error. A very clear explanation of the 
mechanism and pitfalls is presented here. But, best of 
all, a program is presented which permits the user to 
create the shapes interactively, using the Keyboard and 


Display. 


pr ee ae 





The Problem 


One of the most discouraging tasks 
facing the owner of an APPLE computer 
is the creation of a shape table. The 
table is required for generation of 
shapes and characters for high resotu- 
tion graphics, since APPLE does not of- 
fer pre-formed plotting characters. Thus, 
if one wants to label the axes of a graph, 
the shape table can be used to supply 
the characters required for the labels. it 
is also useful for producing spectal 
shapes for garnes. 


if, like me, the reader has ever tried 
to prepare a shape table using APPLE’s 
proceedure, | am sure he/she dis- 
covered, as ! did, that the proceedure is 
time-consumung, tedious, and error- 
prone. In several attempts, | have yet to 
generate a shape table using the manual 
proceedure given by APPLE, that didn't 
end up with missing dots, spurious pro- 
jections or an unpredicted shape. At first 
| thought the problem was of my own 
making, since APPLE’s directions are 
clear and apparently faulttess. The use 
of the words “apparently faultless” in 
the last sentence impiies that what | 
found was in fact the case: APPLE’s pro- 
ceedure for creating a shape table has 


some rea! glitches. | discovered these in 
the course of pursuing the work describ- 
ed below, and developed a proceedure 
that circumvents the glitches and pro- 
duces perfect results every time. So, 
read on. 


APPLE’s proceedure for pre- 
paration of a shape table is carried out 
as foliows: the shape is first laid out asa 
dot pattern on a grid (Figure 1), a series 
of plotting vectors is superimposed on 
the pattern to trace out a continuous 
path that covers all points to be plotted. 
The plotting vectors are defined either 
as move-only or as plot-then-move vec- 
tors. 


move right ——> move left 4— 
move up i move down LL 
plot then move right —} 


plot then move left bad 

ptot then move up Ty 

plot then move down 

The shape in Figure 1 is reproduced in 
Figure 2 with the chain of plotting vec- 
tors superimposed. The plotting vector 
chain may start at any point, but in 
selecting this point you should know 
that the initial point in the shape is the 
point that gets plotted at coordinates 
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(X,Y) in the DRAW command. Therefore, 
your choice of initial point determines 
the justification of the shape or 
character with respect to the plotting 
location. if you want a center-justified 
character, then start the vector se- 
quence at the center of the shape; a left- 
justified character must be started at 
the left side, and so on. The APPLE 
manuals give the impression that it is 
immaterial where you start the shape, 
but if you want to have your characters 
fail properly on a line, it is something 
you must attend to. Knowing justifica- 
tion of the shape is important in games 
where things bang together and in 
building up jJarge patterns by plotting 
sub-units adjacent to each other— 
cases in which it is important to know 
where the boundaries of the shape fail 
relative to the point at which it is plotted. 


The next step in preparing the 
shape table requires that the chain of 
plotting vectors in Figure 2 be unfoided 
into a linear string, beginning with the in- 
itial point of the pattern. For the shape 
in Figure 2, the following sequence of 
vectors is obtained after unfolding: 


CK ee 9 J 
Tottc<_-] 





Ee NRF PE EAN TE WL TIT LE TT ON UL AT IE IT SI a TT I ETT AE ET TE OE EG DA a LN NS. 5 eT 


The ploting vector string is then broken 
up Into groups of two or three, each 
group (confusion!) reading from right to 
left. To add a littie more danger to the 
game, the rules require that no group of 
vectors may end with a move-up vector 
or with a plot-then-move vector, in which 
case the group wil! contain at most two 
plotting vectors. The table in Figure 3a 
shows how the above string is subdivid- 
ed. in this case, because of the restric- 
tions on termination, each group can 
contain only two vectors. The rules for 
formulating these vectors groups are ac- 
tually quite soundly based, as will 
become Clear in tater considerations. 


We are not done yet. in the next 
Step, each plotting vector as it appears 
in the table in Figure 3a is replaced bya 
3-bit (octal) code. The code is shown in 
Figure 4, along with the decimal 
equivalents. Note that the decimal code 
for @ plot-then-move vector is obtained 
simply by adding decimal 4 to the cor- 
responding move-only vector. There is a 
c ‘ain amount of method in this 

— ness. The 3-bit code translation for 
the pioiting vectors in Figure 4, which 
represent our shape, is displayed in 
Figure 3b. 


The next opportunity for confusion 
{and errof) appears now, when the bit- 
Strings in Figure 3b are re-grouped and 
assembied into nybbies (Figure 3c) and 
the nybbles are each translated into hex- 
idecimal numbers (Figure 3d). The pairs 
of hexidecimal numbers, of course, 
represent the content of one byte. This 
is the byte that is stored in the shape 
table. In essence, then, the shape table 
is a list of hexidecimat numbers, which, 
afler transfation into binary and re- 
grouping, represents the collection of 
3-bit codes equivatent to the plotting 
vectors, which in turn represent the 
original shape. in the parlance of 
mathematics, the shape has been map- 
ped onto the set of hexidecimal 
numbers. 


i by now the reader is feeling a 
tingie of impatience with this descrip- 
tion, multiply that feeling by a factor of 
at ieasi ten, and you will be on the verge 
of understanding what it feels like to 
cary Gut these steps. To add to the 
frustration, there are enough booby 
raps laid by APPLE to ensure quite a de- 
sent probability that after you have gone 
through this travail, the shape that final- 
y appears on your screen will be 
nisshapen. With a computer at hand, it 
seems Silly to be bogced down by a pro- 
7e8s like this—and that's what the rest 
of this articie is about: a computer pro- 
jram in APPLESOFT BASIC that aliows 
tasy graphic input of a shape or 
haracter with automatic generation 
ind storage of a correct shape 
able—graphics without tears, so to 
ipeak, 


ae eae See ee ee oat ny Seer ee ae ete waver io ey ere ETE TT NL ITN RE I TR TT BET TE tilt 
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Figure 1: Shape to be coded 





Fig. 2: Layout of Plotting Voctors. (S) is the starting point. With 
this choice of (S), the shape will be lower right justified and wiil 
plot with one empty column to the right of the shape. 





CS 00 111 011 0011 1011 3B 

é-+ <-» 00 2122 111 0011 11211 3F 
t f 00 100 100 0010 100 2u 

t~ —- 00 100 001 0010 0001 21: 

; nr 00 100 001 0010 0001 21 

2 00 100 001 0010 0002 21 

<— f° 00 011 100 0001 1100 re 
<—+ <—- 00 111 112 0011 1111 37 
ip iF 00 110 010 0011 0010 32 

(a) (b) (c) (d) 


Fig. 3: Translation of shape vectors to Hexidecimal Code 


Approach to a Solution 


Every computer programmer has 
his own mind-set. For some, it is struc- 
ture: a beautiful program that reads like 
a novel. For others—start at the middie 
and develop a nice, tight, efficient 
algorithm. | am an input-output bug. To 
me, the proper questions that should be 
first answered are: how can | make it 
easy for the user of the program to get 
his data into the program; and how can 
the output be made digestible? In the 
present case, of course, the major pro- 
blem is one of input. With the equipmant 
at hand—an APPLE keyboard, video 
screen and a couple of floppy disks—I 
settied on a display of a 15x 15 grid and 
acursor that can be moved by hitting ap- 
propriate keys (Up, Down, Left, and 
Right). The shape is created by plotting 
the shape as a dol pattern under control 
of the moveable cursor, using the P (for 
Plot) key to lay down the dot pattern. 
One necessary key is the Quit key, which 
informs the cornputer that the shape is 
done. A convenience key, E for Erase is 
provided to accomodate some of my 
sloppy keyboard habits; it facilitates un- 
doing the last plotted point. The seiec- 
tion of keys U,D,L and R for directing the 
cursor was modeled after the set of 
allowed plotting vectors (there are no 
diagonal moves in the set), and was a 
fortunate selection for easy formulation 
of the algorithm. 


While the genera! format for input 
was quite clear, the approach to 
translating that input into a shape table 
wes not immediately clear. Two pro- 
ceedures are possible: you can store all 
of the input data in some sort of two- 
dimensional array in memory and then 


analyze it, or you can take the input data 
as they are acquired and develop the 
shape tabie on the fly. | scriously con- 
sidered the first path, and in fact, wrote 
a program that would translate the input 
pattern into a matrix of zeroes and ones. 
Further consideration showed that 
analysis of the pattern would be dif- 
ficult, one of the major problems being 
that of ensuring proper plotting of the 
shape with respect to its starting point, 
i.e., justification. Moreover, the most ef- 
ficient approach in terms of processing 
time and storage requirements for the 
shape table is to confine genezation of 
the plotting vectors to the occupied cells 
of the grid as much as possible. Such 
pattern tracing on an arbitrary two 
dimensional array presents a formidable 
search problem; particulariy with 
disconnected patterns. The solution of 
the problem of efficienly tracing the in- 
put pattern was obvious as soon as | 
realized that the keystrokes used by a 
person entering the pattern on the grid 
constituted a continuous record of the 
pattern. By analyzing the keystroke pat- 
tern, |! could produce a= string of 
equivalents. The inspiration for this may 
be tracabie in part to my knowledge of 
the way in which chemical structures 
are recorded at Chemical Abstracts Ser- 
vice of the American Chemical Society, 
where chemical typewriters, used for 
creating chemical structures, are con- 
nected to computers which record the 
keystrokes of the operator entering the 
structure. The recored of keystrokes can 
then be “played back” to reproduce the 
Structure exactly as it was keyed in. 
With this basic approach decided upon, 
the outline of the required algorithm 
became Clear: 


1} Select the position in memory 
at which the shape tabie is to be stored. 

2) Generate and display the work- 
ing (15 x 15} grid. 

3) Input the starting coordinates 
for the shape (required for justification). 

4) Generate the proper 3-bit codes 
that represent the plotting vectors, bas- 
ed on the keystrokes used to input the 
pattern. 

5) Assemble the 3-bit codes (in 
groups of two or three, depending upon 
APPLE’S strictures) into a byte. 

6) Store the assembled byte in the 
shape table. 

7) Provide for proper finishing-off 
of the current byte when the Quit key is 
hit. 

8) Add an end-of-record mark (a 
zero byte) required by APPLE as a shape 
terminator. 

9) Store the tabie. 


Most of these steps are straightfoward, 
but two of them, generation of the 3-bit 
codes that represent plotting vectors, 
and their assembly into bytes (steps 4 
and 5, above), require further elabora- 
tion. 


in APPLESOFT BASIC, the 
character returned by a keystroke is ac- 
cessible with a “GET” command; the in- 
struction GET KEY$ will load the 
character accessed by the next 
keystroke into the variable KEY$. We 
may examine KEY$ to determine 
whether it contains a “D”, "L", “U”, or 
“R” and then do a table look-up (using 
the definitions in Figure 4) to retrieve the 
decimal value associated with the direc- 
tion implied by the keystroke. Each 
decimal! value, of course, as stored in 
memory will generate the proper 3-bit 
binary code. Subsequently, the 
keystroke preceding the current one 
(which we thoughtfully saved in variable 
KSVE$) is examined. If KSVE$ ts a “P”, 
then the current 3-bit code must repre- 
sent a plot-then-move vector and 
decimal 4 us added to the deciaml factor 
for the current key. [f KSVE$is nota''P”, 
then the current decimal key equivalent 
remains unaitered. 


Assembly of the 3-bit codes into 
bytes involves only basic consideration 
of decimal to binary conversion. Byte 
assembly is done in the program as each 
3-bit code becomes available, but for the 
purposes of discussion, let us assume 
that 3-bit codes, V,, V,, V, are available in 
that order from the tast three 
keystrokes. The first 3-bit code in- 
itializes the byte: 


V, 
BYTE=V, OOOOOXXX 


The second 3-bit code must be added to 
the byte, but must first be left-shifted 
three bits if the V, bits already present 


penta sa bike 5 at Re CD GREER EERIE PR gPRSP PNT Fe 
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are to remain unchanged. This Is done 
by multiplying V, by 8: 


vy, V 


BYTE = BYTE +8°V, OOYYYXXX 
Now for V;. To refresh your memory, you 
will observe in Figure 4 that all plot-then- 
move 3-bit codes have their left-most 
bits ‘‘on.” Since there are only two bits 
remaining unfilled in the byte, there is no 
way In which the plot status of the third 
Sbit code can be entered into the byte. 
In this case, processing of the byte 
stops, and it is stored in the shape table, 
while V, is used to initialize the next 
byte. This is the reason that plotting vec- 
tors cannot be stored as end vectors ina 
byte, one of APPLE’S restrictions 
previously noted. In similar fashion, if V, 
corresponds to a move-up vector, with 
all bits zero, it is not loaded into the cur- 
rent byte, but is used to initialize the 
next byte. The reason for this is not so 
obvious, but ts related to the aforemen- 
tioned deduction that plotting vectors 
cannot appear as end vectors in the 
byte. For, suppose that the zero move-up 
vector V, could be stored as an end vec- 
tor; then everytime V, happened to be a 
plotting vector, the last two bits in the 
byte would be a zero, and undesired up- 
moves would be enabled whenever a 
plot-then-move vector happened to oc- 
cur in V;,. APPLE'S restrictions make 
sense! 


In the event that V, is neither a 
move-up nor a plot-then move vector, it 
is added to the byte, for it then consists 
of an unambiguous two-bit code (Figure 
4} that can fit into the remaining two bits 
of the byte. Addition of V, requires a 6-bit 
left shift of V, to avoid changing the bits 
already present. This is done by 
multiplying V, by 64{ = 2°): 


Vv; V; V, 
BYTE = BYTE+64°V, ZZYYYXXX 


Earlier, | mentioned glitches design- 
ed Into APPLE’S shape procedure that 
would offer problems in obtaining cor- 
rect shapes in graphics. There are ac- 
tually two kinds of glitches, one predic- 
table and the other not. The predictable 
one is aconsequence of two facts: 1) AP- 
PLE uses a Zero byte as an end-of-record 
mark to terminate every shape; 2} the 
move-up vector is represented by a 3-bit 
code of 000. If follows that severat move- 
up vectors in a row will generate an end- 
of-record mark and any part of the shape 
following thereafter will be forgotten. 
That's bad enough. Worse is the unex- 
pected fact that move-up codes (000) 
that !le on the left part of the byte (most 
significant bits) are not recognized. For 
example, consider the two cases of a 
plot-then-move right command followed 
by a move-up command, 


00000101 (decimal 5) 


and a move-up command followed by a 
plot-then-move right command, 


00101000 (decimai 40). 


Presumably, these commands shouid 
give the same net result. That's what you 
think, and what | thought also! In fact, 
the move-up command imptied in the left 
bits of decimal 5 is not recognized by the 
system, and the byte is interpreted as a 
piot-then-move right instruction only. 
Therefore, if you try to generate a 45° 
line with the sequence 


plot-then-move-right: move-up: 
plot-then-move-right: move-up... 


you wiil get a horizontal line, whereas 
the sequence 


move-up: plot-then-move-right: 
move-up: plot-then-move-right... 


will give the desired 45° line!! There is 
nothing in APPLE’S literature that would 
lead the unwary to suspect that these 
two sequences will not plot alike. Now 
you know the source of those 
misshapen shapes. 


The two problems described in the 
preceding paragraph-premature end-of- 
record mark and non-plotting up-vectors 
that appear in the left bits-arise fram the 
definition of the up-vector as a zero 3-bit 
String. In fact, a concise statement of 
the problem is that any byte with a value 
less than decimal 8 can be expected to 
misbehave, unless it is the last byte in 
the shape table. The solution to the pro- 
blem lies in preventing the occurence of 


these dubious bytes. This can be done © 


easily-especially with a computer 
program-by Introducing dummy fright- 
and left-moves. The technique is simple: 
check the value of the assembied byte; if 


_ itts tess than decimal 8, the second vec- 


tor in the byte must correspond to the 
move-up (000) vector. In that case, 
replace the left-most zero bits by a non- 
zero, move-right vector, transfer the 
move-up (000) vector to the next byte and 
follow it by a move-left vector. By plac- 
ing the move-up (000) vector into the 
right-most three bits of the next byte, 
you ensure that it will be recognized as 
an up-vector. The succeeding move-left 
vector un-does the effect of the move- 
right vector installed in the preceeding 
byte so that the correct shape is main- 
tained. tmptementation of this routine in 
a computer program is actually quite 
easy, and resolves the problems in- 
troduced by the up-vector. Frankly, | 
don’t see how anyone could be expected 
to obtain predictable shapes from AP- 
PLE’S procedure using hand-methods 
for creating shape tables, considering 
the inherent problems posed by the zero 
up-vector. 


THE PROGRAM(S) 


Three programs were written to im- 
plement the computer-guided formula- 
tion of a shape table: A) a shape file in- 
itialization program (Figure 5); B) a 
shape creating program (Figure 7); C) a 
shape display program (Figure 8). These 
will be discussed briefly. | hope that the 
folowing discussions coupled with the 
comments scattered through the pro- 
grams will enable you to follow the pro- 
grams without difficulty. 


h 


Plotting 38-bit Decimal 
Vectors Codes Equivalents 
i: 000 0 | 
ay 001 i 
t 010 2 
t¢— 011 3 
} 100 mM 
o—~} 101 5 
i 110 6 
<-— 411 7 


Fig. 4: Representation of Plotting Vectors as 3-bit Codes and 


decima! equivalonts 
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2°N Bytes 


First Shape 





Fig. 5: Memory Map for Shape Table 


Shape File initialization 


The principle shape-creating pro- 
gram requires a previously allocated 
disk file for shape table storage. The in- 
itlalization program (Figure 6) creates 
the disk file and also establishes the 
name and length of the file. The program 
allocates space for the shape table 
directory based on the number of 
shapes to be stored in the file, a number 
that is declared by you during initializa- 
tion. The memory map for a shape table 
is stored in the first byte of the tabie; its 
maximum value is therefore 255, and 
this is the maximum number of shapes 
that can be stored in one shape table. 
The directory contains addressing infor- 
mation that allows random access to 


any shape in the table. 


The directory falls between the first 
byte of the table and the beginning of 
the first shape. The amount of space 
allocated to the directory is determined 
by the number of shapes ultimately to be 
stored in the table; each shape requires 
two byte in the directory for addressing. 
The shape tables themselves may be 
any length, up to a total length consis- 
tent with the 15 x 15 matrix in which the 
shapes are created. The shape tables 
are stored end-to-end as they are added 
to the file, each shape determining in a 
zero byte as end-of-record mark. The 
layout of the shape file requires that any 
tables added to the file be accurateiy 
done, because once a table is buried in 
the file, it cannot be simply replaced 
unjiess the replacement has precisely 
the same length. 


The file initialization program is 
also used for creating the cursor re- 
quired for mapping shapes on the 
15x15 working grid produced by the 
principal program. This relieves the user 
of the need to generate the cursor 
himself everytime he opens a new shape 
fite. The cursor is stored as the first 
shape in the shape file, and the shape- 
creating program assumes that the cur- 
sor has already been stored for its use. 
As a consequence of this arrangement, 
you must remember that the user- 
generated shapes start with the second 
shape tabie in the file. 


Although the file initialization pro- 
gram zeroes out all of the bytes in the 
directory, there is no substantial reason 
for doing this, except that the string of 
zero bytes make it easy to determine 
where the directory ends and the shape 
tables begin in a memory dump. This ad- 
vantage wiil last only until the directory 
is filled. 


The Shape Creating Program 


The BASIC program (Figure 7} that 
enables shape generation requires the 
use of duai floppy disks, but can be easi- 
ly changed for single floppy use by 
replacing “D2” in step 110 by “Dt.” 
{Similar adjustments will have to be 
made in the initialization and display 
programs, which store and access the 
shape file from disk D2). Tape users will 
have to replace disk I/O by suitable tape 
1/0 in steps 100, 110 and 1360. 


The program loads a pre-existing 
shape file (created by the initialization 
program, if necessary) from disk, using 
the shape file name supplied by you on 
request from the program. The file is 
loaded into a memory focation which 
you are also asked for by the program. A 
check is made {step 220) that there is 
room in the shape file directory for 
another entry. If not, you will be so advis- 
ed and the program wiil abort. A pointer 
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to the shape file required by the APPLE 
system is set up in step 260. The 15 x 15 
plotting grid is turned on (steps 300-330) 
and you will be asked to input the star- 
ting grid coordinates for the shape. 
Note, these are grid coordinates and not 
screen coordinates that are asked for. 
The cursor will be displayed on the 
center of the grid square that you have 
just selected as the starting point. Some 
user helps are displayed in the text area 
under the grid (steps 410-440), and you 
are off and running. Manipulation of the 
R,t,0, and U keys will move the cursor in 
the appropriate directions. The REPEAT 
key will work with these commands. 
Pressing the P key will plot a small circle 
inside the square in which the cursor 
currently resides, and this plotted point 
will become part of the shape tabie be- 
ing built in memory. An image of the cur- 
sor will persist in the initial square—as a 
“negative” image if you happened to 
plot at that square. The persistent cur- 
sor image serves as a reminder to you of 
the iocation of the start of the shape. 
The cursor is made to disappear and 
reappear in adjacent squares as you 
press the move keys by XDRAW com- 
mands at steps 500 and 530; the iF state- 
ment at step 1040 in the subroutine that 
draws the plotting circie is responsible 
for keeping the persistent image of the 
cursor at the starting square. The flag, 
FLAG, that appears in step 480 and 
efsewhere is used to atlow the cursor to 
be turned off in a plotted square and to 
be turned on again when the cursor 
moves to the next square. 


Keystrokes are recorded in step 
570. A previous step (550) saves the 
previous two keystrokes in KIS and 
KSVE$. The former record, KIS, is re- 
quired to allow the erase feature, con- 
trolled by the E key and discussed 
below. KSVE is needed for proper 
generation of plot-then-move 3-bit 
codes, also discussed below. interpreta- 
tion of a keystroke takes place in steps 
590-710, a sequence of IF’s called a 
sieve. This particular form of key screen 
was chosen because it gives almost 
complete protection against inadvertent 
entry of incorrect keys. Once you are in 
the program, you will find that the 
keyboard is effectively locked out for all 
keys except those required by the pro- 
gram. If a non-applicable key is pressed, 
the sieve eventually routes the program 
through step 710 back to another key ac- 
cess at step 570. inside the sieve, when. 
a keystroke has bee identified as a move 
command (L,R,U,D), the appropriate X- or 
Y- coordinate adjustment is made and 
the decimai value of the 3-bit code ap- 
plicable to the move is stored where the 
variable KSVES$ is checked to see if the 
previous keystroke was a Plot com- 
mand. If it were, SYMBOL is_ in- 
cremented by a 4 (remember Figure 47), 
and SYMBOL is then transmitted to the 
byte assembly area, more of this later. 





if the current keystroke cor- 
responds not to a move command, but to 
a Plot command, the program sets the 
cursor disable flag, FLAG, calls the plot 
subroutine and then branches back to 
get the next keystroke (ail of this is done 
in step 680}. The Quit command forces a 
branch to a routine that closes out the 
current byte (starting at step 1080), adds 
a record mark (step 1170) and draws 
thew completed shape (step 1170). At 
this juncture, you are asked a series of 
questions, the answers to which will 
allow you to: 


1) forget the current shape and go 
back and try again without re-accessing 
the current shape file from disk; 

2} keep the current shape, update 
the shape file directory and start a new 
shape; 

3) forget the whole thing—add no 
new shapes to the file and quit; 

4)load an updated shape file to 
disk and quit. 


These alternatives will help you to avoid 
‘illing up the shape table with unwanted 

— shapes, and allow you to experiment 
without being forced to save all of your 
experiments. 


The closing out of the current byte 
preparatory to ending the current shape 
Gefinition (step 1080) poses a problem if 
the last keystroke is a Plot command 
because a P command alone does not 
generate a vector. There is nothing to 
Store after a final P command, unless it 
is followed by some sort of move. The 
probiem is handied in steps 1100-1140 by 
adding an arbitrary up-move after a final 
Piot command to generate a plot-then- 
move-up vector. (Note that in the iilustra- 
tion Figure 2, the concluding vector is a 
plot-then-move-down. This was done for 
the sake of clarity in drawing only. The 
point is mentioned in case some 
unusually perceptive reader notices that 
the foregoing description does not tally 
with the example in Figure 2}. The final 

stor is either added to the current 
“vyte, in which it will appear as the only 
entry. if the Jast keystroke prior to clos- 
ing the current shape table is anything 
other than a Plot command, the current 
byte can be closed out immediately 
without further ado. 


The erase command has “the very 
limited capability of erasing the jast Plot 
command only. As discussed before, a 
Plot command alone does not result in 
formation of a vector until it is followed 
by a command. Therefore, if a Plot com- 
mand is issued in error and no move 
command follows it, no vector will be 
generated and the shape table remains 
unchanged at this point. It is therefore 
possibte to undo the Plot command 
simply, without the complication of 





analyzing the tast byte for returning to 
the state that preceeded the mistaken 
command (and it would be 
complicated!!). At the point at which the 
Pfot command is mistakenly issued, 
KSVES$ has a certain value. If we wish to 
go back to the condition prior to the 
mistaken Plot command, we must 
restore that value to KSVE$ so that when 
the correct command is issued it is pro- 
‘perly interpreted when KSVES is examin- 
ed subsequently. The character required 
for this purpose lies waiting in Ki$. Thus, 
the erase command loads this previous 


vatue into KSVE$ and “unplots” the in- - 


correct plotting circle by re-piotting with 
the color “black” (HCOLOR=0 in step 
720). Note that because of these limita- 
tions, no plot command can be undone 
after a move has heen made. 


Byte assembly using the 3-bit codes 
(stored currently in SYMBOL) occurs in 
780-980. The variable CYCLE keeps track 
of the number of 3-bit codes entered into 
the current byte (called BYTE in the pro- 
gram). After the second 3-bit code is 
loaded into BYTE (step 820) a check is 
made (step 840) to see if the byte is less 
than 8; if it is, we Know that the byte con- 
tains an unrecognizable move-up vector 
in the feft five bits. In that case, a dum- 
my move-right 3-bit code is inserted into 
the byte, the byte is stored (step 860) and 
a new byte is formed consisting of the 
required move-up (000) followed by a 
dummy move-left (110) to compensate 
for the dummy move-right. The resulting 
byte contains the bit string 0001 1000, 
decimal 24, generated in step 880. 
Statements 950-980 take care of the 
cases in which the third 3-bit code is a 
plot-then-move code or a move-up only 
code, which require that the current byte 
be stored, and the current 3-bit code be 
loaded into the next byte. 


The Display Program 


It is likely that your disk or tape will 
be replete with shape files tailored to 
various uses, now that creating shape 
tabies is so easy. A convenient display 
program will become essential in order 
to find out which shapes are stored 
where. The display program that ac- 
complishes this (Figure 8) is an example 
of how shape files may be used is a pro- 
gram. The program constructs a 6x6 
grid on the high resolution screen and 
displays one shape per grid cell. To iden- 
tify the location of the shapes in the 
shape table, each occupied cell carries 
the shape index in the upper teft-hand 
corner. The numerals required for plot- 
ting these indices are extracted from a 
shape table called NUMERALS that you 
will have to create at storage location 
20000 (decimal) by means of the shape 
creating program. The numerals are 
restricted to a 5x7 grid, and are format- 
ted as illustrated by the example in 
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Figure 1. Sufficient space is reserved in 
the display squares to accomodate 
three-digit numerals from 1 through 255. 
“Aha,” you ask, “how can 255 shapes be 
displayed in a 6x6 grid?”’ The program 
provides for paging through the shape 
table, 36 shapes at a time. The paging is 
activated by hitting any alphanumeric 
key on the APPLE keyboard. 


The display program opens by get- 
ting the shape files that it needs—one 
for numerals (step 50) and the table to be 
displayed (step 90). Pointers to the 
tables are setup (steps 70 and 120). 


‘Starting at step 180, each shape | is ac- 


cessed in a FOR...NEXT jioop. A grid- 
specific index is caiculated (step 190) by 
taking the current shape index | modulo 
36(step 190). For the first shape in each 
group of 36 (! modulo 36 = 1}, the screen 
is cleared (step 240) and the 6 x6 grid is 
displayed (steps 250-330). The row and 
column positions for the I—th' shape in 
the grid are found (steps 360, 370). The 
shape index is “unpacked” into its 
separate digits (steps 380-410} and these 
digits are plotted in the correct grid cell 
in the upper left-hand corner (steps 
430-480). The NUMERALS shape table is 
accessed in step 420 by placing the 
pointer to the NUMERALS shape tabie in 
(decimal!) addresses 232 and 233, so that 
subsequent DRAW commands will refer 
to this table. In similar fashion, when the 
shapes to be plotted are required, the 
address of the shape table must be 
entered into addresses 232, 233. This 
program illustrates how any number of 
shape tables may be used inside a pro- 
gram simply by supplying the correct 
pointers at the time that shapes are to 
be DRAWn or XDRAWn. 


Parting Words 


The 15x15 grid used for shape 
creation is the largest practical size for 
the APPLE screen with space provided 
for text. A jarger grid can be accomodat- 
ed by eliminating the text area, but this 
will compromise the required starting 
coordinate input. However, the number 
of cells could be increased by decreas- 
ing ceil size and using a smaller plotting 
figure. If you try this, it is convenient to 
select a plotting grid with odd numbers 
of X and Y segments so that the central 
plotting area falls on a grid square and 
not at the intersection of two grid tines. 
This is of help in centering shapes. 


You shouid atso be aware, if it is not 
obvious by now, that the location of a 
shape on the grid has no bearing on 
where it plots in high resolution 
graphics, except with regard to the in- 
itial point of the shape, which alone 
determines justification. You may use 
any convenient subsection of the full 
grid for plotting, and it does not nave to 
be the same subsection for each shape. 
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& Shape File {nitlalization Program 
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7: Shape Creating Program 


18 PRINT Tae, & 63 “YEEYCREATE A 
SHAPE TABLET Hts" 

28 PRINT 
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A HIRES Graph-Plotting 


Subroutine in Integer BASIC 
for the APPLE II eo 





A BASIC subroutine is presented which permits HIRES 
graph plotting. It includes X and Y axes generation with 
scale markers as well as the plotting of user specified 
points. This will make it easy to display the results of a 
variety of problems, functions, correlations, etc. 


Nene eee reece eee Tay 


The article entitled APPLE I! High 
' Resolution Graphics Memory Organiza- 
tion, foung in MICRO 7:43 by Andrew H. 
Eliason is of tramendous value to those 
who wish to plot ia HIRES graphics. The 
following graph plotting subroutine 
utilizes formulae given in this article. 


Referring to the listing on being 
called by the GOSUB 9000 statement in 
the main program, the subroutine first 
clears page 1 of HIRES graphics 
memory at line 9023. This is quite a time- 
consuming process and the Impatient 
experimenter may care to replace this 
line with a CALL statement to an 
equivalent machine tanguage sub- 
routine. | have actually tried this and 
found that it reduces the time execution 


for the complete plotting routine by ap- 


proximately haif. 


Having set the graphics and HIRES 
modes in line 9060, the routine then pro- 
ceeds to plot the X and Y axes. Scale 
Markers are placed at 20-point intervals 
along the two axes. 


The final stage in the subroutine in- 





volves the plotting of the points. The 
magnitude of these points are stored in 
matrix GPH which is dimensioned for 
279 elements in the main program. Only 
values GPH(X) between 0 and $1 in- 
clusive can be piotted. 


As you may recall, the display area 
of HIRES graphics is a matrix comprised 
of 280 horizontal by 192 verticat points. 
The subroutine fetches elements of 
GPH, does the necessary caicutations, 
and outputs the results on the screen. 
To prevent the disfigurement of the two 
axes, | have avoided the plotting of 
points less than one byte away from the 
Y-axis and on the X-axis itself. 


For successful application of this 
graph piotting subroutine, observe the 
following rules: 


a) Only an APPLE I! with a 
minimum of 16K bytes of 
memory can be used 


b) Ensure that the main pro- 
gram contains the statement 
DIM GPH(279). 
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c) Only values of GPH(X) such 
that 0 GPH{X) 191 where X 
tanges from 0 to 279, in- 
clusive, will be piotted. 


ad) Set HIMEM:8191 to restrain 
intrusion into page 1 of 
HIRES graphics memory. 


Here are two short programs 
demonstrating the performance of the 
high resolution graphics-plotting 
subroutine. 


10 DIM GPH(279) 
20 FORI=0 TO 279 
30 GPH() = RND(191) 


40 NEXT ! 
50 GOSUB 3000 
60 END 


10 DIM GPH(279) 
20 FOR 1=0 TO 279 
30 GPH(I) = 1/2 — 30 
40 NEXT } 

50 GOSUB 9000 


LIST 
9000 REM * 
9001 REM * HIRES GRAPH-PLOTTING 
9002 REM # SUBROUTINE 
9003 REM # 
9004 REM * BY R.S.K. FAM 
9005 REM * 26/4/79 
9006 REM * | 
9007 REM # DATA IS STORED IN GPH(X) | 
9008 REM * CONSISTIJG OF 200 POINTS 
9009 REM * 0 <= GPH(X) <=191 | 
9010 REM * | ! 
9011 REM # SET HIMEM:8191 ? 
9012 REM # 3 7 
9020 REM * 
9021 REM # CLEAR SCREEN 
9022 REM * 
9023 FOR I=8192 TO 16383: POKE I, 

QO: NEXT I _ 
9030 REM * 
9040 REM # SET HIRES MODE 
9050 REM * 


9060 POKE -16304,0: POKE ~16297, 
0: POKE -16302,0 

9140 REM #* 

9150 REM * PLOT Y-AXIS 

9160 REM #...0 . wee ee 

9170 FOR LV=0 TO 191:PTs1: IF (LV+ 
9) MOD 20=0 THEN PT=7: POKE 
(LV MOD 8#1024+(LV/8) MOD 8 
#128e(LV/64) #40+8192),PT: NEXT 
LV 

9200 REM #* 

9210 REM * PLOT X-AXIS 

9220 REM # 

9230 PT=0: FOR LH=0 TO 279: IF LH MOD 
20<>0 THEN 9240:PT=PT+1:.bOR 
MK=1 TO 2: POKE LH/7+16336-= 
(10248#MK),64/(2 ((PT+5) MOD 
7))}: NEXT MK: GOTO 9242 

9240 POKE LH/7+16336,255 

as 9242 NEXT LH . 

9260 REM # 

9270 REM * PLOT POINTS 

9280 REM # 

9290 FOR LH=8 TO 279:LV=191-GPH( 
LH): IF LV<O OR LV¥>=191 THEN 
9330 

9310 BV=LV MOD 8#1024+(LV/8) MOD 
8*128+(LV/64) #4048192: POKE 
LH/7+BV,2 (LH MOD 7) 

9330 NEXT LH: RETURN 
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APPLE Il Hires Picture Compression 


(on a PE ET I 
Every APPLE owner is aware of the wonderful pictures | 


that can be made with the HIRES graphics. A very in- 
teresting technique is presented which allows greater 
efficiency in enceding picture.information, and which 
leads to some additional special effects. 

(a ph ea a a PS 


Almost every APPLE Ii owner has, by 
now, seen examples of how the APPLE II 
can display digitized photographs in its 
HIRES graphics mode. These images 
consist of 192 x 280 arrays of dots ail of 
the same intensity. By clustering these 
dots into groups (such as in “dithering”), 
it is even possible to produce pictures 
having the appearance of shades of 
gray. Several “slide shows" of these 
kinds of pictures have been created by 
both Bill Atkinson and myself and are 
available through various sources, such 
as the Apple Software Bank. A typical 
“stide show’ consists of about 11 pic- 
tures on a standard 13-sector disk. Why 
only 11 pictures? Because that's about 
alt that will fit on a 13-sector disk. 


Each HIRES picture must reside in 
one of the two HIRES display areas 
before it can be seen. The first area, 
‘2000-$3FFF, is called the primary 
‘display buffer; the second area, 
$4000-S5FFF, is calied the secondary 
display buffer. [t is obvious that each of 
these display areas are. 8-K bytes long. 
Consequently, HIRES pictures are usual- 
ly stored as 8-K blocks of data, exactly 
as they appear in a display buffer. But 
do they have to be stored that way? 


If you look closely at a HIRES picture, 
you can almost always detect smail 
regions that look very similar to other 
smail regions elsewhere in the picture. 
For example, HIRES displays usuaily 
contain regions of pure white or pure 
black. In the case of dithered pictures, 
tha illusion of gray may be caused by 
micro-patterns of dots that are similar to 
other gray patterns somewhere else. 
Clearly, HIRES pictures tend to contain 


a lot of redundancy. If there was some 
way of removing this redundancy then it 
would be possible to store HIRES pic- 


tures in fess than the customary 8-K 


bytes of memory. 


Suppose we were to divide the display 
into smail rectangular clusters, each 7 
bits wide, by 7 bits high. Then a picture 
would consist of 24 rows of these pic- 
ture elements (“pixels”), with 40 of them 
per row. (Note the resemblance to the 
APPLE II's TEXT mode of 24 tines, 40 col- 
umns per line!) The total number of pix- 
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els that would be needed to define a 
HIRES picture would then be 40 times 
24, or 960. However, not all 960 pixels 
would be unique if there was redundan- 
cy in this picture. 


To try out these ideas, | used Atkin- 
son’s LADY BE GOOD picture (from the 
Apple Magic Lantern — Slide Show 2) 
shown in Figure 1, and wrote a program 
to extract all the different pixels. | found 
that only 662 of the 960 pixels were uni- 
que. This meant that almost one third of 
the picture was redundant! 





Figure 1: (Max errorsipixei =0) 


121 








Figure 2: (Max errorsi/pixel = 3) 


The next question that came to mind 
was: of the 622 unique: pixels, how ‘uni- 
que’ were they? Was it possible that 
there might be two or more pixels that 
were almost the same, except for maybe 
one or two dots that differed? If so, then 
it could be possible to regard these as 
being identical ‘for all practical pur- 


poses’ since the error in the resulting - 


picture would hardly be noticed. 


To examine this possibility, | modified 
my program to extract only those pixels 
that differed by more than a specified 
MAX ERRORS/PIXEL. Tabie 1 shows the 
resuits. If we allow, at most, 1 dot to be 
wrong in any one pixel, then we need on- 
ly 492 pixets to define the picture, which 
is only about half of the original 960 pix- 
els! As we allow more and moré errors 
per pixel, the number of pixels required 
to reconstruct the picture decreases ac- 
cordingly, until we reach 28 errors/pixel. 


At this point we are allowing half of the 
dots to be wrong. Since total black and 
total white are always included in every 
pixel set (to prevent black or white areas 
from becoming dotted), pictures with 
MAX ERRORS/PIXEL greater than or 
equai to 28 can always be composed of 
no more than two pixels, namely the 


black and white pixets. 


Suppose we now try to reconstruct the 
original picture from our extracted pixel 
set. Clearly, the fewer pixels we have 
available for synthesizing, the poorer the 
result will be. Figures 2 through 5 show 
the results of synthesizing LADY BE 
GOOD with MAX ERRORS/PIXEL of 3, 7, 
14, and 28, The number of pixels used in 
each case was 245, 75, 15, and 2, respec- 
tively. Notice that the difference in quati- 
ty between Figures 1 and 2 is not ail that 
objectionable. The advantage that Figure 
2 has is that it can be stored in less than 





Figure 3: (Max errors/pixel = 7) 
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3-K bytes of memory! (245 pixels at 8 
bytes/pixel, plus 960 bytes to define 
which pixels go where.} 


Thus it is clearly possible to store an 
8-K HIRES picture in considerably less 
than 8-K bytes, if you are willing to ac- 
cept a littie loss in the image quality. By 
using this principle, | have produced a 
“Super Slide Show” containing 33 pic- 
tures on a single disk. (Copies may be 
obtained from Apple’s Software Sank.) 
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The Compression Program 


Listings 1 and 2 show the compres- 
sion routines (and some associated data 
tables), and require an APPLE II with at 
least 32-K bytes of memory. The routines 
consist of two basic parts--the 
“analysis” portion, and the “synthesis” 
portion. 


The analysis routine (S$OB00) searches 
the primary HIRES display buffer 
($2000-$3F FF) and compares each pixel 
there with the pixels in its own current 
pixel table (which starts at $0600) look- 
ing for a “match”. if it finds a pixel in the 
table that matches to within the 
specified MAX ERRORS/PIXEL {location 
$10), it calls a match and proceeds to the 
next pixel in the picture. If it fails to find 
a match, it adds the pixel to its current 
pixel tabte and then proceeds. 


The synthesis routine ($0B80) works in. 


the other direction. It first compares 
each pixel of the primary buffer with 
each pixel in the pixel table to find the 
best match. It then places this pixel in 
the corresponding location in the secon- 
dary HIRES buffer, thus synthesizing the 
best approximation to the primary pic- 
ture as it can by using the pixels in its 
pixel table(Since the analysis routine 
doesn't know where its pixel tabie 
originated, it is possible to synthesize 
one picture from another picture’s pix- 
els! The result is usualiy surprisingly 
good.) 


The routines are very easy to use. 
Simply foad the picture to be compress- 
ed into $2000-$3FFF, set MAX ER- 
RORS/PIXEL into $10, and then call the 
routine at. $0800. When the routine 
returns, locations $07 and $08 contain 
the number of extracted pixels in the 
form: NUMBER = 1 + (contents of $07) + 
40° (contents of $08}. 


To synthesize the picture from the ex- 
tracted pixels, simply call the routine at 
$0B80. When the routine returns, the 
reconstructed picture will be in the 
secondary HIRES buffer ($4000-$5F FF). 


if you have a 48-K APPLE and a disk, 
you can use the BASIC program shown 
in Listing 3. This program calis the com- 
pression routines (Listings 1 and 2) in a 
more user-oriented way so that they are 
even easier to use. The program displays 
a menu of options that let you: 


L—Load a picture from disk into 
the primary HIRES buffer 
1—Display the picture currently in 
the primary HIRES buffer 
2—Dispiay the picture currently in 
the secondary HIRES buffer 
A—Analyze the primary picture 
{create the pixel tabie.) 
S—Synthesize the primary picture 
using the current pixel table. 
D—issue disk commands. 





X—Transfer the compressed 
picture to disk drive number 2. 


None of the selections require you to 
hit RETURN; just hit the corresponding 
character. When specifying “L”, the pro- 
gram will ask you forthe name of the file 
to be loaded. When specifying “A”, you 
will be asked for the minimum error per 
pixei that you wiil allow. (This does re- 
quire a RETURN.). The “D" command 
will give a colon (:} as the prompt 
character and wil! allow you to issue 
disk commands. It will continue in this 
mode until you give it a null command 
(hit RETURN) at which time it will return 
to the menu. The “X” command saves 
the compressed picture (960 bytes) and 
its corresponding pixel table (up to 2K 
bytes} onto a disk file. (I will leave it up to 
the interested reader to figure out how 
to “un-compress” this data.) 


? 
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Conctuding Remarks 


White the methods in this paper work 
pretty well, they may not represent the 
optimum way of compressing APPLE Il 
picture data. For example, my choice of 
7 x8 dot pixels was somewhat arbitrary. 
is it possible to get better compression 
ratios by choosing smaller (or larger) pix- 
al sizes? 


Another interesting question is: Given 
a picture that was reconstructed froma 
given set of N pixels, is it possible to find 
another set of N pixels that gives a bet- 
ter result? 


| hope that these unanswered ques- 
tions will help motivate someone else in- 
to joining the investigation of HIRES pic- 
ture compressing methods. 
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BUILD PIMEL TASLE 


BILD JSR INIT 


LGR 6H 
STR CHAT 
STR RT 
{oR Bt. 
STR *ZRT 
LOR 8S 
STA #270 
PLUP LDA BB 
STA *XTO 
STA *YTR 
LUPE JSR COMP 
LOR *ERR 
CMP #°C0R 
BCS GOCE 
LOA *XTO 
CMP *XMAX 
BNE NEXT 
LDA *YTO 
CMP FAX 
BEQ OVER 
NEXT JSR NUTO 
BNE LUPE 


OVER JSR NUTO 
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BEG, ATHY BBFR SEND LOR *XTIAE dizt 46 i4cn me 


mens Sse =| BSE STA *¥AT 1325 38 14a Ti 

BED? ase | BooH Lp #vTKe 4426 48 448 PHS 

Agi ASae Baya STA «PT 442? 2osii iden JSR PREF 
Bene fod? = aaie LOR 82 dich Ag 14?e LEA 8 

aepo ese | gaa STA #270 oe a STA MECLR 
BEDE sea? BoUR JER STOR A426 Adge | 1498 CLUP LOY SxRy 
ABE? 2enei4 §o46 JSR MOVE 4438 B1eC | 1Sbe LDR CAT 37 
_ EES 2EF1@@ age JER HUTO 4432 Ages ibe Loy wate 
BEES ASA4 ACE LoA +4 'TD 4434 S486 1528 FOR (TO oY 
BEEA cate = 8978 CMP 48 1436 237F | daaR AND fF 

ABEC Dee 8nse BNE RLUP dase Ab 1540 TAY 

BREE 4C2AFE 8a98 IMP BELL 4439 BOHBLA 1508 LOR BITS. ¥ 

1603 4430 6586 i560 ADC *SCOR 

BEFA Ee@s 1810 RUTO INC *XTO LA3E S3be = fort STA SCOR 
OBE2 REB2 1823 LO «NTO 4446 ADS i068 LOR *AT +84 
BFS CHS 1928 CMP 2e 4442 6964 1500 ADC 84 

MBE? pane 4p40 PNE RET 4144 Ssed 4688 STR *AT +64 
BERS Aoee 1658 LDA 88 1446 Acer = {610 LOR STO +84 
BBFE 8583 © 1869 STR *XTO 1448 6984 = fec8 ADL G4 

BBD £6a4 1078 INC *VTO 4448 SSOF 1628 STA *T0 +01 


@EFF 68 4889 RET RTS diac CA 16413 DEX 


@ : | 
4180 :MOVE R PIXEL 1i4F 68 1668 PLA 
4440 : FROM XAT, VAT, ZAT. 1458 AE 1678 TRY 
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115! 
1422 
1133 


1154 
1156 
4197 
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1168 
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1166 
116 
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e428 
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4a 


2198 
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2228 


e258 


PREP 


INIT 


PLA 
TAX 
RTS 


LER *ZAT 
ROR 

ROR 

ROR 

RUR 

AND 68 
STA *AT 
LDA *2TO 
ROR 

ROR 

ROR 

ROR 

AMD 68 
SIR Ie 
LDR VRPT 
PSL 

et 

TRY 

LOR HGRL & 
STH *HT 

LOR HERE, X 
ANE: IF 

ADC *AT +64 
STA FT +i 
LDR TO 

ASL 

RSL 

Ast 

TRY 

Lon HGRL of 
STR ¥*TO 

LER HGRH, & 
PAD UF 

APC *7O +8 
STR #10 +94 
LOM OE 

RTS 


JSR FBCCK 
LOA rr 

STA $6203 
STA $6421 
STA $60u4 
STR FECu4 
STR $7sAd 
STA $7481 
STA $7884 
STA $P7CRL 
LOR @8 

STA YMRX 
LDA 84 


+24 


+81 
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VITR 
eft 
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as 
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STR *XIN 

LDA *¥TO 
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436 PRINT : PRINT " OL 
RE FRoutt DISK" 

448 PRINT A 
CTURE INTO PIXELS" 

458 PRINT : 


- 


468 PRINT 
IGINAL PICTURE" 
478 PRINT 

NTHESI220 PICTURE® 
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Ze 
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- LORD PICTu 

~ ANALYZE PI 

PRIN]? 5 = SYNTHES 1 Ze 
PIC TURE FROM PIXELS" 

SPRINT a= DISPLAY OR 

2 - DISPLAY SY 


PRINT 


PRINT " 


PRINT : PRINT" D - ISSUE SISK 
COMPRES" 

PRINT : PRINT © XX - SAVE CoMee 
ESclh PICTURE Th pre" 

WTR 23: PRINT "SE LECTION: " 
fel aie fs REVERT 

Spice EYER (96284) 

IF cupieca2e THEM ode 

PoE -teseerte, & 

{fies 


TE Chee ASCE THEM: [Oat 
IF Chae RECC"AN) THEM Mee 
IF cupg= poretg") THEM Tls2 
TF Che: AGC ME" > THEM psd 
YP cHeaRs BSCS" THEH a 
IF cues POCO THEM [bet 
IF foeit= RCM") THEE Wee 
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Define HI-RES Characters 
for the APPLE Il 


This program makes it easy to generate and modify 
HI-RES characters on the APPLE Il. 


The user contributed library of pro 
grams, Volumes 3, 4, and 5, recently re- 
leased by the Appie Computer Company, 
contains a machine language routine for 
generating characters using the HI-RES 
features of the APPLE li. The package 
also includes a character tabfe that con- 
tains 128 predefined characters. 


The characters are represented in the 
table in a coded, reverse image format. 
“he code is based on a7 by 8 dat matrix 

spresentation for each character. The 
format for an “tL is depicted below. 
Note that a border is left at the top and 
side so that characters wilt be separated 
on the screen. t 


Note that the dot matrix must remain 
intact, and must contain only dots and 
asterisks. The command to store the 
character, the CTRL S, must be entered 
after the matrix, on the ninth line. A 
carriage return is required after each 
command. 


3 REM 


Robert F. Zant 
Department of Accounting 
and information Systems 

North Texas State University 
Denton, TX 78203 


At the beginning of the run, the operator 
specifies the table position (0 to 127) for 
the first character to be defined. There- 
after, characters are automatically 
stored at succeeding locations in the 
table. Separate runs of the program can 
be used to define characters in non- 
contiguous table locations. 


SG REM ASSUMES CHARACTER TAELE 


TO FEM BEGINS AT #5500 
20 FEM 
oy REM 


100 TEAT CALL -956 


200 VYTRE 5S: PRINT "ENTER CECINAL EQUIVALENT” 


306 PRINT "OF FIRST ‘ASCII’ 


CHARACTER" 


356 PRINT “<MAK IMUM VALUE OF Ler>” 


400 INPUT 8 


vavwees 425 IF 6>=0 AND 8<128 THEN 450: PRINT "RE-ENTER": GOTO 480 
ee $50 B= 26524+64+3 . . 
eT i 560 CALL -9565 
saieeas es Sod PRINT "CHANGE THE COTS IN THE FOLLOWING MATRIW" 
wexeens 7AG PRINT “TO ASTERISKS TO DESCRIBE H FIGURE. " 
Riseets 7S PRINT "USE “ESC **. “ESC 0%, ‘=7" ANG ‘-° TO ebiTt * j 
eaages. TTS FRINT "CLEAVE COTS THAT ARE HOT PEPLACED, 2" 
eoeeces QAO PRINT "ENTER A ‘CTRL 3° TO STORE THE FIGURE. “ 
a0 PRINT "ENTER A “CTRL Q’ TO QUIT." - 
The coded table entry is derived from the Lend REM PRINT MATRIN 
format by substituting a zero for each 1198 YTRB 3 
dot and a one for each asterisk. Each Lote FOR f-8 TO 7 
line of the matrix is thereby coded into 1200 PRINT "....... " 
one byte. The high order bit is set to zero - {ee NEAT I 
in each byte. Eight bytes are required 1598 VTHG 2 : 
to encode each character. The code for 2008 REM GET INPUT CHARACTER 
the “L” depicted above would be 2100 CALL -s8or 
zone IF PEEK <Si2><2147 THEN 32080 
02, 02, 02, 02, 02, 42, 7E, 00 2700 IF PEEK <S12>"2145 THEN Sone 
= 2500 GOTO 2889 
The foliowing program assists in defin- 2900 REM ENCODE CHARACTER 
ing characters and substituting them T0509 A=B: REM SAVE SEGINNING OF CHREACTER 
into the character table. Each character T1000 FEM LOOM THRU MATTED 
is defined in a reguiar dot matrix format, 2200 FOR I=1i54 TO 1960 STEP 12s 
rather than in reverse image. The pro- E250 20 
gram automatically calculates the binary SSag FOR J=6 TO 6 
code for the equivatent rotated version. 740% IF PEEK <I+J>=174 THEN 2700 
The letter “L” wouid be entered as: “Seo IF PEEK <1+J9<c470 THEN 40nd 


T6008 C=C+2 ~ J 
Z7Tan NEWT J 


- eae [300 PUKE &, 7:8=0+L 

aw zeng NENT IF 

ge 3S42tG GOTO Lene 

es telas 40009 REM ERROR IM MATRIA 

Pedi 410% YTAB oy 

ee 3200 PRINT “MATRIC CONTAINS INVALID CHARACTER" 
wenere 4250 PRINT “RE-ENTER” :6=4 

Jiwewes 4atog FOR [=4 TO 1000: MELT I 


4490 YTAS 20: CALL -353 
4500 GOTO Loa 
$000 ENO 








An EDIT Mask Routine in Applesoft BASIC 





This article describes some techniques for producing 
formatted output using Edit Masks. The programs permit 
you to produce professional looking output. 





My work as a professional programmer 
in business applications has often called 
for the use of what are cailed “edit 
masks”, in such languages as COBOL, 
DIBOL, and the Commercial Subroutine 
Package of Data Generali FORTRAN. | 
have found the edit mask capability in 
these languages quite useful, and so | 
decided to write a routine in Applesoft 
Basic that | could use at home on my Ap- 
ple Jl, 


i should begin by first giving a brief ex- 
planation of what an edit mask is, for 
those readers who have never en- 
countered the term before. An edit mask 
might be defined as a string of characters 
which specify operations on a number so 
as to produce an output string that con- 
tains the number’s digits re-formatted for 
printing in certain specific ways. Some of 
the most common operations that can be 
carried out on any given number by 
means of edit masks are the following: (1) 
“suppressing” of zeroes, by replacing 
them with blanks in the output string, (2} 
inserting of a decimal point in a fixed 
position of the output string, (3) inserting 
of comma in the string to express 
thousands, million, etc., (4) placing a 
doilar sign before the leftmost digit of the 
number string, and (5) appending a minus 
sign to the end of the string if the input 
number is negative. 


The edit mask is used as a sort of “pic- 
ture" of what the output string should be 
like after carrying out operations such as 
the above on the number to be edited. in 
order to achieve this, there are defintie 
tules for the edit routine's interpretation 
of the characters that make up the mask, 
Perhaps the best way of explaining this is 
to giva some examples of my routine’s 
use. 


The routine itself, on the following 
listing, is contained between line 
numbers 100 to 580. The statements 
preceding 100 are a “driver” routine you 


can use to input your edit mask and 
number to be editied in order to experi- 
ment with various types of editing. 


The editing routine is called by means 
of a GOSUB 100. There are two 
arguments that must be passed to it: 
NUM is the number to be edited, and 
MASKS$ is the edit mask string, NUM can 
contain any number of digits up to 9. | 
have made no provision for editing 
numbers that must be expressed in 
“scientific notation” with an Exponent 
field. : 


The result of the masking will be pass- 
ed back to the caifing program in the str- 
ing OUTS, whose length is the same as 
MASKS. 


There are six specia! characters which 
can appear in MASK$ that are treated ina 
distinctive way: these are the digit 9, the 
digit 0, the period, the comma, the minus 
sign, and the dollar sign. The mask can 
contain other characters also, but more 
about this later. 


The digit 9 is the “numeric replace- 
ment” character. This means, wherever a 
9 is present in the mask, it will be replac- 
ed in the result field (OUTS) by the cor- 
responding digit of NUM, if any, in that 
position. 


Thus, suppose we define MASK3$ = 
“99399”, and assume the number to be 
edited is NUM = 352. Then the result, 
after calling the edit routine, wilt be OUTS 
= “352”. (Note the two blanks preceding 
the ASCII digit 3. This is because the 
jength of the mask exceeds the jength of 
the number to edit by two.} 


Next, the digit 0 is the “zero-suppress” 
character. This means wherever a 0 ap- 
pears in the mask, it wil! be reptaced in 
the resuit field by the corresponding digit 
of NUM only if that digit is not a zero; if 
the digit is a zero, then the corresponding 
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position in the result field wilj be a blank. 


To give an example, suppose MASKS 
= "980990" and the number to be edited 
is NUM = 120563. Then the resuit will be 
OUT$ = “12 563". The zero in NUM was 
suppressed. 


The most common usage of the zero- 
suppress character in a mask is to sur- 
press leading zeroes of a number. Thus a 
mask of 00099" would suppress the first 
three digits of any five-digit number if 
they were zeroes, but would print them if 
they were not. Due to the way my routine 
operates, it turns out that Jeading zeroes 
are always suppressed, anyway. If you 
would rather change this feature of the 
routine, | will describe later how you 
could go about doing so. 


The period in a mask is usually used as 
the decimal point position. it is what is 
called an “insertion character” in the 
mask because it is always inserted in the 
result field exactly in its corresponding 
position in the mask. 


Let’s consider some examples of 
masks containing a period, and what the 
result will be. Suppose our mask is 
“999.99”, and our number to be edited is 
312.44; then, as you would expect, the 
result will be OUT$ = “312.44". Next sup- 
pose we use the same mask but NUM = 
33.6. The result is OUT$ = ‘ 33.60". There 
is a biank in position one and a Zero in the 
last position. (if the last character of the 
mask had been a QO instead of aQ, then the 
fast character in the result would have 
been a blank.) Now, let's suppose that 
NUM = 124.556. In this case there is one 
more digit to the right of the decimal 
point in the number to edit that there is in 
the decimal part of the mask. When this, 
or something similar happens, my routine 
will truncate the extra digit(s), and 
reptace it (them) by an asterisk to signal 


eee ceeds sian, s. 


i 
| 
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ield overflow. The resuit then ig OUT$ = 
424,5° . 


My routine follows a simiiar rule in 
sase the number of digits to the left of the 
fJacimal point in NUM exceeds the 
yumber allowed in MASKS. For example, 


{ NUM = 1256.7, then the result wilt be 


UTS = “*56.70". 


By the way, since it is conceivable that 
you might, either by mistake or be design, 
Include two or more periods in your mask, 
the routine will treat only the rightmost 
period in the mask as the decimal point 
position. All other periods will be treated 
as Insertion characters, and so will ap- 
pear in the corresponding positions of 
the result field as they expected. 


Next, jet’s consider the comma in an 
edit mask. An example of a mask contain- 
ing two commas is the following: MASKS 
= "99,999,999". if your number to edit 
contains either 7 or 8 digits, then the 
result field will contain both commas in 
-the appropriate places, as you would ex- 
pect. However, with 6 or fewer digits in 

{UM, either the first or both commas will 
-o@ suppressed and replaced by blanks. 
Examples: if NUM = 1234567, the OUTS 
= " 1,234,567"; and if NUM = 1234, then 
OUT$ = “ 1,234" (note the five blank 
characters preceding the digit 1); and 
lastly, if NUM = 123, then there will ap- 
pear seven blanks preceding the digit 1: 
OUT$ = " 123". 


Thus we see that the comma is a 
special sort of insertion character which 
is suppressed if there are no preceding 
digits of the number to be edited. 


Now consider the dollar sign used as 
an edit mask character. | have defined 
this character’s usage in a special way. iF 
the dollar sign is the very first character 
in the mask, then it is treated as what is 
called a “floating dollar signt’. That 
means that the dollar sign in the resuit 
field will “float” to the right, far enough 
so as to immediately precede the left- 
most digit of NUM. Some exaples: if 
MASKS = $99,999.99" and NUM = 
_. #1.45, then the result of editing is OUTS 
=" $11.45” (note that there are four 
blanks preceding the dollar sign in the 
result field). And if NUM = 2321, then we 
have this result: OUTS = “ $2,321.00” 
(one blank preceding the dollar sign). 


Please note that | have defined this 
usage of the dollar sign as a “floating” 
dollar sign only when it is the first 
character in the mask. If it occurs 
eisewhere in the mask, then it becomes 
an insertion character. 


The last special usage character ina 
mask is the trailing minus sign. If the 
mask contains a minus sign as the very 
last character, then the rightmost posi- 
tion of the result field will be a minus sign 

‘\ 


when the number to edit is negative, or 
will be- blank If the number is positive. Ex- 
amples: if MASK$ = "99,999.99-" and 
NUM = -1453.62, then the resultant OUTS 
= “ 1,453,62-". While if NUM = 2246.7, 
then we have OUT$ = “ 2,246.70". 


If a minus sign appears in a mask In 


__ any other position, it is treated as an in- 


sertion character. Thus, for example, you 
could format a date, MMDDYY = month, 
day, and year with the following mask: 
MASK$ = “09-99-99”. If NUM = 101479, 
then OUT$ = “10-14-79”. 


You might be wondering what wil} hap- 
pen if you edit a negative number using a 
mask which does not contain a trailing 
minus sign. !t depends upon whether you 
have allotted enough digit positions in 
the mask to accommodate a leading 
minus sign. If you have then the minus 
sign will take the place of the first posi- 
tion containing a nine, zero, or comma 
that immediately precedes the leftmost 
digit of NUM. If you have not allotted 
enough digit positions in the mask, then 
my routine will print the asterisk signal- 
ing field overfiow. 


Now, any character other than the six 
special cases discussed above may also 
appear in a mask. In that case the 
character becomes an insertion 
character. Suppose you define 


MASK$ ="$BAL. DUE AS OF SEPI78: 
99,999.90" 


1f NUM = 1324.57, then the result of mask- 
ing witl be: 


OUTS = “BAL. DUE AS OF SEP/’78: 
$1,324.57" 


From the above example, you can see 
that you are only restricted in using edit 
masks by your imagination, perhaps after 
making modifications to my routine. For 
example, you will note that the year in the 
above mask is '78 not '79. It could not be 
79 because the 9 is a numeric replace- 
ment character and in this case would 
have been blanked out. However, if you 
change the numeric replacement char- 
acter to some other more convenient 
character (perhaps an ampersand?) then 
this difficulty could be avoided. 


As already mentioned, another 
modification you might wish to make is to 
allow outputting of leading zeroes ina 
numeric field if the corresponding edit 
characters are 9’s. To do this, you need to 
make three changes to the routine. 


455 iF I-1 > =i! ANO MIDS 


(MASKS,!-1,1) = 

“9” then 480 
500 IF N$ = "" THEN NS =O". 
525 IF N$ = *"” THEN 460 


When you incorporate this routine into 
your own programs, you may wish to 
change the names of some of the local 
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varlables. used by it in order not to con- 
flict with your own use of the same 
names. So here is a list of alt variables us- 
ed by my routine. 


Varlabies 

MASK$ the string containing the 
edit mask. _ 

NUM the input number to edit 

NUMS NUM converted to a string 

LM iength of MASKS 

LN length of NUM$ 

PM position of rightmost 
decimai point in MASKS (or 
zero if none) 

- PN position of decimal point 
in NUMS (zero if none) 

RM number of digit positions 
right of decimal point in 
MASKS 

RN number of digits right of 
decimal paint in NUMS 

QM number of digit positions 
left of decimal point in 
MASKS 

QN number of digits ieft of 
decimat point in NUMS 

FD% flag telling whether mask 
has floating dotiar sign (1 if 
yes, 0 If no} 

MF% flag telling whether mask 
nas trailing minus sign (1 if 
yes, 0 if no) 

NF% flag telling whether NUM is 
negative (1) or positive (0) 

MS current character of 

_ _ MASK$ being processed 

NS current character of NUMS$ 
being processed 

1 loop variable and tem- 
porary variable 

J pointer to current digit In 
NUM$ 

li first position in MASK$ to 
process 

12 fast position in MASKS to 
process 


One final note: in using the driver 
routine to experiment with various edit 
masks, you should remember that if your 
mask will contain commas or colons, 
then you must enciose the entire mask by 
quotation marks, or eise Applesoft will 
drop part of your mask when it execuces 
the INPUT statement. ; 


Notes on Converting to other Basics 


| am not familiar with any other Basics 
for microcomputers. | do, however, have 
some acquaintance with the Basic 
languages for two mini-computers—the 
DEC PDP-II and the Data General Nova 3. 
With this as background, | have compiled 
the following list of possible modifica- 
tions you might have to make to my 
routine to get it to work on other 6502 
machines other than the Apple. 


1.) Applesoft allows variables to have 
names with more than two characters, 





although only the first two are used to 
distinguish between between different 
names. if your Basic does not alfow this, 
you will have to change some of the 
names that my routine uses. 


2.) Some Basics don't allow multipte 
statements per iine, or if they do, the 
statement separator might not be the col- 
on; two common alternatives are the back 
stash or the exciamation point. 


3.) If your Basic does not have the 
“ON...GO TO” statement, then Jine 
number 85 will have to be replaced with 
something else, perhaps a couple of 
“IF... THEN GOTO...” statements. 

4.) Not aii Basics allow "“NEXT” 
statements which do not specify the loop 
variable to end “FOR” loops. There are 
several lines in my program that may 
necessitate this type of change: 160, 190, 
240, 280, 340, and 550. In al! of these 
cases the implied FOR loop variable is 
v 


5.) You may have to OlMension your str- 
ings in your Basic program, as is true in 
Apple's Integer Basic, but not Appiesoft. 


6.) String: concatenation in Applesoft is 
accomplished with string expressions 
Joined by means of the plus { +) sign; your 
Basic may use the ampersand (&). 


7.) tn comparing strings, Appiesoft uses 
the corabination of less than and greater 
than signs (<>); perhaps, as in Integer 
Basic on the Apple, you are only allowed 
to test inequality with the number sign (#). 


8.) Please note that | have several 
statements in my program of the follow- 
ing general form: IF X THEN... This is 
“shorthand” for the equivalent iF X <> 0 
THEN... | also have a number of 
statements like the foliowing: IF...THEN 
100 (where 100 can be any statement 
“number). This is a “shorthand” for 
IF..THEN GOTO 100. | -don’t krow 
whether all Basics allow the abbreviated 
forms that ! use. 


9.) | have made use of the following string 
functions: STR$, LEFT$, RIGHTS, MIDS, 
and LEN. Your Basic might call these by 
tifferent names, or have different syntax 
rules about their arguments. Here are the 
Appiesoft syntactic definitions for these 
functions, which you should keep in mind 
if you have to convert to different usages 
on your computer: 


STRS(X} 
converts the number X to a string 


LEFTS{AS$,N) 
returns the leftmost N characters 
of string A$ 


RIGHTS(AS,N) 
returns the rightmost N 
characters of string A$ 





MIDS{A$,M,N) 
returns the N consecutive 
characters of string A$, starting at 
position M 

LEN({A$) 
‘returns the number of characters 
in string A$ 


LIST 


These are ail the differences between 
Applesoft and other Basics that | am 
aware of, although there may be more. At 
any rate, it should not de difficult to con 
abril program to any other machine's 

asic, 


10 REM ROUTINE TO EDIT A NUMBER 
ry NUM» WITH AN EDIT MASKs MA 


SK$% 


20 «HOME & PRINT 


NE”: PRINT 


“EDIT MASK KOUTI 
PRINT * 


THE E 


DIT MASK CAN CONTAIN ANY INS 


ER-": PRINT 


"TION CHARACTERS 


» PLUS FOLLOWING SPECTAL® 
30 PRINT “CHARACTERS: "; PRINT “* 
IF $ IS FIRST CHAR.» IT IS 
TREATED AS": FRINT "A FLOATI 
NG DOLLAR SIGN" 


40 PRINT “ 


IF - IS LAST CHAR«» 


IT WILL BE OUTPUT”: PRINT “I 
F NUMBER TO EDIT IS NEGATIVE 
s OR RE-": PRINT “PLACED BY 
BLANK IF POSITIVE” 


50 PRINT * 


9 CORRESPONDS TO A BD 


IGIT TO PLACE IN*$ PRINT “TH 
AT POSITION OF THE MASK*3: PRINT 
“®--@ CORRESPONDS TO A NONZER 


O DIGIT To" 


60 PRINT “PLACE IN THAT POSITION 
-¢ IF YOU WANT A“? PRINT “COM 
MA OR COLON IN THE MASK». ENC 


LOSE THE“ 


65 PRINT “ENTIRE MASK IN QUOTES 


TO INPUT IT.” 


PRINT 


70 INPUT “EDIT MASK? “sMASKS 
75 INPUT “NUMBER TO EDIT? “FNUM: 
GOSUB 1003 FRINT “ENITED NU 


MBER?" s0UTS 


80 PRINT ¢ INPJT "1L=NEW NUMBER? 
2=NEW MASK AND NUMBER?" +N 


§5 ON N GOTO 75:79 


90 GOTO 8d 

100 NUMS = 
CNUMS OLA = 
03QN = ORM 


OPM = OSNFZ 
= O°DFZ = 0 


STRS (CNUM)DSLN = LEN 
LEN (MASKS );QM = 
O:RN = OSPN = 


OLMFZ = OS FD% 


110 GUTS = ""$ IF NUM < 0 THEN NF 
2 = 13 REM SET FLAG TELLING 
WHETHER INPUT NUMBER IS NEG 


ATIVE 


120 IF RIGHTS (MASK$s1) = "-" THEN 
FZ = 13 REM SET FLAG TELLI 
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140 


150 


140 


170 


180 


1790 
200 


210 


2290 
239 


249 
250 
260 


2790 
230 


290 


300 


310. 


NG WHETHER INFUT MASK HAS TR 
AILING MINUS SIGN 

IF LEFTS (MASK$*s1) = "$" THEN 
FDZ°= 1: REM SET FLAG TELLI 
NG WHETHER INPUT MASK HAS FL 
OATING DOLLAR SIGN 

FOR I = 1 TO LM? REM FIND P 


OSITION OF DECIMAL POINT IN 


MASK 
IF MIDS CHASK$+Iv1) = “." THEN 
PM = I | a 
NEXT 3 IF FD% = 0 THEN DFX = 


1$ REM IF NO FLOATING LOLLA 

R SIGN IN MASK, SET FLAG SAY 

ING °$" ALREADY OUTPUT TO ED 

ITED FIELD 

FOR I = 1 TO LN? REM FIND P 

OSITION OF DECIMAL POINT IN 
NUMBER TO EDIT 

IF MIDS (NUMSsIe1) = "°." THEN 

PN = I : 
NEXT : ; 

IF PN THEN RN = LN - PN: REN 
IF DECIMAL POINT IN NUMBERs 
COMPUTE # DIGITS RIGHT OF D 

ECIMAL PT. 

IF PM = 0 THEN 2503 REM IF 
DEC. PT. IN-MASK,y FIND # DIG- - 

IT POSITIONS RIGHT OF IT 


FOR I = LM TO PM STEP - 1 

IF MIDS (MASK$rIvsi) = “0” OR 
MIDS (MASK$rIv1) = "9" THEN 
RM = RM + 1 

NEXT 

IF PN = 0 AND PM = 0 THEN 30 
0 

IF RM = RN THEN 300 

IF RM < RN THEN 2906 

FOR I = RN TO RM —- LENUMS = 


NUMS + "O0"3 NEXT $: GOTO 300; 
REM ZERO-FILL RIGHTMOST DE 
CIMAL POSITIONS OF NUMS 
I = LN — RN + RM — LINUHS = 
(NUMS*I) ¢ “*%"2 REM TRUNCAT 
— NUMS TO MATCH MASKs FUT “& 
* IN RIGHTMOST DIGIT 
QN = LEN (HUM$) - RMS IF FN THEN 
QN = QN - 1% REM GET # DIGI 
TS LEFT OF DEC. PT. IN NUMBE 
Rs IGNORING DEC. PT.» IF ANY 


@ 
IF NEZ% AND MFZ THEN QN = QN - 
1: REM IGNORE MINUS SIGN IN 
‘NUMBER IF TRAILING MINUS IN 
MASK 
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320 


330 


349 
33590 


360 


365 
379 


380 


385 


3990 


409 


410 


420 


430 
LEFT$.449 


$590 
460 


479 
480 


4990 
5990 


I2 = LMt 





FOR I = 1 TO LMt IF I = PM THEN 

350: REM FIND # DIGITS IN M 

ASK LEFT OF DEC. PT. 

IF MIDS (MASKSrIve1) = “0 OR 
MIDS (MASK$*eI>1) = "9" THEN 

QM = QM +1 . 

NEXT 

IF QM > = QN THEN 370! REM 


TRUNCATE NUMBER ON LEFT,» MA 
KING LEFTMOST DIGIT “4%” - 

I = LEN (NUMS) - QN + QM - 1 
; IF NFZ AND MFX THEN I =T - 
12 REM DROP MINUS SIGN ALSO 

IF IGNORED BEFORE 

NUM$ = "%" + RIGHTS (NUMS*TI) 
sQN = QH 

I1 = 143 IF FD% THEN I1 = 2: REM 
WILL IGNORE ANY FLOATING 30 
LLAR SIGN IN MASK 

IF MFZ THEN I2 = LM - 

13 REM WILL IGNORE ANY TRAIL 

LING MINUS IN MASK 

IF NFX AND MFZ% AND LEFTS$ (N 

UM$s1) = "-" THEN QN = QN + 

1$ REM IF NUMBER’S MINUS SI 

GN WAS IGNORED BEFOREr PUT I 

T BACK IN 

IF PN THEN NUMS = LEFTS$ (NU 

M$rQN) + RIGHTS (NUMS*RM DS REM 
DROP DEC. PT. FROM NUMBER S 


TRING 
IF NEX AND MFZX AND LEFTS (N 


UM$ei) = "=" THEN NUMS = RIGHTS 
(NUMS* LEN (NUM$) - 1)3 REM 
DROP MINUS SIGN IF TRAILING 
MINUS IN MASK 

J = LEN (NUMS); 
I1 STEP - 1°3M8 = MIDS CMAS 

K$r*Ivsi)ins = “ “3 IF J > 0 THEN 
NS = MIDS (NUNSeJr1) 

IF M@ < > “+” THEN 4990 

IF NS < > "-" THEN 450 


FOR I = 12 TO 


OUTS = NS + GUT$SiJ = J - 13 GOTO 
356 

IF N& < >" " THEN 4890 

IF DFX THEN 449% REM IF FLO 


ATING DOLLAR SIGN ALREADY CU 
TPUTs GO INSERT BLANK 


DFY = 1:0UTS = "S$" + OUTS? GOTG 
250 

OUTS = HS + GUTS: GOTO 5590 
IF M$ < > “9" THEN S20 

IF NS = " “ THEN 460: REM I 


F ALL DIGITS OF NUMBER OUTFU 
Ts GO OUTPUT FLOATING DOLLAR 





- SIGN OR BLANK 
510 GOTO 440: REM GO OUTPUT THE 


DIGIT 

520 IF 4% < > "0" THEN 480; REM 
GO OUTPUT CURRENT CHARACTER 
IN MASK 

530 IF NS < > "0" THEN 500% REM 


GO OUTPUT BLANK OR DIGIT 


S40 NS = * “3 GOTO 440: REM OUTP 
UT BLANK 
S50 NEXT $ IF DFX = 0 THEN OUTS = 


"$" + QUTS: REM IF FLOATING 
DOLLAR NOT OUTPUT, APPEND I 





T ON LEFT 
555 IF DF% AND FDX THEN OUTS = “ 


» + OUTS! REM IF DOLLAR STI 
GN ALREADY OUTPUTs PUT BLANK 


se oe OF MASK’S DOLLAR $ 
N 


560 IF MFX% = 0 THEN RETURN : REM 
ALL DONE IF NO TRAILING MIN 
US IN MASK . 

570 NS = “ "3 IF NFZX THEN NS = “- 


"$s REM BLANK IF POSITIVEs 4H 
INUS SIGN IF NEGATIVE 
sso OUTS = OUTS + N$3 RETURN 
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Lower Case and Punctuation 
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Do you need to get lower case and punctuation into your 


BASIC strings? Thon, try these programs. 
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Introduction 


While computer peopie may adapt to 
all caps, the general public still uses, and 
apparently likes, lower case. Printing with 
lower case is more familiar, more read- 
able and more acceptable. Thus, we who 
work with computers should provide 
lower case in any printout that we expect 
or hope laymen to read. After ail, com- 
puters should adapt to people; people 
should not have to adapt to computers. 


Also, who is there among us who 
hasn’t wondered at how the APPLE 
handles punctuations in strings? in IN- 
PUT's, we have found to our dismay that 
a “JONES, JOHN” results in an error 
message saying “?EXTRA IGNORED" 
and jater finding the string variable as on- 
ty “JONES” with nothing to tetl us which 
Jones that may be. What wouldn't we 
give to get quotation marks and commas 
in the piaces we want? 


So much for what should be or what we 
want. The APPLE doesn’t have lower case 
and seems rather whimsical about punc- 
tuation. Well, face it; there were a number 
of compromises made in the design of 
the APPLE and Applesoft. Of course, 
some of these deficiencies can be con- 
quered by money. We can buy one of the 
lower-case boards and live more or less 
happily ever after. Unfortunately, we do 
not all or always have the option of buy- 
ing a solution to a problem; most of us 
have more problems than money. And 
there are not always solutions for sale. 


An alternative approach is an Ap- 
plesoft program to produce the desired 
lower case and punctuation. t have iook- 
ed for such a program and | found two 
possibilities (there likely are others but ! 
am not acquainted with them): 


1. Vai J. Golding in “Lower Case 
Routine for Integrat Data 
Printer," Call-Apple, v.2, p. 11 
(April/May 1979) gave a program 
to poke lower case characters 
into strings in the string array 
memory space. 


2. Another program was 
published in Contact, v.1, p.5 
(May 1978); this program pokes 
iower case into the beginning of 
program memory space. 


Both of these are quite limited. Note: both 
should work for punctuation problems 
within the same limitations. 


Neither of these Snabies one to enter 
lower case or problem punctuations con- 
veniently into string variables, nor to print 
statement strings in an Applesoft pro- 
gram as desired. The program given in the 
listing in Figure 1 does the job for string 
variables and the one given in Figure 2, 
for strings in print statements. 


Use and Operation 


The heart of these programs is the 


same as in the cited programs: use of the 
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GET command to sneak things around 
the interpreter. The GET command 
handles input character by character so 
that each can be manipulated. 


(The identical GET routine is used for 
both programs—ilines 63010 to 63120 in 
the first and tines 63140 to 63150 in the 
second. Only one typing needs be done, a 
hint not to be ignored.) 


The first program is intended for use as 
a subroutine. For example, a statement 
such as 


30 INPUT “ACCOUNT NAME”;NAMES(1) 
can be replaced directly by 


30 PRINT “ACCOUNT NAME”;; GOSUB 
63000:NAMES(1) = BBS 


In a run, the program would appear to 
behave normally except that there would 
be no ?7EXTRA IGNORED’s and NAME(1} 
would look quite strange on the CAT 
monitor ("/7%2 #!3%”" for “lower case”) 
and as lower case only on the printer. 


in both programs, capitals are entered 
in a manner similar to the operation of 
MUSE’s word processor program Dr. 
Memory. A ctrl-A makes the next letter on- 
ly captial; an ctri-C makes all the follow- 
ing letters capital until either a ctrl-S or 
the end of the string. Unlike Or. Memory, 
the contro{ characters are not displayed. 
Instead, the capitalized letters are shown 
in inverse video. | like this way of doing 
things. If you would prefer the opposite 





video, just interchange the words NOR- 
MAL and INVERSE in lines 63020-63040 
and 63080 and add an INVERSE to line 
63000 in Figure 1. You could do even more 
to tailor to your personai tastes, change 
the contro! characters, change the 
default operation from lower case to 
capitais, etc. These custom fittings are 
. left as an exercise. 


Another feature common to both pro- 
grams is the motion of the cursor. The 
backspace works but that is ail. And it 
will move the cursor back no further than 
the Initail position. However, therein lurks 
a minor nuisance; if you try to backspace 
beyond that limit, the immediately 
preceeding character will be wiped out or 
replaced by a white biock. This is of no 
consequence; ignore it. 


Since the string variabies subroutine 
runs as a part of your program, you have 
to keep labels straight. This subroutine 
uses only AAS, AZS, BBS, BB, B25, and ZZ 
and has no FOR !oops. Also note that on- 
ly the usual limitation applies for the 
length of strings. 


In the use of the second program, you 
append it to the program in which you 


Figure 1 


63000 BBS = witeg7$ = "BB = OZZ 
= 0 


63010 GET AA$:AZ$ * AAS: 1F ASC 
(AA$) = 13 THEN NORMAL : GOTO 
63130 @ 
63020 IF ASC (AAS) * 1 THEN ZZ * 
lL: INVERSE :BB = 0: GOTO 630 
10 
63030 IF ASC (AA$) = 3 THEN BB ® 
1: INVERSE : GOTO 63010 
63040 IF ASC (AA$) = 19 THEN 8B 
2 0: NORMAL : GOTO 63010 
1F ZZ = 1 OR BB = 1 THEN 2 
Z = 0: GOTO 63080 
tf ASC CAA$) < 65 OR ASC 
(AA$) > 90 THEN 63089 
63070 AA$ = CHR$ ( ASC (AA$) + 3 


63050 
63060 


2) 

63080 BZ$ = BZ$ + AZ$: PRINT AZ$; 
: IF BB = 0 THEN NORMAL 

63090 BB$ = BB$ + AAS: if ASC (B 
B$) = 8 AND ASC (AA$) = 8 THEN 

PRINT " "; 

63100 if LEN (BBS) < * 2 AND ASC 
(AA$) = 8 THEN BBS * uuNSBZS © 
wi, GOTO 63010 

63110 IF ASC (AA$) = 8 THEN 88$ 

= LEFT$ (8B$, LEN (8B$) - 
2) 

63120 GOTO 63010 

63130 PRINT : RETURN 

63140 END 


c 





Figure 2 


62999 ENDO 


63000 HOME : VTAB (3): PRINT "LO 
WER CASE INSERTION PROGRAM": 
PRINT : PRINT 

63020 LMAX = 62999: PRINT “NUMBER 
OF FIRST LINE TO BE RE-"": ENPUT 
“WRITTEN "3LTs PRINT 

63020 PRINT :M = 256 * PEEK (10 
h) + PEEK (103) + 2 

63030 LN = 256 * PEEK (M + 1) + 

PEEK (M): 1F LN > © LMAX OR 

LN > LT THEN 63320 

tE LN < > LT THEN M # 256 


* PEEK (M- 1) ¢ PEEK (M - 
2) + 2: GOTO 63030 
63050 K = O:LL = O:UL = 0 
63060 FOR J = M+ 2 TOM * 255:T 
ST = PEEK (J): IF TST © 0 THEN 
Me J + 3: GOTO 63030 
1F TST © 58 THEN K = 0 
1E TST = 186 OR TST © 132 THEN 
Kal 
IF K = 1 AND LL > 0 AND TS 
T= 34 THEN UL = J - 1: GOTO 
63120 
[FE K = 1 AND LL = 0 AND TS 
T = 34 THEN LL = J+ 2 
63110 NEXT 


63040 


630790 
63080 


63090 


63100 


E 
- §3120 BBS = "":BZ$ = WsBB = 0:22 


= 0 

FOR | = LL TO UL: PRINT CHR$ 
( PEEK (1))3: NEXT = PRINT " 
ee" 
63140 GET AA$:AZ$ * AAS: 1F ASC 
(AA$) = 13 THEN NORMAL : GOTO 
63260 

\F ASC (AA$) = 1 THEN 22 * 
1: INVERSE :88 = 0: GOTO 631 
&0 
63160 IF ASC CAA$) = 3 THEN#BB = 

1: INVERSE : GOTO 63140 


1fF ASC (AA$) = 19 THEN BB 
= 0: NORMAL : GOTO 63140 
63180 IF ZZ = 1 OR BB * 1 THEN Z 
Z = 0: GOTO 63216 
63190 tF ASC (AAS) < 65 OR ASC 
(AA$) > 90 THEN 63210 
63200 AA$ = CHRS ( ASC (AA$) + 3 


63130 


63150 


63170 


2) 
63210 BZ$ = BZ$ * AZS: PRINT AZ$; 
: tf BB = 0 THEN NORMAL 


63226 BBS = BBS + AAS: IF ASC (B 


B$) = 8 AND ASC (AA$) = & THEN 
PRINT ""; 
63230 IF LEN (BBS) < = 2 AND ASC 


(AA$) = 8 THEN BBS * muesgzs$ = 
“tt, GOTO 63140 
tf ASC (AA$) © 8 THEN BBS 
= LEFT$ (B86$, LEN (8BS) ~ 
2) 


63240 








want to put lower case. A RUN 63000 Initlates things; you simply 
give the line number in which lower case Is wanted. The first str- 
Ing in that line is printed, terminated by ## to indicate the length 
limit. The cursor below. this line indicates the place for the 
change. You can insert anything but we assume that a mixed 
capital and lower case rendition of the line above is what you 
will want. in any case, the length cannot be exceeded. lf you go 
over the limit, the excess will be ignored. If you put in less, the 
remainder will be filled with spaces. If you don’t want to change 
that particular string, simply hit RETURN. 


After a RETURN, the next string in the same iine will appear, 
ready to be changed. When all the strings of that one line have 
been deait with, you are asked for the number of the next line. 


As mentioned above, lower case if displayed by the APPLE ad 
keyboard symbols other than letters. These print properly as 
lower case on a printer that prints lowercase. if you want to 
display, say, a table so that you can check data prior to printing, 
you need to program the display table and the printout table 
seperately. For convenience in doing this, both programs pro 
vide an all-caps string 8ZS ad weil as the corresponding string 
BBS with lowercase. : 


Program Design 


The GET routine, essentiatly the whole of Figure 1, has 
already been mentioned. The GET command Is. foillwed by a 
series of IF’s to implement the control character,backspace and 
RETURN functions. These are straight-forward and seif- 
explanatory. 


The second program, Figure 2, consists of three parts. The 
first, !Ines 63020-63300, pokes the new string into the program 
Into the program memory space. 


Concluding Remarks 


Although written for Applesoft, these programs can be 
adapted to other BASIC's.The first presents no probiems. 
However, the program memory space search routine in the se- 
cond will réquife modification for other computers. This 
modification should not be too difficult to implement for other 
Microsoft BASIC‘ s. 


63250 GOTO 63140 


63260 IF B8$ = " THEN 63310 

63270 PRINT : FOR t * LL TO UL 

63280 OD$ = MIDS (8BS,1 - LL + 1 
jl):hM = asc (oN$) 

63290 POKE I,MM 

63300 NEXT ; | 

63310 UL = O:LL = O: PRINT : COTO 
63110 


63320 PRINT : PRINT "NUMBER OF N 
EXT LINE TO BE REWRITTEN": INPUT 
“(ENTER 0 TO END PROGRAM) " 
3LT s 
63330 IF LT = 0 THEN END 
63340 GOTO 63020 








Bi-Directional Scrolling 


Everyone knows that a teletype only moves the paper in 


one direction - up. Likewise, the Apple display only Roger Wagner 
scrolls one way - up. Now you can have scrolling in both ee ee 
directions - up and down - with these routines.. Santee, CA 92071 


By using the machine language 4. Load the binary routine into the If you want to use this routine to direct: 


routines given betow, it is possible to $300 page of memory starting at $300. ly view memory, the easiest way to set 
scroll either textigr page in either direc- the pointers 6,7 and 8,9 is to set 8 and 9 to 
tion. 2. Set pointers 6,7, and 8,9. If you the address you want to start viewing at. 
want to bring new Information Put the low order byte in 8 and the high 
The up-scroii routine is derived from onto the screen from RAM as order in 9. (The screen height plus 1.) 
APPLE computer's red Reference Manual you scroil 6,7 must point to the Then set 6,7 to the same value as 8,9 were 
with the difference being that a zero-page location in memory where the originally, i.e., the low and high byte bring 
location Is referred to determine which = -—-- ~-. data. to-be.toaded onto the top the starting address. Last of all, scroll 
page to scroll. The down scroll routine line of the screen will come from back down one line to bring the starting 
makes similar use of the same zaro-page when you scroll the screen page address line into position as the first line 
byte. down. Similarly 8,9 point to the of text visible at the top of the screen. 
place in memory to get the data 
To use the routine a faw entry conditions for the bottom line when you if you do not want new data brought 
must be met: * scroll up. onto the screen, then 6,7 and 8,9 will have 
16 LOMEN: 3072 . 
20 REM OR SET LOMEM. ANAL? BEFORE RUNNING 


2B CALL -926: INPUT “PAGE 1 OR 27") PROE 

40 PRINT “INPUT POORESS ( < 32767) TO START AT:*. INPUT A 

5B REM TO SCROLL WITHOUT BRINGING IM REX DATA ENTER ‘8’ FOR ADDRESS. 

6B IF 880 THEN 408; TEXT - CALL -936: PUKE 34,1: REM FREEZE ONE BLANK LINE AT TOP OF SCREEN 
79 IPB 12: PRINT “(SAMPLE PG. 1 SCREEN DATA" 

60 POKE 68: POKE 7,4: POKE 8.8. POKE 9,4: REM PRING HEN SCREEN CATR FROM THAT BLANK LINE 


- 9 GaTO 158 : 
468 LBA NO 256: 1B=R/256 | | 
118 POKE 5,PAGES4: IF PAGES2 THEN POKE ~16299, 4 


428 POKE 8, LB: POKE 9,18 

13 FOR [=i TO 25. CALL 768: NEXT | 

448 POKE 6. LB: POKE 7, he 

458 KEY= PEEK (-163843. POKE -16368, 8 

168 IF KEY=449 THEN CALL 763: REM RT. ARROW KEY TO SCROLL uP 

470 IF KEY=436 THEN CALL 945: REM LFT. AREOW KEY TC SCROLL DOH 

488 IF KEVEL36 AND KEYE149 OR ABO THEN 193: POKE 6,3: POKE 7,4: POKE 8:0: POKE 9,4: REM RESET 6,7 & 8,9 10 POINT AT 8 
LARK LINE 

490 IF KEYEL7? THEN 208: POKE 5,4: POKE -16300,0: REM “4° FOR PAE 4 

900 IF KEVEL78 THEN 210: PORE 5.8. POKE -16299,0: REM “2” FOR PAGE 2 

246 IF KEVE216 THEN 158: POKE -16308.0: TEXT CALL -868: PRINT "BYE °: END 
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@362 ES OB 9 SC SB 


2% * 382 48 8 PHA 0364 C5 22 168 CP WTOP 
3 «6APPLE SCROLLING ROUTINE §8§* 972 BoE gy JSR YTRBZ 9366 38 6D 184 BAI = LDTOP 
(se * 93067528 89 AZ WAT LOA BRL, 388 4B 12 PHA 
a4 BY * awees2n 80 48—s«STR:sBAGAL (ARK MET «103 = ISR TZ 
ae ROGER WAGNER * 9787529 8949s BSH @36C BL 28 «104 NXTCHR2 LOA (BRSLD,Y 
Gs * 9390 85 28 58 STR ASH / | (SMES A 185 STR <BRSL).¥ 
34 THIS WILL LET EITHER PAGE + B3BE Ad 21 Sj LOY WRONOTH 278 88 106 DEY 
3 SCRILL IH EITHER DIRECTION + 9218 88 52 Dey 374 16 FS 487 SPL NKTCHR 
J+ iT 1S PRIMARILY CESIGHED =8©* ©9344 g9 3 PLA 6273 3 EL 168 BMI NXTLN 
2 * FROM A GIVEN RANGE OF PPR 4 tgs 38S sp wweTn «377 BL OSB LT2 LOA CSCRNTPD,Y 
p+ * 8316 BA & 4 82S LOGIN B39 HA 28 iti STA <BRSL),¥ 
| uber §=§=6 1S do 57 PHA A378 03 112 ity 
54 319 2096 83 58 JR YIREZ a7 C4 24 113 CPY | WROWOTH 
5 O3IC BL 28 59 MATCHR LOA <BASLy.y «= STE BFP AN4 a 
? + O31E 91 OR 6 STA (BASEL). ¥ 9388 38 445 CRRCT2 SEC 
; S) $38 8328 88 64 DEY 8381 AS 86 116 LOR = SCRNTP 
} ORG $388 9321 16 F9 62 BPL  NATCHR asses | At? SBC WNOMOTH , 
J WLFT EQ) = $28 6222 7H ES 63 BMI = NATLN O35 8 6 118 STA = SCRNTP 
L WHDROTH EQU = F24 0325 FRA 64 LOGIN LDY 386 #8 9387 A 87 119 LOR «= SERNTP+L 
2 WDTOP EQU $22 6327 BL 68 65 102 LDA <(SCRNBTM).¥ 8289 E9 128 SBC #88 
, WROBTIN EGU = $23 0329 94 28 66 STA (BRSL).¥ 8388 5 87 124 STA SCRHIP+L 
HK EU $24 O28 (% 67 IY BD 38 122 SEC 
r(¥ EU $25 OX C4 A 6&3 CRY = WADKDTH GSE AS 88 123 LOR = SCRNBTH 
» PRL EM) $28 BR2E 99 F7 63 Br (LD? B30 ES 24 124 Sel RNOWOTH 
"BASH EQ) $23 G33A 18 78 CRRCT CL A392 85 98 125 . STA = SCRNBTH 
s BAS2L EDU = «S2R O331 Fi 06 “i LOR = SERNTP 6354 FD G9 126 LDA | SCRRBTM+1 
1 RASCH EAI = «$28 6333 65 24 f2 AOC | WRDMOTH A390 £3 8A 127 ee |B 
1 PAGE £0 $85 0335 73 STA = SCRNTP ass 89 {28 . STA SCRNBTM+L 
_4# FOR RPPLESOFT HSE PAGE EQu Sif 9 337 AD 7 e4 LOR SCRNTP+L §=—-- 3974 €8 523 RIS 
+ PAGE UST HOLD $24 FOR PG LL 8339 69 3 AOC 8B as 138 BRK 
& $08 FOR PG 2 8338 5 Gr 7 STR 3 SCRNTP4L 131 4 
SCPHIP EO $86 8330 18 7 ac {72 + 
& $06, $47 = KOVHI BYTES BSE RS 8B LDA  SCRNBIN B39, AS 25 133 YTAB LOR fY 
& OF START OF LINE JUST BEFORE 9340 65 22 73 FOC WHOAOTH «= OSE 28-6 O3 «134 VIRB? ISR © BASCALC 
+ 10 LINE 934295 68 0 A (STR CSERMBTN «= RL 6S 2812S RHOLFT 
SEONBTA EC «= $88 8344 AS 99 $l LOA =SCRNBTMAL =| ASRS 85 28 {36 STA = BRSL 
# §08, 59> LO-HI BYTES 8346 52 Bh 2 ROC 8 ASH 64 137 RTS 
# OF START OF LINE JUST AFTER 0348 85 99 83 STAR = SCRNOTM+4 1z2 +# 
& BOTTOM LIME 34h 4C HBS Rh re oYTRB 139 * 
& 8S 4 BSS 48 148 BASCALC PHA 
86 * ASA? 4A i41 LSR 
- B340 3B 87 SCROLLOM SEC Q2AB 29 A3 142 FMD «$883 
Q34E AS 23 88 {DR + ¥NDGTH QSAR 5 55 143 ORA = PAGE 
8358 £9 61 89 Sees asRC SH 29 id4 STA SASH 
asi2 48 9 PHA QSRE 68 145 . PLA 
$353 MEH OL JQ  YTRBZ O3AF 29 18 145 AMD = «-AS18 
936 AG 28 32 NATLH2 LOA | BRSL BSB1 3 A2 14? or KAR 
938 & 2H 93 STA = BAS2L A383 69 TF 148 A SStF 


OSA AD 29 34 {0A = BASH 8285 BH <8 149 PSCLC2 STA = BASL 
GC $5 2B bs) STR BASH 8387 ORC {yw REL 
BSE Ad 24 % LOY = WHODTH ASEB BA 151 RSL 
8368 38 7 DEY 82839 9 28 {52 ORR = BASL 
B361 68 %8 PLA BER 85 28 153 STR = -BRSL 
@38D 64 154 ENO RTS 
—— END RSSERELY —- 
TOTRL ERRERS. Aa 
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to point to a part of memory that contains 
haracters. One way to do 
biank line on either 
and then set 6, 7 and 8, 9 
at value each time the 


ecause normally 


40 blank space c 
this is to freeze on 
page 1 or 2, 
must be reset to th 
scroll is done. This is b 
the scroll routine updates 
thee screen width so as to rem 
chronized with the screen display anot 
technique is to just clear the top or bot- 


Symbol Table 

FT BEL 
WHDRDTH @e21 
WADTOP BAL2 
WORTH GAZS 
tH 24 
ty ZS 
BASL MIB 
BHSH BAZS 
BaSSL aA 
RREZH eB 
PRG WAS 
CCRHTP (BR 
SCRHETA i) 
SCPOLL AoA 
NATLH: 6336 
FXTCHR asic 
LOSTR 8325 
Lhe 6327 
CRRCT 93239 
SCROLL ON 8340 
RATLN2 8356 
HATCHER 8360 
LDTCP Q319 
LT2 6377 
CRRCT? 6B 
VTRE 3%, 
YTRBZ G3%E 
RASCAL. O3R6 
PLZ ae 
END 8380 


tom fine to blanks each time a scroll is 


one. 

3. Location 5 must hold a 4 for 
page 1 scrolling, and an 8 for 
page 2. 


4. That's all. Now when you want 
the screen to scroll just ‘CALL 
768" to scrofl up, and ‘845° to 
scroli down. 

Special Notes: 


If you are going to use page 2 of text/gr 
In Integer Basic, be sure to protect the 
variables with a ‘LOMEM’: 3072. This may 
be done before running the program, of if 
you know how, put aS an early line in the 
program. 

4390. 30F 

QIMH- A 22 48 26 96 BS AS 28 
B2eR- 85 2A AG 29 35 2B RA 21 
9310- $8 63 69 B1 C5 23 BB BD 
93i6- 48 20 SE F281 2B O91 AR 
AW 8B 19 FO 3H EL AB BB BL 
BI20- OB $1 23 CH C4 24 BF? 
AB3- 19 AS 4 65 21 85 96 
9339- 87 69 @ 85 OB? 18 HB 
@249- 65 24 85 08 AS 09 69 & 
Q348- 85 GS 4C SC 82 38 A 23 
A3SA- £9 G1 48 2B 96 83 MH 28 
@358- 95 2A AS 29 85 2B MM el 
Ber 93 6B 9 MCS 22 WH 
O268- 48 20 3E_ 83 BL 28 91 2A 
Q270- 28 1G FS 3H EL 8 BS BL 
O378- 6 MH 26 CB C4 24 WE? 
G2 RAS AG ES 24 95 95 RS 
O389- 97 ES G8 8S B7 3B A & 
B20R- E5 2 #5 86 AS 69 £9 BA 
A398- &5 89 6B 68 AH 25 20 fb 
G2AO- 83 65 28 & 2B 68 48 4A 
Gia 29 63.05 85 85 29 68 29 
@3BA- 18 98 AZ 69 PF 8S 28 GA 
A3BB- GAAS 28 85 28 68 FF FF 
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To use page 2 in Appiesoft is more dif. 
ficult, but can be done. First, location 
$3AB in the machine code must be 
changed from $05 to $1F. Also, you must 
POKE 31 with a 4 or 8 as compared to the 
POKE § in Interger. 


The real rub is that Applesoit programs 
normally begin In memory at $800 (hex) 
which conflicts with page 2 use. The way 
around this is to do a ‘POKE 104, 12: 
POKE 3072, 0’ before loading your pro- 
gram. After joading do a ‘CALL 54514’ (un- 
necessary with OOS 32,). Uniess you doa 
‘RESET’, ‘Control-6" other programs. Un 
fortunately, use of page 2 with the RAM 
version of Applesoft is to my knowledge 
Impossible. (Sorry...) 


If you wish to move the scrolling 
routine for some reason, the only 
location-dependent aspects of the code 
are 5 ‘JSR’s and 1 ‘JMP” within it. Since 
these operations aiways reference ab- 
solute addresses they will have to be re- 
written. Of course, if you have a relocate 
utility, it Is that much easier. 


For further enlightenment, see the 
sample Integer Basic program which 
makes use of the scrotling routine. Have 
Fun! 


Location dependent: 


$303: JSR $39E 
319: JSR 39€ 
34A: JMP 39C 
353: JSR 39E 
369: JSR 39E 
a9€: JSR 3A6 


If page 2 of TEXT/GR is to be used, it must 
be protected by a ‘LOMEM:3072’ for in- 
teger BASIC, of a ‘special Load’ (as 
described in article) when using Ap- 
plesoft. 


Note: $3AB must be changed from $05 to 
$1F for Applesoft. 





Tape Execute File 
Create and Use 


Once upon a time, a computerist wanted to convert his 
integer BASIC programs to Applesoft BASIC. He read 
about a great technique - but it required a disk. He did 
not have a disk, but did have cassettes. Could the 
technique be modified for tape? And, what other 
changes would be required for the complete conver- 
sion? Some interesting things were discovered, and are 


reported here. 


For a long time, t had been trying to 
ind a way to convert Integer programs 
o Applesoft. So it was with great in- 
arest that | read the How to Section ti- 
led “Disk Magic;; in Contact 5. A short 
ummary follows for those who didn't 
et Contact 5. it was a way to list the In- 
eger programs on to disk and then load 
t into Applesoft. This was done by pla- 

} the following line in the program: 
PRINT“ @ OPEN X”:POKE 33,33: 
"RINT‘'' @WRITE 
V LIST:PRINT’ @CLOSE Xs END 


Nhere @means Control D) 

Vhen this line is entered type “RUN” 
nd press “RETURN”. When the opera- 
ion is compiete, enter Appiesoft and EX- 
‘Cute the file. 


The only problem with this method 





is that { do not have a disk yet. 


{ started to think about how this 
could be done with just a tape. During a 
normat “SAVE” both Integer and Ap- 
plesoft write the program to tape the 
way itis stored in memory, not the way it 
is tisted. The program is stored as 
tokens; and since the tokens do not 
match, Applesoft cannot load Integer 
programs. 


So | wrote two routines which link 
into the input and autput hooks CSW 
and KSW at $36-$39. (This articte uses 
“$” to indicate a hexadecimal number.) 


The output routine gets each byte 
as the Apple outputs it and stores it ina 
buffer before the actual output. When 
the Apple outputs a carriage return, the 
routine writes the buffer to tape. This 
continues until the Apple outputs a car- 
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riage return as the first character, the 
routine then resets the output hook. 


The buffer is 256 bytes long. This 
number was chosen because that is the 
length of the Apple's input buffer. Note 
the buffer is from $3F00 to $3FFF 
(decimal 16128 to 16383). This is 
because my Apple has 16K. For different 
memory sizes this can be changed. If 


you have an assembler, change the. 


SAVE address to the values in table 1. If 
you do not have an assembler, change 
the locations shown in tabie 2. 


The input routine reads the tape 
records back into memory and passes 
the bytes through the input hooks. This 
continues until a record comes in which 
contains a carriage return as the first 
byte, the routine then gives contro! back 
to the keyboard. 


. 
ae en nee 


MEMORY SIZE SAVE ADDRESS HIMEM 
32K $7F00 32512 
48K $BF00 —16640 
Table ! 


The first version used the tape write 
routine at $FECD, which writes a 10 se- 
cond header; therefore, the write took 
about 11 seconds, 10 for the header and 
1 for the data. However, | noticed that at 
$FECD the instruction is LDA #$40 
followed by JSR HEADR. Theretore 
when f want to write a record to tape, | 
load the accumulator with $20 and enter 
the monitor at $FECF. This causes the 
Appie to write a5 second header, which 
means each record takes 6 seconds. 


To use: 


Load the routines into memory 
Enter integer Basic 
Type “HIMEM: 16128” 
Press “RETURN” 
Load the Program 
Type in the following line: 
0 POKE 33,33:CALL 769:LIST:END 
Type “RUN” 
Set the recorder in record mode 
Press “RETURN” 
The program will now list to tape 
and the TV. When this has finished, the 
prompt >) will reappear. 


Now enter Appiesoft 
Rewind the Tape 


Warning: Since the headers are only 2 
seconds jong, you must set the tape as 
close to the beginning of the first one as 
you can. 


Type “HIMEM: 16128" 

Press “RETURN” 

Type “CALL 772" 

Start the recorder in play mode 
Press “RETURN” 


handle ifs. 


Now what you have to do is change 
the things which are different between 
Applesoft and integer. This will have to 
be done whether you use the disk or 
tape. 


All “TAB” statements have to be chang- 
ed to ‘HTAB” 

Ail computed “GOTO” and ‘GOSUB” 
have to be changed to “ON” 
“GOTO" or “ON” “GOSUB". 


Example: 


Where N can vary from 1 to 4 
Integer 
GOTO 400 + N * 100 


Applesoft 
ON N GOTO 500,600,700,800 


All multi statement “IF’’s will have to be 
broken into two lines because of dif- 
ference in the way Integer and Apolesoft 


Example: 
100 IF A=B THEN A=A41:C=C+1 


In integer C always has one added 
to it, whether or not A equais B. This 
same line in Applesoft will cause C to 
have 1 added to it only if A equais B. So 
for the program to work like the Integer 
program, the line will have to be broken 
into two lines. 


100 IF A= B THEN A=A+1 
101C=C+1 


The random number functions are 
different between Integer and Applesoft. 


The program will come into Ap- Exampie: 
plesoft as if you had typed it in. When . 
the Appiesoft prompt (]) appears with Integer 
just the cursor behind it, control is back A = RND(16) 
at the keyboard. 
MEMORY SIZE $30C $322 $34D $369 HIMEM 
32K $7F $7E $7F $7E 32512 
48K $BF $BE $BF $BE —16640 
Table il 
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Applesoft 
A = 16 * RNO(1) 


in Integer either “#" or “>” can be 
used to mean not equai, in Appiesoft on- 
ly “" can be used. 


Example: 


integer 
1 A# B THEN 10 


Applesoft 
IF A<?8 THEN 10 


There is no "MOD" operation in Ap- 
plesoft, so you have to caiculate the 
modulus. 


Example: 


Integer 
B = AMOD C 


Appiesoft 
B = A-iINT(AIC) °C 


Variable names may have to be 
changed. In Integer all letters are signifi- 
cant; in Applesoft only the first 2 tetters 
are significant. To Integer PAY1 and 
PAY2 are different; to Applesoft they are 
the same variable. 


Example: 


integer 
PAY1 = PAY2 + PAY3 


Appiesoft 
P1 = P2 + P3 


Another difference is the way str- 
ings are handled. In Integer “DIM AS$(20)” 
means set up 1 string which can be up to 
20 characters long. To Applesoft, it 
means set up 20 strings each of which 
can be up to 255 characters long. So all 
string dims should be removed from the 
program. 


Also to get specific characters out 
of a string, you have to use the MtD$ 
function in Applesoft. 


Example: 


Integer 
B$ = AS$(2,5) 


Applesoft 
BS = MID${A$,2,3) 


The last difference that | have found 
is that all variables should be converted 
to Applesoft integer variables. This is 
not always needed, a lot of programs 
will run without this being done. 


Example: 
Integer Applesoft 
A=8 A% = B% 





6301- 


0304- 


0307- 
0309- 
0308- 
0300- 
030F- 
o311- 
0313- 
0315— 
0317- 


0318- 
0314- 
0310- 
0320- 
0323- 
0325- 


ac 


ac 


Ag 
65 
AS 
8S 
Ag 
85 
Ag 
85 
60 


86 
FE 
AE 
9D 
co 
FO 


96 03 


8D 03 


00 
3c 
3? 
30 
FF 
3E 
iF 
IF 


47? 
00 
ao 
FF 
80 
06 


03 
3E 


PRG etee eee geteraeaseehnnasereet 


TAPE EXECUTE FILE 
CREATE & USE 


MAIN USE TO CONVERT INTEGER 
PROGRAMS TO APPLESOFT II 


BY 
ALLEN J LACY 
AUGUST 1979 


eeteecnvnenne ene 
eseeov eee ee ee 


RHRAOHHER SETAE REHRATE OR ARAEBATO 
Hehe erate ates eeerARReRnetenereeee 
e ® 
* 256 BYTE BUFFER TO STORE TEXT * 
* FROM ADORESS $3F00 TO $3FFP  * 
* CHANGE FOR LARCER APPLE II « 
* . 
HHA HHAEA RRA KEDAETHSHEES EERE REE 


SAVE .EQ $3F00 
PT »Z2Q $300 
KSWw .EQ SFO1B 
WR «EQ SFECF 
RE EQ SPEFO 
COUT .EQ SPNOO 
XSAV .EQ $47 
«OR $3012 


a 

PHKIREARAHERAREARERARRERORE EERE 
* ® 
* SET UP FOR OUTPUT OF FILE * 
* ® 
RHEE KERAATRERRERARREESEEADROAEHEE 


STP JMP SP 
« 


SHARRERTAAAT HSKRARHRE LARD RE R EAE 
* * 
* SET UP POR INPUT OF FILE « 
* . 
PAD AHAAHSHARUEREAPRARTERARRESS KR ARAE 


STK JUMP SK 
* 


Cotes anoeatenentenaneeoaranenesas 
« * 
*SUBROUTINE TO SET TAPE POINTERS* 
« * 


SHARP RHA AAA SHEARER HTK RARE 


SET LDA ESAVE : 
STA $3¢ 
LOA /SAVE . 
STA $130 
LOA #SAVE+255 
STA $3E 
LOA /SAVE+25§ 
STA $3PF 
RTS 


* 

PERRET ARAPE HEE HARE RETHARERRARERE 
* Ld 
* BYTE OUTPUT ROUTINE * 
« * 
SHAHN TEETER RAREKORHAERAEOR ATED 


PPT SIX xXSAV STOPE xX REG 
INC PT 
LOX PT . 
STA SAVE-1,X% STORE OTe 
CMP #S8D CPR? 
BED CR 


0322~ 
9329- 
G32c- 
0320- 
0330- 
0332- 
0334- 
0337- 
0339- 
033c- 
0338- 
0340- 
0343- 
034 5- 
0348- 
0349~ 
0348- 
034E- 
035i- 
0353- 
0356- 
0358~ 
035a- 
035¢- 
035E- 


O35P= 
0361- 
0364- 
0367- 
036A~ 
036C- 
036E- 
0371- 
0373- 
0375— 
0378~ 
O37A- 
0370- 
O37F- 
0381- 
0382- 
 0384~ 
0386- 
0388- 
038a- 
038D- 
038F~ 
0391- 
0393- 
0395- 
0398- 
039a- 
0390- 
0396- 
03A40- 
03A2- 
O2A4~ 
O3A6-- 
03A8~ 
03AR~ 
O3AC- 
O3AF~ 
0332 
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Fo 
Gj 


oj 


Fo 
03 
3F 
a3 


PE 


03 
$e 


03 


03 


Q3 


03 
03 


03 


a2 
FE 


1690 L5X xSAV RESTORE xX REG 
1700 JSR COUT 

l?io RTS 

1720 CR LOA PT 

1730 Cee #1 

1740 BEQ NPT 

1750 JSR SET 

1760 Loa 8$20 §$ STC READER 
1770 JSP WR UPITE TO TAPE 
1780 LOx xXSAV RESTOPF YREG 
1790 LOA #SBD OUTPUT CR 
1860 JSR COUT 

1810 LOA 40 RESET PT 

1320 STA PT 

1a30 RTS 

1840 NPT LOA 4s8D 

1850 STA SAVE 

1869 JSR SFT 

1870 LOA #$20 

1880 JSR WR WPITE LAST REC 
1890 LOA #FCOUT RESET PRINT 
1990 STA $36 : 

1910 LOA /COUT 

1920 STA $37 

4930 RTS 

1940 * 

1950 SRARERAHA TEE AR ARE RARERARER EERE EEE 
1960 * * 
1970 * BYTE [MNPUT ROUTINE : * 
1980 * * 
1999 Dit hte PTTL ELECTS OLC ELT See 
2000 RED STx xsayv SAVE X PEG 
2010 Inc PT 

2020 LOX PT 

2030 LOA SAVE-1,X% GET AYTE 

2040 CMP 4§#$8D CR? 

2050 BNE NCR 

2060 LOA PT 

2070 CMP #1 

2080 BEQ NKEY 

20990 JSR TR 

2100 LOA #0 

2110 STA PT 

2120 RCR LOA #$8D LOAD CR 

2130 NCR LDX XSAV RESTORE X REG 
2140 RTS 

2150 NKEY LDA #kSwW GIVE CONTROL 
2100 STA $38 TO KEYBOARD 
2170 LOA /XSW 

2180 STA $39 

2190 JMP RCR 

2200 SK LDA #RED GIVE INPUT 
2210 ste $38 CONTRCL TO 
2220 LCA /RED RED 

2230 STA $35 

2240 JSP? TR READ 1ST REC 
2250 LDA $0 

2260 STA PT 

2270 RTS 

2280 Se LDA #PRT GIVE OUTPUT 
2290 SrA $36 CONTROL TO 
2300 LOA /PRT PPT 

2310 STA 537 

2326 LDA ad 

2330 STA PT 

2340 RTS 

2350 TR JSP SET 

236C JSP PE 

2370 RTS 

23480 -EN 





KIM and SYM Format 
Casseite Tapes on APPLE Il 


. 


Steven M. Welch 
309 S. Sunset 
Langmont, CO 80501 


_ srs 
Now you can swap programs and data between your 
APPLE and any AIM, SYM or KIM via cassette VO. 


_ 


Many KIM and SYM owners have 
graduated to bigger and better 6502 
systems as their needs and financial 
situations changed. If you are one of 
these people, and find that your KIM is 
sitting in the corner gathering dust 
because your APPLE is so much easier 
to work with, read on. With this program, 
you can use your APPLE as a “host com- 
puter” for assembly language program 
devetopment and then “down load” the 
finished program into your single board 
computer (SBC). Just like the big boys! 
Not only will you make better use of your 
several hundred dollar investment, but 
you will also have the bonus of a new set 
of computer jargon to bore your friends. 
The value of developing assembly 
language programs in this fashion can- 


ed for program development, @.g., fast 
mass storage, an assembier, text editor, 
ASCII keyboard, and display device. It 
seemed to us that the controlling pro- 
gram was going to take a great deai of 
time to devise without these several con- 
veniences. 


The "big boys” get around the lack 
of these features by purchasing [usually 
for $10-20,000j], a Microprocessor 
Development System. While our obser- 
vatory didn't have the ten or twenty thou- 
sand dollars to throw away, we did have 
access to an APPLE Ii computer belong- 


3$Y" AND KIM FORMAT CASSETTE TAPE OUTPUT FOR APPLE [! 


3 


$ 

3 LARGELY. COPIED FROM THE SYNERTEK MANUAL, AND REPRODUCED 

J) WERE WITH THE PERMISSION OF SYNERTEK SYSTEMS CORP- 

3} CSTARTING AT PAGE 8 OF THE AUDIO CASSTTE INTERFACE PROGRAM) 


3 
}BY STEVE VELCHs 13 JUNE 79. 389 S SUNSET, LONGMONT. CO 8a5a1, USA 
3 MOST SW COMMENTS ARE INDICATED BY <--< 


3 
» DEF TAPOUT#SCE28 


}ro- USE APPLE GAME PADDLE ANNUNCIATOR ¢@ FOR TAPE RECORDER 
Beoe ON-OFF CONTROL. RECORDER ON IS LOW 


j---PUT @ KERE TO TURN ON 


«DEF TAPEON@{3C859 


not be fully appreciated until you use the DEF TAPEOFe$C@S8 I--<PUT 1 HERE TO TURN OFF 


APPLE to develop a sizeable program fof DEF - TH15880347 | S---PROB SHOULD BE TWEAKED 

the SYM or KIM. The many miseries of SDEF TIMESS@SIA jew-FOR DELAY ROUTINE 

hand assembling magically disappear. JDEF E0T#$94 

The constant verbal self-abuse which +DEF SYN=S16 : 
generally accompanies calculator DEF BUFADL=$E7 }-e*ARBITRARY PLACE ON ZERO PAGE 


“DEF © BUFADH=SES 


keyboard entry and debugging quickly “DEF  CHAR@= SEA 


becomes a fading memory. Have you ; 
ever forgotten to initialize a loop counter je-ePROGRAM STARTS HERE, LINE 396 OF SYM CODE, LOC 6E87 
only to realize it 300 bytes of hand 5 


assembly later? ye--MUST START IN MIDDLE OF PAGE 


«DEF BEGIN] $1086 
, “ : 
«LOG BEGIN f---OUT OF THE VAY OF MOST SYM PROGS 


j rg 
The program listed here was pro- fens INITILIZE 


duced to fill a need; aneed to develop 4 jggq op Bis SYMOUTs JSR START = S-~- ENTRY’ PARAMETERS SET BEFORE CALL 
large program on a SYM. | estimate that i683 ag 86 LOY# $86 Je-e[N CASE WE TAKE KIM BRANCH 

we have saved an absolute minimum of 1665 2C E@11 BIT MODE p<--TEST BIT 7 OF MODE (ieSYM, @#KIM) 
2 man-months in the development of a 1988 [8 9D BPL DUMPTL %#KIM-DO 128 SYNS 


1500 byte program by using the APPLE Jeer= WRITE 8 SECOND MARK (THIS COULD BE SHORTER) 


. : i 108A AZ 88 LDX# 38 $8 TIMES «+- 
Pui pata ay oe caaith 198C A@ 15 MARKSAt LDY# 5315 dees ONE SEC (21 DELAYS PER SEC) 
: : 1@8E 2@ 9St1 MARK8Bt JSR DELAY }~=-BENIGN PAUSE. SYM USES KIM CHAR 
available to us, we have written better jg91 8s DEY 
code and have not needed the numerous =1992 De FA BNE MARKSS 
patches and kludges which inevitably 1894 CA DEX 
crop up when one writes large programs $a95 De FS BHE WARKSA 
in machine code. At the University of Seow WRITE 256 SYNS, FOR SYNC 
Colorado at Boulder, where | am taee ae say DUMPT1* Gen ote 
employed, we are developing a 189C 88 DEY 
microprocessor-controlied Charg@ is9p pe FB BNE  OUMPTI 


Coupled Photo Diode {CCPO] spec- je-- WRITE START CHARACTER 


trographic detector for the Sommers- 199F AQ ZA Lpa¢ ‘e* 
Bausch Observatory using a SYM-1 com: 1GAl 26 6711 vsR  OuTcCTX 
puter. Although this is a very nice SBCit aay res reat 1d eee ie 
lacks certain features which are highly iga? 26 3Bil SSR QUTBTX 


desireable in a computer that will be us- 
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LEAS POO EET : 


ing to my boss, Dr. Bruce Bohannan. The 
APPLE has almost all of the features of 
the typical Microprocessor Deveiopment 
System, except perhaps, a means of 
communicating with the SBC in ques- 
tion. How can an APPLE talk to a SYM? 
Fortunately, both computers use the 
6502 micro-processor chip, so programs 
assembled for the APPLE have little or 
no trouble running on the SYM or KIM. 
Also fortunately, ail of these machines 
have a means of reading and writing pro- 
grams on audio cassettes. lt goes 
without saying, of course, that the tape 
formats of these machines are totally in- 
compatable. So we had to do some 
transiating; either convince the SYM to 
speak APPLE, or convince the APPLE to 
speak SYM. Since it’s easier to develop 
programs on the APPLE [that’s why | did 
all this in the first place], 1 decided to 
teach my APPLE to speak SYM. 


It turns out that there is another 
good reason to teach the APPLE 
SYMese. The SYNERTEK people, who 
make the SYM, have been so kind as to 
publish listings of the SYM monitor in 
the back of their manual. This-monitor 
listing has routines in it which produce 
3YM or KIM cassette tapes. The result is 
- that the program is very easily modified 


to run on the APPLE. No timers are used | 


(the APPLE has none}, and the serial 
data is sent out through a single bit of a 
6522 output port. Although the APPLE 
doesn't have any 6522s, it does have 
several single bit outputs, and in par- 
ticular, it has a single bit output with the 
level adjusted to be used as a cassette 
_tecorder interface. Even though this is 
not a 6522 output, under certain condi- 
tions it can be thought of as one. The 
way that the APPLE works, any time the 
address of the cassette output port ap- 
pears on the address bus, the cassette 
output flip-flop changes state. On the 
other hand, in the SYM, we send a par- 
ticular bit pattern to an address and 
these bits appear on the output latch. 


_ Using the Program 


It ig a good idea to make a SYNC 
tape first. The APPLE output level is 
about ¥% of the SYM’s output level which 
may require changing the volume on 
playback from the usual value. Also, the 
APPLE does not have a high-frequency 
roll-off capacitor which the SYM uses, 
and as a result, the tone controls may 
need adjustment. The SYNC tape 
enables you to set the controis properly 
on your tape recorder (aS outlined in the 
SYM manual, Appendix F). To make a 
SYNC tape, load the SYMOUT program 
into your APPLE, set the mode by setting 
the parameter, MOOE (location $11E0), 
to $80 for SYM format or to $00 for KIM 
format and begin the program at SYNC: 
($1000). This is an endless loap, so 
record a few minutes of the output 
before you hit RESET and use the result- 
ant tape to set the level and tone on the 
tape recorder when reading it into the 
SYM (see Appendix F in SYM manual). 
Once you have the proper level and tone 
settings, down-loading your program is 
fairly easy. First, load the SYMOUT pro- 
gram. Then, load your executable pro- 
gram into RAM. Next, put in the 
parameters: Starting Address ($110B-C), 


Je-*+ WRITE STARTING ADDRESS 


19AA AD Dull! LDA SAL. 
1@aD 28 381) JSR  OUTBCX 
16B6 AD 0C11 LDA SAH 
19B3 20 3811 JSR  ovTBCX 
‘$8B6 2C E81 -BIT - MODE 
16B9 16 BC BPL DUMPT2 
J-~- WRITE ENDING ADDRESS +1 

1@BB AD DDI LDA EAL 
1@BE 26 3811 JSR OUTBCX 
18C} AD DEI! LDA EAH 
1@Ca 2@ 3811 JSR OUTBCX 


jooo START OF MEMORY DUMP oes 


Ending Address ($11D00-€), Tape 1.D. 
Number ($110F), and the MODE (11£0) 
and start the program at SYMOUT: 
($1080). Record the program, play it into 
your SYM, and there you have it! 


Direct Computer to 
Computer Communication 


A discovery by Dr. Bohannan: If 
your tape recorder has a monitor 
hookup, through which you can listen to 
whatever is being recorded, you can 
hook up the APPLE directly to the SYM 
and reduce the error rate astronomical- 
ly! On our SYM (whose tape interface is 
modified as per MICRO’s instructions), 
we have about a 70% chance of a suc- 
cessful load of our 1500 byte program 
with our tape recorder, a Sony. The tevel 
and tone control settings are extremely. 
critical as well. When the machines are 
hooked up directly through the monitor 
jack of our tape recorder, we have Suc- 
cess every time and the level and tone 
settings are unimportant. I've also found 
that several of my tape recorders work 
very well this way and have the monitor 
feature through the earphone jack even 
though it is not marked. 


sKIM OR HS? 


fo-- FIRST CHECK IF THIS IS THE LAST BYTE OUT 


1GC7 AS ET DUMPT2: LDA BSUFADL 


1eac9 CD DDI1 CMP EAL 
1gCC DS 29 BNE OLMPT4S 
16CE AS ES LDA BUFADH 
1epe CD DE1i CMP EAH 
18D3 Dd 22 BNE DUMPTA 


}=<-LOAD ADDRESS OF CURRENT BYTE 


s-=--COMPARE TO ENDING ADDRESS 


}<--BRANCH IF WE HAVE MORE TO OUTPUT 


Jen= YUP, LAST BYTE--+ WRITE “/™ 


Basically, what this means, is that we 1905 Ad @F Lpas ‘/* 
can pretend that the APPLE cassette is 1907 28 8711 JSR OUfCcTx 
the SYM cassette output if we write only seem WRITE CHECKSUM 
to this output when we want to change pre aD Eill LDA = GHKL 
the level of the cassette port. With the gop 28 3811 JSR -OUTBTX 
APPLE, it should be noted, there is no Lege AD St BDA.) CEN 

’ ’ 19E3 28 3311 JSR OUTBTX 
control over the phase of the output J=--WRITE TWO EOT’S 
signal, but ail of the cassette-read 1@E6 AD Ba LDA# EOT 
routines in question are not sensitive to 1@ES 28 3Bil JSR OUTBTX 
phase. Fortunately, through good luck or 19EB AD G4 LDA# EOT 

18ZD 28 3B11 JSR  OUTBTX 


the good planning of the programmers 


}--0K, NOW WE'RE DONE, SO CLEAN UP & EXIT 


aan 


heim 


a 
Ae 


wen 


s+) 
at SYNEATEK, 90 % of the cassette out: gg 18 “cLe J=--INDICATE SUCESS 
put code was written in just this way. je-- SKIPPED LOTS OF STUFF. MOSTLY SYM SPECIFIC 
This feature makes the program a snap 1671 ag BI LOx# $91 j---SHUT OFF TAPE RECORDER 
to adapt to the APPLE. Once | had pick- I@F3 SE S8CS $TX  TAPEOF 
ed out the proper pieces of the 1OF6 68 RTS 3*--AND WE*RE ALL DONE 


SYNERTEK code and figured out what j--- WEXT IS THE CODE WHICH OUTPUTS THE NEXT MEM LOCATION 


they had done, | had only to change a ae mn = DUMPT As eee SO uABC be-eFIND THE NEXT BYTE 
few lines to obtain the results listed tarp gs 3811 JSR OUTBCX JWRITE [T & UPDATE CHECKSUM 
here. Since | did not write the program, | 1OFE £6 £7 INC BUFADL %JBUMP BUFFER ADDR 
won’t explain how it works, Dut | have lige De cs BNE DUMPT2 
heavily commented the listing for those ilge £6 ES imc BUFADK sCARRY 
liga 4c C718 UMP  DUMPT@ J---GO SACK & SEE IF WE*RE DONE 


readers who are interested. 
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Thermistor probes can be 
APPLE I! Game I/O Connect 


connected. directly to the 
or and their output signals 


processed via a linearizing algorithm to produce a digital 
display in both degrees Celsius and Fahrenheit. 


Thermistor probes can be connected 
directly to the APPLE I! Game I/O Connec- 
tor and their output signals processed via 
a linearizing algorithm to produce a 
digital display in both Celcius and 
Fahrenheit. 


A thermistor temperature measuring 
probe can be directly connected to the 
APPLE fl computer via its built-in Game 
vO Connector. This is possible since ther- 
mistors are “thermal resistors” which ex- 
hibit large resistance changes in re- 
sponse to a change in temperature and 
paddle input ports, POLIO, 1,2,43}, on the 
APPLE are essentially eight bit A/D con- 
verters for such variable resistance 
sources. 


The APPLE and the thermistor are 
quite suited for one another since the in- 
herent nontinearity of the thermistor can 
be easily handled with a simple algorithm 
in software. In addition, the smail current 
drain during the sampling cycie of the RC 
network on the APPLE’s 553 timer closely 
approaches the ideal zero-power opera: 
ting condition for a thermistor. Both the 
nontinearity and the induced temperature 
due to the probing current have been par- 
ticularly troublesome characteristics 
which engineers have had to find ways of 
working around when applying ther- 
mistors. 


The program written in Applesoft 
consists of an input section, a data 
reduction section and a display section. 
The input section calls for the selection 
of a paddle input and two thermistor 
spacifications used by most manufac: 
turers; the room temperature resistance 
designated as RO and a value represen- 
ting the ratio of the resistance at 25°C to 
that at 50°C designated as RA. The 
setected paddle input is then read and 
scaled to represent the resistance value 
at the input port. The corresponding 
temperature in both degrees Celcius and 
Fahrenheit are calculated from the 
resistance via a temperature-resistance 
relationship: 


Ry/Ro= eT —11T2) 


where R1 and R2 are the resistances at 
the absolute temperature T1 and 12 
respectively, and # is a constant for the 
particular thermistor material. The results 
are rounded to the nearest integer and 
displayed in a three digit format with the 
blanking of teading zeros and a negative 
sign for temperatures beiwo Zero. 


A thermistor probe can be con- 
nected to the APPLE It by merely at- 
taching one of its leads to the +5 volt 
supply, pin 1, and the other to one of the 


Cari J. Kershner 
2123 Timberidge Circle 
Dayton, OH 45459 


PDL ports, pins 6,7, 10, or 11 on the Game 
0 -connector J 14. No other components 
or modifications are required so long as 
a thermistor is chosen with a room 
temperature resistance and ratio which 
suits the temperature range and sensitivi- 
ty desired for application. A 40,000 ohm 
thermistor with a ratio of 9 or 10 wiil pro- 
vide at least one degree Fahrenheit sen- 
sitivity and a working range suitable for 
an indoor thermometer application. The 
best way to choose a thermistor for your 
particular application is to run the pro- 
gram using a game paddie as input, enter 
values for RO and the RA from a manu- 
facturer’s specification sheet, and 
observe the useful operating range and 
sensitivity of the selected thermistor. 
This latted proceedure demonstrates the 
additional usefulness of the program as 
an engineering design aid in selecting 
thermistor for other applications. 


Thermistors suitable for this applica- 
tion can be purchased for less than five 
dollars from most supply houses of 
directly from a manufacturer. A Fenwal 
GA44P2 glass probe type thermistor with 


a room temperature resistance of 40,000 


ohms and a ratio of 9.53 is a good choice 
for an indoor thermometer application, 
whereas a Fenwal GA42P2 with a room 
temperature resistance of 15,000 ohms 
and a ratio of 9.1 is a good compromise 





ee ; ; sik ht li ja 


for Indoor-outdoor uss. It is best to house 
the thermistor probe in a small metai tube 
to protect It from mechanical damage 


and to 


effects of short term temperature tran 


stents. 


thermistor probes against a laboratory 
type thermometer, if high accuracy is 
desired, because the manufacturing 
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provide thermal inertia to minimize 


It {s also advisable to calibrate the 
transmission 


REM DIGITAL THERMOMETER FO 

R THERMISTOR FROBECOISPLAYS 
BOTH CELCIUS SFAHRENHEIT> 
PRINT "WHICH INFUT DO YU WA 
HT¢@,4.2. 32": INPUT NUMBER 
PRINT "WHAT THERMISTOR CONST 
ANTS DO YOU WANTCRO, RATIOS": 

INPUT RO. RA 
BETA = 1. 7636E3 * LOG (RAD 
HOME : REM CLEAR SCREEN 

REM PRINT TEMPERATURE SCALE 

CHARACTERS 

Gk LOLOR= 15 

HLIN 26.87 AT 6: HLIN 26.27 AT 
7: HLIN 26.27 AT 9: HLIN 26, 
27 AT 10: VLIN 7.9 AT 25: VLIN 
7.3 AT 2S oe 
HLIN 24. 28 AT 9: HLIN 34.28 AT 
14: HLIN 24.26 AT 14: HLIN 3 
4,36 AT 15: VLIN 9. 2@ AT 3S 
HLIN 26.27 AT 23: HLIN 26.27 

AT 24: HLIN 26.27 AT Zé: HLIN 
26.27 AT 27: VLIN 24.26 AT 2 
S: WOIN 24,26 AT 26 

WLIN 22. 29 AT Sa: VLIN 27. 28 
AT WLIN 26.27 AT Zé: VLIN 
2c, 27 AT ES: VLIN 27.23 AT 3 


4 


39. 
art 


—_ 


WLIN 28 35 AT 32: VLIN 3S. 26 
AT Z4: YLIN 36.237 AT 35: VLIN 
26, 37 AT Ze: YLIN 25,36 AT F 
7: “LIN 34.359 AT 35 
T= 298° REM SET TéG> AT 23 
3 DEGREES ABSOLUTE 
RI = S89. 94 « PDL (NUMBER: REM 
READ INFUT & SCALE TO GHAS 


IF RI = @ THEN FI = 4: REM 
FREVENT DIVISION &Y ZERU 
Tes) VINT- $2. 2 Kio = COG 
cROo “” RID “ BETAD - 272. Sa: 

CALCULATE TEMPERATLIFE IN BD 
EGREES CELCIUS AND ROUND TO 
NEAREST INTEGER 


RES 


tolerances on RO and AA values for the 
inexpensive probes described here are 
generally no better than + 10%. 
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computer console. Thus the APPLE Si 
digital thermometer can perform many 
useful temperature monitoring tasks in 
and around the house. 


Because thermistors can be used 
that have relatively high resistances, 
line and contact 
temperature effects can be neglected and 
the probes can be situated far from the 


The Fenwal products mentioned in this 
article can be purchased from Fenwal 
Electronics, 63 Fountain St., PO Box 585, 
Framingham, MA 01701. 


IF ABS (TC)? > 353 THEN GOTO 
z2@: REM LIMIT QVERFLOWING 
DISPLAY’ | 
SIGH = 4 
IF TC < @ THEN SIGH = 
COLGR= SIGN 
HLIM 3.5 AT 23: 
38: REM DISFLAY MEGAT 
IGH 
TC = ABS TCs 
Jos INT «TO ¢ 10@3:I = J: 
SEPARATE HUNOREO’S OIGIT 
IF J = @ THEN J = 16: REN 
BLANK LEADING SERO 
R= i:¥ = 26: GOSUE 1aee: REM 
CISPLAY CELCIUS HUNDREDS 
INT <cTC - J * Lee - 16 
>»: REM SEPARATE TEN’S GIGI 
T 
IF I = & AND J = & THEN J = 
10: REM BLANK GOTH HUNDRED 
“S AND TENS LEROIMG ZEROS I 
F J&I ARE BOTH ZEFU 
GOSUE 16eag: REN 
TEN’S OIG! 


iS 
HLIMN 3.5 AT 
Ive & 


REM 


J 


Kos Sch = 26: 


DISPLA' CELCIUES 
+ 
JIo= TO - I * 188 - J * 18: REM 
SEPARATE ONES OFGIT 
Ke i7r:s = 26: GOSUB Lene: REM 
CISPLA' CELCIUS UNE“S OIG 
T 
TF = INT (3 # C4 ¢- CL 2% TO 
LoG CRO - RIA - BETAS - 2F3 
> 5 + 32.5): REN CALCULA 
TE FRHRENHEIT & ROUND TO NEA 
REST INTEGER 
SIGN = & 
IF TF < @ THEN SIGN = 
moors SiGe 
HLIN 3.5 AT 12: HLIN 3.5 AT 


15 


13: REM OISPLAY NEGATIVE © 
IGN 

TF = ABS <TR> 

J= INT CTF 4 16fo:1 = J: REM 


SEPARATE HUNDREDS O©GIT 


~ 


458 





IF J = & THEN J = dH: REM 


450) 


470 


or 
se 


BLANK LFADING £FRM 
x toy o= 3: BOEUE 2a: 


_ 
— 


REM 


DISPLAY FHHFENHEIT HUNDRED ** 


“S$ DIGIT 


J= INT CcTF - 1 ® 2689 ¢ de 
Y: REM SEFARATE TEN’S BIG! 
T aa 
IF I = @ AND J = & THERM Jo= 


16° REM BLAKE BOTH HUINORED 
ANG TEN’ S LEADING 2ErUS 
a:yo = GSE 1am: FER 
GISELA’ FRHRENHEIT TEMS 0b 
IGIT 
JT=TF - J « 1a - T * TB: 
SEPARATE ONES OIGIT 
wos AT yY = a: GOS Lee: RE 
DISPLAY FRHRENHEIT UNECE O 
IGIT 
GOTH 
REM 


Tt 


REIT 
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SEVEN SEGMENT ENCODER 


ON J GOTO 1414.1120, 1420. 21 
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1138 


113A 
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20a 
Se S| 
ad Pea 5 
LEASE 
2648 
Pot a bet] | 
2A 
eared 
—2es8 
2a30 
oe 5 ') 
2116 
241.20 
ish 
2145 
abe at) 
21.568 
2178 
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= 15 
= 15:6 
oe 
A= 15 
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RES 
COLORS= 
HLIM ts 
HLIN & 
Crk R= 
Ht Tre 32 
Hi_IMN Ss 
Coors 
HLIN 
Hifftd 
coLik= 
VLIM ’? 
EL Wikis 
VEIN ‘ 
POLoR= 
VLIn 
CULUR= 
VU ir 
FETURM 


& 


it il 


°G 


At 


“tS 1370 15:E 
5:5 = 15° GOTO Sai 
gC = 15°b = 15:€ 
14%:G 2.15: GuUTOQ fA 
5:0 = 18:0 = HE 
‘G = @: GOTO Sheu 
46:0 = 15:b = 15: 
45:°G = 15: GOTO # 
{i-o = 19:0 = 15: 
19°G = 45: GOTO 248 
a:c = aD = GE = 
= O:J = &: GOTO 2B 
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The Color Gun for the Apple Il 





With some quite inexpensive hardware, you can turn 
your APPLE II into a color detector -- a device which will 
automatically determine the colors of any object. 





Shortly after | developed my tight pen for 
the Apple back in May, 1978, | began 
thinking about other devices that could 
be hooked up to the paddle inputs. One 
idea was making a “color gun” which 
when pointed at an object would tell 
you the color. The idea is simitar to that 
of the operation of a television transmit- 
ter. Color is broken down into three main 
colors, which are red, btue, and yellow. 
Therefore by having three inputs into 
the Apple, into paddie 0, paddle 1, and 
paddle 2, we could in effect have a de 
vice that would “see” the three color 
breakdown ratios of any object. By fur- 
ther analysing this ratio,.we could see 
different shades of cotor and with high 
quality color filters, we could make an 
extremely accurate device which could 
even give the exact color temperature 
of the object. One of the interesting as- 
pects of this device that sets it apart 
from any other color temperature meter, 
is that you can calibrate it by pointing it 
at a piece of white paper to adjust for 
differences in the light source. There- 
fore, the color gun will work in any type 
of artificial lighting within certain para- 
meters (you could not use it under a red 
light for example). 


Building the Cofor Gun 


To start off with, buy three sensitive 
cadium sulphide photo cells (physicatly 
between 1/4 to 1/2 inch in diameter. If 
the cells are not equal in sensitivity, they 
can be equalized easily in software. This 
is ittustrated in the listing. Merely point 
the gun at a white piece of paper (or at 
the light source itself if its not too bright) 
during the calibration procedure. The 
construction of the gun is very simple. 
Mount the three cells in a triangle about 
2” for each side on a piece of wood or 
other material. Then place three filters 
over the ceils, with red on paddle (0) 
call, Glue on paddle (1) cell, and yellow 
on paddle (2) cell. The purer the filter, the 
better. Photographic filters are the best, 
and will give the best results. However, 
red, dbiue or yellow clear plastic will work 
Satisfactorily in most situations. Note 
the use of the REM statements in the 
program. These are for slowing down the 
paddle readings just a hair in order to 
avoid having the readings “overlap”. The 
wiring diagram is shown in Figure 1. 





Mount the entire setup in some type of 
barre! or cylinder about 4 inches long, 
with the inside of the barrel painted 
white, and glue everything together and 
seal against light jeaks. Plug it into the 
game paddle after the wiring is complete 
and you ready to go. For the pin numbers 
of the paddies, consuit your red manual. 


The Color Gun Program 


Type the program into the Apple in Ap- 
plesoft 2 and run. The gun will only 
recognize 6 colors, and when it isn’t sure 
what the color is, it will give you two 
colors (one primary color and one sec- 
ondary). This should not happen if the 
colors are absolutely pure, but most 
colors are not, so expect this situation 
more often. Notice the correction al- 
gorithm in statement 70 in the program 
to correct for the biue cell. The cells that 
| used were somewhat more sensitive to 
blue than the other colors (which is com- 
mon of cadium sulfide). This was noticed 
when the color gun kept saying “orange” 
(the compliment of blue). The correction 


Red 





5V pdi ’0Q’ 


Neil D. Lipson 
29 S. New Ardmore Ave. 
Broomall, PA 19008 


toast 


algorithm elimates most of this problem. 
If the gun acts strangely, run it again 
until it gests a good calibration. It some 
times takes more than one run to get it 
working properly (usually because it is 
confused by a bright cotor nearby). 


By fine tuning the software, and using 
more exact ratios, you can determine 
many other colors. Given enough ratios 
to choose from, you can give the color 
temperature of the object {with high 
quality cells and fiiters). The typical 
photographic filters you can use are the 
yellow (K2), the red (25 or 25A} and the 
blue (47). These may be varied if desired 
to meet the spectral response of the 
particular cell you buy. You couid even 
use different colors in the filters as long 
as you adjust the software accordingly. 
Buy the smallest fiiter you can (it only 
has to cover about 1/2 inch diameten, 
but make sure there is no light leak from 
the sides of the celis. If you follow these 
instructions, the gun wiil work perfectly 
the first time around. Have fun! 
fA 


Yellow 
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1 CALL -936 

2 VTAB 10: HTAB 10: PRINT "COLOR 
GUN BY NEIL D. LIPSON" ‘ 

3 HTAS 15: PRINT "COPYRIGHT 1979 A 8 : 
Ww “4 - ee : ‘ 


4 HTAB 12: PRINT "ALL RIGHTS RES 
ERVED": FOR I = 1 TO 2000: NEXT 


I 
5 REM 'O' RED 
6 REM ve BLUE : oo VPM Ser OTT Saat: “ . dF sR, aot hy rite 
7 REM '2' YELLOW eee ek re ok en ee ee oe 
10 CALL - 936 pees a ere 
15 REM YELLOW, BLUE ,RED ~ JOO CALL - 936: PRINT , 
20 PRINT : PRINT : PRINT : PRINT 1010 PRINT “POINT GUN AT A WHITE 
SHEET OF PAPER" 
25 GOSUB 1000 1020 FOR I = 1 TO 1500: NEXT I 
30 CALL = 936: PRINT : PRINT 1030 Al = PDL (0) 
32 A = PDL (0) 1035 REM 
35 REM | 1040 Bl = PDL (1) 
40B = POL (1) _ | 1045 REM 
45 REM | 7" 1950 CL = PDL (2) ies 
50 C = PDL (2) 1055 PRINT “Al=";Al 
35 REM | 1056 PRINT "B81=";B1 
60 A =A : Al . | 1057 PRINT "Cl=";Cl 
61B =8B : Bl = aap hes 1060 Dl = Al * B1 * Cl 
62C=-=C*Cl , = 4 1070 Al = D1 / Al : 
70B =B8B/1.5 : , 1080.B1-= D1 / B81 
100 PRINT "RED CELL = "3A - - 9999 Cl = D1 / Cl 
110 PRINT "BLUE CELL = "5B -. 100 PRINT "CORRECTION FACTOR FO 
11S PRINT "YELLOW CELL = ";C R RED = "3Al 
116 PRINT : PRINT 110 PRINT "CORRECTION FACTOR F 
117 PRINT "THE COLOR IS:'*: PRINT : R BLUES ";B) e 
sieved deepest ta eens pete 1120 PRINT "CORRECTION FACTOR FO 
R YELLOW= ";C1 
w 
1125 FOR I = 1 TO 2000: NEXT I 
121 IF C< B AND C< (A) THEN PRINT 1130 RETURN 
"YELLOW" 10000 END 
123 IF A< B AND A<C THEN PRINT 
wRED" 
124 IF A > 8B AND A> C THEN PRINT 
"GREEN" 
125 IF B> A AND B> C THEN PRINT 
"ORANGE" 
126 IF C < A AND C > B THEN PRINT 
"PURPLE" 
129 IF B < C AND B< (A) THEN PRINT 
WBE 


L3O PRINT "ate a i ie te ee He ee ee ee ee 
wt 


131 FOR X = 1 TO 2300: NEXT X 


140 GOTO 30 : 
200 END 
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APPLE II Speed Typing Test 


With Input Time Clock 





So, you think you are a pretty fast typist! Care to take a 


Speed Typing Test on your APPLE? 
The qiuck brwn fpx jumped ovre ... 





The speed typing test is a must for 
aii APPLEliers, like myself, who consider 
themselves expert typists. However, | 
did not set out to write a typing test, but 
to make an input subroutine (GOSUB 
8400) which puts the user under the 
pressure of a time clock. 


Try the program below: 


2000 call-936: 

2010 VV = 10: rem set VTAB 
2020 TT= 1: rem set TAB 
2030 GOSUB 8400 

2040 GOTO 2000 


You should hear and see the time at the 
bottom of the screen with the seconds 
and tenths of seconds flying by as you 
type in an alpha-numeric string. 


Subroutine 8400 reads the keyboard 
in tine 8434 with K equal to the ASCil 
number. Line 8447 subtracts 159 from 
ASCII so that now K is equai to the posi- 

- tion of the equivalent character in string 
A$ (line 8406). So you can see that we 
are sfowly building up two words in WS 
at line 8447 by adding, to the end of 
string W$, the next letter coming in on 
the keyboard until the ASC! equivalent 
of carriage return (141) is detected at line 
9444, 


Now when the princess fails into 
the snake pit, if she doesn’t make the 
right decision fast enough the snakes 
wilt probably get her. 


.-- 20 


40 


100 


120 


135 
140 
150 
160 
170 


180 
200 


204 
210 


220 


WRITTEN BY JOHN BRODERICK 
DALLAS, TEXAS 
REM JUNE 21, 1979 
SUBROUTINE 8400 IS A SELF 
CONTAINED INPUT TIME CLOCK 


REM. DEFINE ¥¥=YTAS & TT=TAB 
THEN GOSUB8400-THIS DOES THE 
SAME AS AN ORDINARY INPUT WS 


REM.COPYWRITED-CAN NOT BE SOLD 
BUT CAN BE GIVEN AWAY 

DIM TYPE$(259): CALL -936: POKE 

33,36 

INPUT "00 YOU WISH TO MAKE UP YO 

UR OWN TEST SENTENCE Y/N? * 

TYPES 

IF TYPES#"Y" THEN 90: PRINT 

: PRINT “ENTER TEST SENTENCE NOW 

“+ PRINT : PRINT : INPUT TYPES 

: GOTO 100 

TYPES="NOW IS THE TIME FOR ALL G 

OO MEN TO COME TO THE AID OF TH 

£1R COUNTRY.” 

CALL -936: PRINT :ERR@O: PRINT 

ae ARE TAKING A SPEED TYPING T 
J° 

PRINT : PRINT "TYPE THE NEXT SEN 

TENCE APPEARING ON THE SCREEN A 

S FAST AS YOU CAN” 

FOR I#t 10 4000: NEXT I: REM 


REM ~-- BODY OF PROGRAM -n<= 
CALL -936:ERR#0 ~ 

VV¥=13: REM SET SUBROUT VTAS 
Tre1: REM SET SUBROUT TAB 
VTAS (9): TAB 3: PRINT TYPES 
: GOSUB #400 

YVTAB (16): TAB 1 

IF W$=TYPE$ THEN 5130: REM 


REM COMPUTE ERRORS 210-410 
FOR T= LEN(WS) TO LEN(TYPES 
)iNSCT+1)28$(1,1): NEXT I 

FOR 1=1 TO LEN(TYPES): IF I> 
LEN(WS) THEN ERRZERR+1: IF 
TOLEN( WS) THEN NEXT I 

TF WSC, L}4TYPES(I 1) THEN 
ERReERR+1: NEXT I 

PRINT : PRINT : CALL -198: PRINT 
2  “-ERRs" ERRORS HIT RETU 
RN* + GOTO 520 


John Broderick, CPA 
8635 Shagrock 
Dallas, TX #5238 


410 CALL -198: PRINT * “;ERR;" ERRO 
RS"; HIT RETURN” 

500 REM - COMPUTE WPM 

501 T=(X*23)+0cL= LEN( TYPES): IF 
L@) THEN 520 

502 L*L-(ERR*6): IF L&@ THEN GOTO 


506 
S03 WPM=(L*12*20)/T 
506 WTA8 (24}: TAB 30: PRINT WPM; 
“ WPM": ¥TAB (16): TAB 1: RETURN 


510 PRINT ™ CORRECT + HIT RETURN” 
: PRINT : PRINT : PRINT : 

520 GOSUB 500: INPUT W$:WPM=0: GOTO 
140: REM 


S400 REM -SUBROUTINE TO INPUT VIA 
KEYBOARD TO RETAIN AND 
INPUT WORD IN WS 
8405 IF SWITCH*1] THEN 8407:SWITCHe 
1: DIM W$(255) ,A$( 70) ,BS(2)} 
38$={" " 
BANG AS=*14528' ( )*+,- ./0123456 789: ; 
<2°7 2@ABCDE FGHI UKLHNOPQRS TUVWXYZ 


8407 Y=T: POKE -16336,0:WS=“ °: 
X=0:J20 
8410 FOR Us) TO 250 
8412 REM USER AREA HERE X#SECONOS 
SO USER CAN TEST X LIKE 
IF X=12 THEN RETURN 
8430 JaJ+}: [F J€23 THEN 8434:X= 
X¢1:J20 
8431 FOR BB=1 TO 3:KK= PEEK (-16336 
}= PEEK (+16336): NEXT BB: GOTO 


8434 
8434 VTAB (24): TAB 13:U#U-1: PRINT 
X37." 50810/23;" SECONDS" |: 


Ke PEEK (-16384} 
8437 IF Ka136 THEN 8444:Y=¥-1 
8438 VTAB (VV): TAB TT+#¥-1: PRINT 
B${1,1) 
8440 W$(1)=WS{1, LEN(WS)-1) 
8441 VTAS (13): TAB 1: PRINT WS 


- 8442 PORE -16368,0: NEXT U 


B444 IF K=141 THEN 8540: IF KC60 
THEN NEXT U 
8447 KeK-159:WS(Y)=AS(K,X) 
8461 POKE -16368,0: VTAB (VV): TAB 
. PRINT WS:Ya¥et: NEXT U. 
g540 fri: CALL -756: RETURN 


Alarming APPLE 


Paul trwin 
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Canada 





a a 
Here is a way to program you APPLE to respond to 
errors with an alarm and keyboard lockout. 


a IR a LT LE 


instead of using the CTRL-G beep on 
your next program, here’s an alarm 
system written to assist in performing 
error recovery on the APPLE Ii. When the 
alarm system is used, your program will 
react to an error by Immediately locking 
the keyboard, sounding a continuous 
two-tone alarm, and forcing the 
operator's attention to an error recovery 
subroutine. No way will recognizable er- 
rors escape your edits once they meet 
the Alarming APPLE! . 


To use the alarm system, start with 
each o* your subroutines clearly defined 
as either error detecting or error correc- 
ting. This means that you will classify 
most of your “normal” routines as error 
detecting routines. Arrange to have ail 
of your routines invoked by a mainline. 
Then the mainline can invoke error cor- 
recting routines, as well, and still remain 
in control. This Is illustrated by the pro- 
gram shown here. 


in the BASIC listing, the one error 
detecting routine is catled TASK, while 
the error correcting routine is TRAP. The 
mainilne is free to decide what to do 
after recovery: whether to continue the 
same error detecting routine or to take 
any other action. An intelligent mainline 
of this sort can avoid most error 
recovary hassies. 





The key to the error recovery pro- 
cedure is a machine ianguage routine 
called ALARM. It is invoked from BASIC 


by executing a CALL 3529 and from 


trachine language by executing a JSA 
$0C9. The alarm routine will then 
generate a two-tone alarm continuously. 
4t the end of each cycie, it examines the 
nyboard for a CTRL-C. If none was 


found, It continues sounding the alarm. . 


But when a CTRL-C ts typed, the sound 
will stop and the routine will return. The 
effect is to produce a continuous sound, 
ignoring any input, until a CTAL-C Is 
entered. 


You may have your own ideas as to 
how the alarm should sound. The dura- 
tion of the first tone is in $DA2 and its 
period is in $09D. The second tone has 
its duration and pitch stored in $D8F 
and $DBA. The two that | employ are 
quite noisy, but you can experiment with 
other parameter pairs. Those periods 
that are relatively prime — having no 
common factor — will produce discord. 
They will be joudest when matching the 
APPLE's speaker resonance. 


When loading the routines, remember 
to set LOMEM greater than $000, the 
highest location in the alarm routine, so 
the two won't overwrite each other. The 
BASIC routine shown here will run as it 





appears, and will invoke the machine 
language routine. tf you are not bother- 
ing with the BASIC, simply JSR $DC9, 


After you run the Alarming APPLE and 
decide to use it for error recovery in your 
next program, consider these ideas: 


Organize the program into error detec- 
ting routines, one or more error recovery 
routines, and an inteillgent mainline. 


Use an error fiag in the recovery 
routines to inform the mainline. 


Use a status flag in the error recovery 
routines to indicate success or failure of 
the recovery procedure to the mainline. 


Let the mainiine make a// decisions 
regarding what to do next. 


For instance, if you are heavily into 
structured programming, you might con- 
sider a mainiine centered on a computed 
GOSU8 with the returns of each routine 
setting a status number pointing to the 
next routine. Or you may want to use IFs 
and GOSUBs tofether in the mainline as 
each case is decided. The important 
thing is to route ail control decisions — 
decisions that answer the question: 
“What next?" — through the mainiine. 
Including error recovery decisions. in 
fact, especiaily arror recovery decisions. 


21 REM. SASIC CALL SEQUENCE BOS1—- FF 297 


2 REM. FOR ALARM PROMPT ROUTINE 9082- FF PP? 
3 REM. @083- AD 38 Cv LDA 80932 
4 TASK=3se0a . @086- 33 DEY 
10 OFF 38: TASK#200: TRAP=320: ALARM=3529 6087~- O08 45 BNE s8DSE 
95 REM BO89- CE 82 uD DEC = HOB? 
36 REM MAIN LINE SEQUENCE BO3st=- FO Bd BEQ #6097 
397 REM @08E- CR DEX 
38 REM . - fe B0SF- 08 FS BNE #8086 
99 REM . - BOIi~ RE 312 80 LDX #8091 
100 ERR=O0FF: GOSUB TASK: IF ERR THEN GUSUB 8Oy4—- 4 83 UDO JmP $8033 
TRAP 8097- =6a RTS 
4182 REM. - : 6O098- AB BV LOY #5EId 
102 REM. - @OoR- R2 BB LOX #s288 
418 GOTO 32767 - 903C- RY 47 LOR = #847 
126 REM : BO9E- 8D 31 OD STA = 8BO81 
4121 REM BOR1~ AY AB LDA Os #SRS 
122 REM ; BOA3- sd 82 4D STA sebs2 
288 INPUT ERR: REM . USE FOR TEST BorSs- 23 83 ad JSR | $8083 
2140 REM BOR9— 2c Be CB BIT scue8 
244 REM PUT ERROR DETECTING TASK HERE @ORC- 14 B7 BPL sDR5 
212 REM REPLACING LINE 208 ; BORE- RO oo CB LOA Os SUB 
213 REM BOB1=- 2C 10 cB BIT scv10 
226 RETURN @0B4—- 6B RTS 
237 REM eoes- AG BB LDY #$0R 
298 REM 6067- Az we LOX #s28 
239 REM WOBI- AD 5B LOR = #68 
zee POKE S@,127: PRINT “ERROR: : POKE 50,255 eDB8=- sD 31 8D STA s8D84 
: PRINT ° TYPE A CTRLYC*: CRLL ALARM aOBE- AD RG LDA = #8 
1k REM gOCB—- = sD SZ BD STR = SDB? 
32 REM PUT ERROR RECOVERY ROUTINE HERE wocs—- ze 33 ad JSR #8033 
s3u FEM wOCE— = 4s HID JMP = - $8093 
34a RETURN BDrS—- 28 33 4D J3R $8053 
Bocc- cy 33 cme = #BS 


Figure 1: Exampte of a BASIC program invoking the 


alarm routine in Fig. 2. 3529 is $DCS. @OLE- O08 FS BNE. $8009 


BoDu- 6@ RTS 


Seat tte wen “id Figure 2: Machine language routine to 
sound two-tone alarm until ctri/C is 
typed. All other input is ignored. To 
demonstrate, type OC9G to the APPLE II 
monitor. 
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Life in the Fast Lane 


This high speed versi 
graphics on the APP 
implementation mak 


What? Yet another game of LIFE? Yes, 
this one’s for the APPLE !! computer, 
and it's a fairly quick one. The game runs 
in Lo-Res graphics using a 32 x 32 array. 
The current version is black-and-white, 
but adding color should not prove too 
difficult a task. The assembly language 
modute which actually computes the 
generations is capable of running off 
about three per second on the APPLE 
screen. 


The program is designed to utilize 
both of the APPLE's graphic screen buf- 
fers to avoid the ripple effect which oc- 
curs when the display is updated. When 
both buffers are used, the new image is 
created in the buffer not currently being 
displayea on the screen; after the com- 
plete: Image is created, the buffers are 
swapped via the hardware controls in 
the APPLE. 


In addition to the two screen buffer 
areas, the actual LIFE generations are 
performed in a 32x 32 array (1K bytes). 
Separating the screen and LIFE array 
makes it easier to interface with the 
LIFE program from BASIC; in addition, a 
speed increase was realized because it 
was not necessary to “read” the screen 
points to compute the next generation. 
The code to perform an assembly 
language SCRN{X, Y) function, although 
short, requires computation of screen 
coordinates. This computation would 
cost vaiuable compute-time. 


Richard AR. Auricchio 
1596 Stapleton Court 
San Jose, CA 95118 


Program Organization 


There are two entry points to the LIFE 
program. One, which performs initializa- 
tion, is used to clear the LIFE array and 
set up the screen buffer pointers. The se- 
cond screen buffer is then blanked out 
by copying the first Into the second. 


The second entry is the “run” entry to 
perform LIFE generations. This is the 
main ;=rt of the LIFE program. It runs 
until either the screen becomes com- 
pletely blank, or the user hits any key on 
the APPLE keyboard. The program will 
not detect a stabie LIFE pattern. It will 
keep running more generations even 
though the display does not appear to 
change. 


The LIFE program makes two passes 
over the LIFE array to compute each 
generation. The first pass sets up pen- 
ding births and deaths within the array. 
This is done by. accessing cells 
(neighbors) which border the current cell 
being examined. The array is allowed to 
wrap around and going off one edge br- 
Ings you back in on the other side. The 
second pass completes the birth/death 
process, displays the ceils in the inac- 
tive screen buffer, and swaps the 
screens. This process continues until all 
cells die or a key is hit. In either event, a 
return is made to the BASIC program; 
the screen and LIFE array are 19? 
altered. This allows the BASIC progran: 
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on of the game of LIFE uses lo-res 
LE ll. A clean assembly language 
es it easy to enhance or adapt. 


to actually edit the LIFE array, say, to 
add/delete celis or to center the image 
on the screen. 


Driving the Program from BASIC 


A simple Integer BASIC driver ts in- 
cluded here: It allows one to type In 
points untlf (0.0) is entered, and then 
calls the LIFE program to display gener- 
ations on the screen. No fancy aditing 
facilitlas have been coded, but they’re 
easy enough to add If you find them 
useful. 


Structuring the Code 


The LIFE program was coded using 
straightforward techniques. No tricks or 
shortcuts were used to save a byte here, 
a microsecond there. Comments have 
been sprinkied throughout the listing to 
enable changes or customization of the 
module, and coding tricks might have 
made that next to impossible. 


Use with APPLE DOS 


The LIFE program is completely com- 
patible with APPLE DOS (both versions 3.1 
and 3.2}. There are no memory areas us- 
ad which will conflict with DOS usage, 


_ and no DOS features are affected by runn- 


ing LIFE. Users with DOS systems should 
BSAVE the LIFE module and insert an ap- 
propriate BLOAD command at the beginn- 
Ing of the BASIC driver program. 





1000 
1003 
1005 
1007 
1009 
100A 
woe 
100F 


1011 
1043 
1015 
1017 
1018 
101A 
101C 
OE 
1020 
1022 
1023 
1625 
1028 


A2 
86 
86 
CA 
86 
A2 
86 
A2 
86 
CA 
86 
20 
60 





' * 
® THE GAME OF LIFE FoR * 
® THE APPLE-II, ON A §& 
® 32 X 32 ARRAY. ' 
* a 
® BY RICK AURICCHIO * 
® 30-30-78 ® 1029 
# MODIFIED BY MICRO #* 
@ STAFF 7-17-79 * 
2 ’ 
SERECASESEREAHRBTERTTCES 
APTR # $0000 LIFE ARRAY POINTER (LO) 102¢ 
NPTR $0002 NEIGHBOR CELL POINTER (LO) 102E 
NNUM o® $0004 NUMSER NEIGHBOR CHECKS 1030 
NCNT # $0005 NEIGHBOR COUNT 1032 
NCELLS * $0006 NUMBER LIVE CELLS 1034 
CRT s $0007 CRT OFFSET: O00=1ST, O4=2ND 1036 
COLOR * $0030 PLOT COLOR 1037 
GBASH * $0027 GRAPHIC BASE ADDRESS (HI) 
A1L « $003C MONITOR WORK BYTES 
AIH a $003D 
A2L bl $0035 
AcH ‘ $003F 
AaL a $0042 
ef oes 1038 
1038 
ASTART ® $000C START PAGE FOR ARRAY 103E 
AEND * $0010 END PAGE FOR ARRAY 1040 
KB * $c0O00 KEYBOARD INPUT ADDRESS a 
KBS s $C010 KEYBOARD STROBE CLEAR 1047 
CRTFLI * $c054 co54/C055 FLIPS CRT 1049 
GBASCA * $F847 CALCULATE PLOT ADDRESS 1048 
MOVE * $F32C BLOCK MOVE ROUTINE © 1O4D 
® HEMORY LAYOUT: ee 
® PAGE(S) CONTENT 1053 
# 04-07 CRT#FI 
# 08-0B CRT #2 
® 0C-OF LIFE ARRAY 105? 
# 40-11 PROGRAM 
* 
ens =. $1000 1055 
a 
® CALL TO INIT WILL CLEAR THE LIFE ARRAY ‘aco 
® AND SET UP THE APPROPRIATE CRT POINTER 105B 
# 
DA 10 INIT JSR ORIGIN SET ARRAY POINTER 
o4 LDAIM $04 - SET CRT TO SECOND 
07 STA CRT FOR THE FIRST GENERATION] 105D 
00 LDYIM $00 ZERO INDEX 105F 
CLRA TYA ZERO THE AC 
00 STALY APTR CLEAR ARRAY BYTE 
E5 10 JSR BUMP BUMP TO NEXT BYTE 
FS BCC CLRA =>MORE TO DO 
e 1061 
# CLEAR SECOND CRT BUFFER 1063 
e 1065 
00 LDXIM $00 1067 
3c STX Ail SET UP ADDRESSES 1069 
42 STX A4L TO COPY CRT DATA: 1068 
DEX O400-O7FF ==> O800-OBFF § 106D 
3E STX A2L 106F 
o4 LDXIM $04 
3D STX A1K 107 1 
08 LDXIM $08 1073 
43 STX ASH 
DEX 1075 
3F STX A2H 1077 
2c F3 JSR MOVE BLOCK MOVE 3079 
RTS DONE. BACK TO BASIC(S) 1078 
107D 
1080 
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20 


A9 
85 
AS 
85 
AS 
OA 
AA 


18. 


A5 


7D. 


85 


AS 


7D 
c9 
BO 
cg 
BO 
69 
DO 


ES 
85 


ij 
®@ ENTRY AT RUN WILL DO THE 
_ PROCESSING UNTIL EITHER: 
& 1) ALL CELLS DIE, OR 
* 2) ANY KEY IS HIT. 
® IT WILL THEN RETURN 
¢. 
DA 10 RUN JSR ORIGIN SET ARRAY POINTER 
a 
® PASS1 WILL SCAN THE ARRAY . 
# AND SET UP BIRTHS/DEATHS 
® FOR ALL CELLS 
4a 
07 PASS1 LDAIM $07 SET TO CHECK OUT 
o4 STA NNUM SEVEN NEIGHBORS 
90 LDAIM $00 THERE ARE NO 
05 STA NCNT NEIGHBORS YET 
04 NBCHK LDA NNUM GET NEIGHBOR NUMBER 
ASLA AND MAKE IT A 
TAX 2-BYTE INDEX 
2 
& SET NPTR BY ADJUSTING THE CURRENT 
® CELL POINTER BY THE FOLLOWING VALUES: 
# 233, -32, -31, -1, #1, #31, +32, +33 
$ 
CLC 
00 LDA APTR GET LO HALF 
OA 11 ADCX OFFSET ADD/SUBTRACT 
02 STA NPTR SET NPTR LO 
01 LDA APTR +01 GET HI HALF 
OB 11 ADCX OFFSET +01 ADD/SUBTRACT 
10 CMPIM AEND PAST THE END OF ARRAY 
08 BCS SUBO4 =>YES: BACK IT UP! 
oc CMPIM ASTART BELOW START OF ARRAY? 
06 BCS STORE =>NO: WITHIN BOUNDS 
oO4 ADCIM $04 BUMP UP INTO ARRAY 
02 BNE STORE AND GO STUFF NPTR 
o4 SUBO4 SBCIM $04 BACK UP INTO ARRAY 
03 STORE STA NPTR +01 NOW SET NPTR HI 
2 
® CHECK OUT THIS NEIGHBOR 
. 
00 LDYIM $00 INDEX = 0 
02 LDAIY NPTR GET NEIGHBOR 
02 BPL WNEXTNB =>NONE HERE 
05 INC NCNT =>ONE HERE: COUNT UP 
a 
® TRY NEXT NEIGHBOR 
# 
o4 NEXTNB DECZ NNUM MORE TO DO? 
D3 BPL NBCHK =>YES: DO ALL 
a 
* ALL NEIGHBORS COUNTED 
® MAKE LIFE/DEATH DECISION 
& 
05 LDX NCNT GET CURRENT COUNT 
00 LDALY APTR GET CURRENT CELL 
OA BPL CHKBIR =>EMPTY: MAYBE BIRTH HERE? 
02 CPXIM $02 ALIVE: TWO NEIGHBORS? 
12 Bcc DIE => 0 OR 1: DIE! 
o4 CPXIM $04 4-7 NEIGHBORS? 
OE BCS DIE =>YUP: DIE OF OVERCROWDING! 
o4 BCC SURVIV =>2 OR 3: SURVIVE 
03 CHKBIR CPXIM $03 EXACTLY THREE NEIGHBORS? 
0&8 BNE DIE =>NO: EMPTY CELL STAYS DEAL 
06 SURVIV INC NCELLS BUMP COUNT OF LIVE CELLS 
ko LDAIM $40 OR" IN 4O BIT 
00 ORAIY APTR TO SURVIVE 
00 STAIY APTR THIS TIME 
E5 10 DIE JSR BUMP SET NEXT CELL TO DO 
AA BCC PASSt =>MORE TO DO 





e 
@ PaSS2 WILL DISPLAY THE : ° 


® ARRAY BY PLOTTING POINTS ® CARRY TELLS IF WE HIT 
® IN CAT #1 OR #2 AND ; . 
: WILL THEN SWAP SCREENS 7 oe poe 
¢ 
1082 81 00 PASS2 LDAIY APTR GET CURRENT CELL. 10ES E6 00 BUMP INCZ APTR BUMP LO HALF 
1084 A2 00 LDXIM $00 ASSUME DEAD: COLOR = Of ioe7 no og BNE BUMPO =>NOT OFF END 
1086 Os ASLA SHIFT ONE BIT LEFT 10E9 £6 01 INC APTR +01 BUMP HI HALF 
1087 91 00 STAIY APTR AND PUT BACK ienaS61 LDA APTR «01 GET IT 
1089 FO 02 BEQ = SETCOL =>NOT ALIVE! 1OED C9 10 CMPIM AEND OFF THE END? 
1080.86.50 SRTCOL STE COLO 10F1 A9 OC LDAIM ASTART =>YES: RESET AND 
108F AQ 1F LDAIM $1F X CO-ORDINATE IS 10F3 85 Ot STAZ APTR +01 TELL CALLER 
1091 25 00 AND APTR LOW 5 BITS 1OF5 38 - SEC ; 
1093 18 cLc BUMP DOWN TO 10F6 60 RTS 
1096 A8& TAY OF APTR 10F8 60 RTS 
1097 45 00 LDA APTR Y CO-ORDINATE IS ig 
1099 4A LSRA HIGH 3 BITS ® SPECIAL FORM OF *PLOT* 
ee 7 en je 4 ROUTINE: MONITOR'S ONE 
@ DOESN'T ALLOW PLOTTING 
1096. as ® IN SECOND CRT BUFFER, 
19D 4A LSRA APTR # $0 WE ADD A HOOK FOR IT 
109E 85 04 STA NNUM HOLD TEMPORARILY : 
1040 a9 03 LDAIM $03 NOW MERGE IN 10F9 4a PLOTX LSRA 
104 OA ASLA APTR BI . 
oie Ok acre a io 10FB 20 47 F8 ' JSR GBASCA 
aa 98 04 a NNUM ce ORDINATE i piled eather 
= td 
1009 18 CLC BUMP DOWN TO 5 iileset segreet rey ee 
AA 69 OF ADCIM $04 CENTER OF CRT ® WE WILL NOW UPDATE THE 
WAC 20 F9 10 JSR  PLOTX PLOT THE POINT ® HT ADDRESS IN "GBASH™ 
® TO FORCE PLOTTING IN THE 
® CORRECT SCREEN BUFFER 
€ 
1OAF AO 00 LDYIM $00 INDEX ao 
10B3 20 E5 10 JSR BUMP BUMP TO NEXT POINT bene oF aT ae eet na Be ie 
d 1103 85 27 STA GBASH POSSIBLE SECOND CRT 
* SET HARDWARE TO DISPLAY THE CURRENT 1105 4c 05 FB JMP = $F 805 AND CONTINUE WITH 
® SCREEN AND SWAP OVER TO THE OTHER SIDE . 
* # DATA AREAS 
10B6 AS OT LDA CRT GET CRT NUMBER ® (READ ONLY) 
10B8 4A LSRA SCALE DOWN ‘ 
10B9 4A LSRA TO 0 OR 1 RANGE 1108 08 CRTNUM 2 $04 
10BA AA TAX TO INDEX REG 1109 00 E $00 
10BB 9D 54 CO STAX CRTFLI FLIP CRT DISPLAY +1040 DE OFFSET = SDF 
10BE BD 08 11 LDAX CRTNUM GET CRT NUMBER ober SEF 
10C1 85 07 STA CRT FOR NEW CAT tec £0 z $E0 
é 
® CONTLNUE RUNNING UNLESS oe - a vie ° 
«ALL DEAD OR KEY HIT MOF Fe : $FF 
10C3 AD 00 CO LDA KB CHECK KEYS a ee i Te 
10C6 10 07 BPL NOKEY =>NO KEY HIT aocak : 301 
2s OCB 8D 54 CO RETURN STA CRTIFLE SET CRT #1 ALWAYS 1113 00 : $00 
{OCB 8D 10 CO STA KBS CLEAR KEYBOARD reer $1F 
ieee 90 are 1115 00 z $00 
{OCF AS 06 NOKEY LDA NCELLS GET COUNT OF CELLS 4946-30 Z $20 
10Dt FO FS BEQ RETURN =>ALL DEAD siagcos ‘i 300 
1003 a9 00 LDAIM $00 MORE LEFT sa7824 o $21 
10D5 85 06 STA NCELLS CLEAR COUNT AND 1119 00 Z $00 
10D7 4C 2c 10 JMP PASS? GO AROUND AGAIN 
. SYMBOL TABLE 2000 20FC 
® SET UP ARRAY POINTERS AEND 0010 APTR 0000 AQH 003D AQL 003C 
; ‘ ARH 003F ARL 003£ ASTART O000C ATH 0043 
10DA AQ 00 ORIGIN LDAIM $00 SET UP THE ATL 0042 BUMP 10£5  BUMPe {0F7  CHKBIR 1071 
10pc 85 00 STA  APTR LO BYTE OF APTR CLRA 1009 COLOR 0030 CRTFLI C05’ CRTNUM 1108 
10DE 85 06 STA NCELLS AND CLEAR CELL COUNT CRT 0007 DIE 1072 #GBASCA F847 GBASH 0027 
10E0 a9 OC LDAIM ASTART SET UP START INIT 1000 KB cooo 430d«xKBS.-—(‘<é‘CO1O~CSC«SMOWESC*«é32C™ 
10E2 85 01 STA  APTR +01 OF ARRAY NBCHK 1034  NCELLS 0006 NCNT 0005 NEXTNB 105D 
10E4 60 RTS WNUM 000% | =NOKEY 10CF NPTR 0002 OFFSET 110A 
2 ORIGIN 10DA  PASSQ 102C  PASSR 1082  PLOTX 10F9 
# BUMP APTR. RESETS [T IS RETURN 10C8 RUN 1029 SETCOL 108D STORE 1053 
® WE GO PAST END OF ARRAY. SUBPT 1051 SURVIY 1075 
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Sorting with the APPLE Il 





The first of a series of articles which will deal with sort- 
ing in general and on the APPLE II in particular. This in- 
stallment presents some background material, a com- 
parison of three sorting techniques, and a program for 
implementing the Shell-Metzner sort. 


Whether you are maintaining complex 
data bases, compiling mailing jists, or 
simply keeping track of your checkbook, 
at some time you will need to sort 
records. There are a multitude of sorts 


available — from the agonizingly slow: 


one in the APPLE CHECKBOOK pro- 
gram, through the relatively fast BASIC 
sort, to my exceedingly fast (by a factor 
of 200) machine language sort. What 
makes a sort fast, and which sort is the 
fastest? These are the questions | will 
cover in my series on exploring sorting 
with the APPLE Il. 


Background 


There have been many magazine articles 
written on sorting. The ones | based my 
initial investigation on were those in the 
Nov-Dec 1976 issue of CREATIVE COM- 
PUTING covering the SHELL-METZNER, 
bubbie, delayed replacement, and heap- 
sorts, and the JAN-FEB 1978 issue of the 
same magazine on the Butterfly-Hart 
sort. The first articta found the Shell- 
Metzner and heapsorts to be a vast im 
provement over the bubble and delayed 
replacement sorts. The second article 
found the Butterfly-Hart to be even 
faster. The Shell-Metzner and heapsort 
are replacement-type sorts; that is, the 
records are compared to one another 
and replace each other according to 
some unique algorhythm. They are rela- 
tively smal! in size and don’t rely on 
much extra storage for their processing. 


The Butterfly-Hart is a linked list sort. A | 


tree structure is built from the records 
and broken down into several smalier 
sorted lists. These Jists are then merged 
to torm the finai result. This sort is much 
faster for large numbers of records, Dut 
is quite complex and requires extra 
storage to hold the lists and tree struc- 
ture. For more details on how these 
sorts operate, | leave you to refer to the 
original articles. 


| programmed each of these sorts in 
INTEGER BASIC and compared them by 
sorting various numbers of random ten 
character strings. Selow were the 
results. 


- Gary A. Foote 
127 Mt. Spring Road 
Tolland, CT 06084 
Table | — Sorting in BASIC 
SORTED WORDS 
SORT 10 100 500 1000 
SHELL-METZNER 1 34 268 647 
BUTTERFLY-HART 2 38 266 606 
HEAPSORT 1 35 261 600 


(Alt sorting times in seconds) 


For further exploration, | decided to use 
the Sheli-Metzner sort because it was 
easiest to program and most compact. 
Many things had to be taken into ac- 
count before implementing this sort in 
INTEGER BASIC, Because of the fimited 
string support in this BASIC, it is easier 
to store records to be sorted in memory 
between the upper end of the data 
variables and the lower end of the pro- 
gram area, accessing them with PEEK’s 
and POKE’s. At first, as | sorted these 
records, | exchanged the actual records 
in memory when necessary. This 
becomes very time consuming because 
tor exchanging two 10 character records, 
you must move 30 bytes (10 to a work 
area, 10 from ons record to the other, 
and 10 from the work area back to the 
other record). A much more eiegant 
technique is to store the address of each 
record as a member of an array. When an 
exchange is necessary, you need only 
exchange the addresses in the array, 2 
total move of 6 bytes (2+ 2+ 2) for any 
size record. When the sort is complete, 
the addresses of the sorted records can 
be found sequentially in the array. The 
first member of the array wiil point to the 
jowest sorted record, and the last 
member to the highest sorted one. The 
records can be read out in the proper 


order quite simply, and can easily be . 


sorted in reverse order simply by reading 
the array backwards. The beauty of this 
method is that the records have never ac- 
tuaily moved and can be read in the 
original order as simply as the sorted 
order. This reduction alone increases the 
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speed of the sort by a factor of three for 
a 100 record sort, and exponentially 
above that. 


My BASIC version is divided into several 
parts. The first part: generates random 
character strings in memory, depending 
on the record size and count entered. 
This is for benchmark tests and can be 
replaced with your own I/O routine for 
your application. Line 140 actuaily puts 
the: random characters in memory, so 
replacing this line with a REM after your 
first run ailows you to test other sorting 
methods while using the same records. 
The second part merely initializes the 
memory pointer array and prints the un- 
sorted strings. This can also be included 
in your VO routine. The third part is the 
actual SHELL-METZNER- sort. The 
routine can be easily changed if you 
wish to sort numbers in an array instead 
of strings in memory. Finaily, there is a 
routine to print the results, and a handy 
routine from CALL-APPLE for finding the 
address of a variable in the data area. 


SWEET-16 for Size 


Never being satisfied, | decided to con- 
tinue another step and try to program the 
sort routine in SWEET-16 (as ail you 
APPLE people know, a 16 bit interpreter 
implemented in ROM). An excellent ar- 
ticle in the NOV 1977 issue of BYTE 
{or the BEST OF BYTE VOL 1) was my 
source for SWEET-16 information. 
SWEET-16 was 4 to 9 times faster than 
the BASIC sort, and very compact due 





to the powerful instruction set. But due 
to difficulty in implementing, and be- 
cause the machine language routine was 
several orders of magnitude faster, | 
am not including this material. Don't 
feet bad. Because | know of no SWEET- 
- 16 assembler, writing this program was 
actually harder than the machine 
language version. 


Machine Language for Speed 


The machine language implementation 
of SHELL-METZNER was not difficult, 
because | was almost transiating direct- 
ly from each BASIC statement into 
equivalent functions in machine code. 
As you can see by the listing in Figure 2, 
j made extensive use of PAGE ZERO 
addressing, both to cut down on code 
and increase speed. } left in BASIC ail 
the 0 routines and setup necessary 
to prepare the sort, since this is quite 
‘aasy in BASIC and t already had the pro- 


3 sets up the variables needed by the 
sort and caiis the machine language, 
routine, it can be substituted for the sort 

routine in the BASIC version in Figure 1 

(fines 1000-1900). The sort routine itseif 
(in Figure 2) Is loaded at address 300- 

3C2. This routine is easily relocatable 
to any other address (say 800 if you are 
using 300 for another routine). Ail you 

need to do is load it where desired and 

change the last two instructions (2 JMP 

commands) to reflect your new location. 

You must, of course, change the CALL 

in your BASIC program also. 

Below is a comparison of my three dif- 

ferent implementations of the Shell- 

Metzner sort. 


The maximum number of records you 
can sort is easily determined by taking © 
the memary size between data high and 
program low and dividing it by the record 
size + 2 (the size of the array element 
needed to hold the pointer to the record). 
{find with a 32K machine running DOS, 
| have 18K free. More memory is avaii- 
abie if you want to lose DOS of course. 
Machine language routines may be more 
trouble to impiement, but with an in- 
crease in speed over BASIC by a factor 
of 200, you cannot ignore them. 


yu 


Table {i — Comparison of Three Methods 


SORTED WORDS X WORD LENGTH 


1000 X 10 


gram written from the first probiém. METHOD 500 X 10 3600 X3 
The actual sort algorhythm is the only 
part | programmed in machine code. ‘ 
Thus we get the benefit of BASIC for I/O, BASIC 268 746 4200 (70 min) 
printing, atc. in 1% of the execution, and SWEET-16 4 158 . — 
the machine code speed for the repeta- MACHINE 1 3 21 
tive looping in99% of the execution. 
Using this machine language sort is rel- ‘ . : 
atively easy. The BASIC routine in Figure (Ali sorting times in seconds} 
- a 12 +0: =~ Figure t- 

10 REM KEK KKEREKK KEK KEKE RE KK ER EE KEK 

20 REM & SHELL *METZNER SORT ® 

30 REM * BY GARY FOOTE * ‘ 

GQ REM KRKERKEKKKRERRER REE R KR ERR RE RE ie 

50 CALL +9363 PRINT > PRINT "*SHELL*METZNER SORT": PR INT 


60 INPUT "ENTER RECORD COUNT AND LENGTH", NUM? LEN 
AS( 255) 2 AC NUM) : 

a DIM eal cMeXcTEZSLL2I I sLMZHM=ADDR=W2 NE REM SAVE SPACE FOR VARIABLES 

90 LMs PEEK (204%) + PEEK (205) *256:HMS 32767 

95 REM 

199 REM «kekee FILL MEMORY WITH DATA kk eK FEF 

105 REM 

110 PRINT 2 PRINT "CREATING RANDOM STRINGS” 

120 IF LMFLEN®NUMCHM THEN 140 

130 PRINT "TOO MUCH DATAI!S*: END 

140 FOR X21 TO LEN*NUM: POKE LM#X» RND (26) +193: 

150 REM 

290 REM kkKKKK INITIALIZE MEMORY POINTER ARRAY kk KEKEK 

20905 REM 

910 AS=*AS Ts GOSUB 4099 

220 FOR X=1 TO NUMIA(X) (X91) #LENtL Mtl 

230 TzA(X): GOSUB 3000 

240 NEXT X 

250 REM 


NEXT X 
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(1909 
1019 
1100 
1200 
1309 
1400 
1590 
16090 


1700 
1809 
1909 
1919 
2009 
2095 
2019 
2029 
2030 
20490 
2059 
2069 
30090 
3005 
3019 
3020 
3039 
3040 
3950 
3069 
$0090 
4005 
4019 


4020 
4039 
4940 


4059 


1099 
1019 
1100 
1200 
1309 
1400 
1500 


1600 
1700 


REM. kk kee SORT ROUTINE «kk kk&k 


REM ; 

PRINT $ PRINT "STARTING SORT" 

NENUM’ M=N 

M=M/2: IF M=0 THEN 1900S KeEN-M3 Jel 

I=J 

LaIYeMsIISAC(T) SLL=A(L) 

FOR X20 TO LEN-lLiws PEEK (I7#X)- PEEK (LLtEX)!?2 IF weo THEN 18003 IF 
W>O0 THEN 1709: NEXT X: GOTO 1809 

THACI) SACI SACL) SACL STS TSLeMe2 IF I>2t FHEN 1509 

JaJ+t13 IF JK THEN 13093 GOTO 1409 

PRINT $ PRINT "ENOING SORT" 

REM 

REM #*«keke*k PRINT RESULTS tt kkk t 

REM ve 

AS="AS"3 GOSUB 4009 

FOR X=1 TO NUM 

TSA(X)$ GOSUB 3009 

NEXT X 

END 

REM . _ 

REM «kkkkk STRING PRINT ROUTINE kk ke e& 

REM 

FOR Z=0 TO LEN=-1 

POKE ADOR+Zs PEEK (T#Z)3 REM ARRAY AS 

NEXT Z3 POKE ADDR+t?Z» 30 

PRINT X+A$ 

RETURN ee ee 

REM 

REM «kkk FIND VARIABLE'S ADDRESS 

REM 
ADDOR= PEEK (74)+ PEEK (75) *256-1:3K= LEN(AS)$Uz PEEK (204) + PEEK (205 
VE256"«1SL 502 IF AS(KeK)H"S"* THEN &O208KSK-13L=1 

FOR IJ=1 TO K: IF ASC(AS(I))# PEEK (CADDR+I) THEN 40403 NEXT I 

TF. PEEK (ADOREI+L) >1 THEN GOGOSADDREADDREKFGEL? RETURN 

FOR Is1 TO 3:09: IF PEEK (I+ADDR)>1 THEN NEXT IS ISADDR+eI+i23ADDR= PEEK 
(I) + PEEK (T+1) «256-1 

IF ADDR¢CJ THEN 4020: PRINT "VARIABLE "*4AS3" NOT FOUND": END 


Figure2 


c 


REM #&k«kee SORT ROUTINE ee kK EE 

REM 

PRINT : PRINT "STARTING SORT” 

AS="A7™$ GOSUB 4009 7 

POKE 0+ADDR MOD 256: POKE 1/ADDR/256: REM STORE ARRAY ADDRESS 

POKE 29LEN3 REM STORE RECORD LENGTH (MUST BE < 256) 

POKE GeNUM MOD 2563 POKE SeNUM/2563 POKE 6*NUM MOD 256: POKE 7+NUM/ 
256: REM STORE NUMBER OF RECORDS | 

CALL 768: REM CALL SORT ROUTINE 

PRINT 3: PRINT "ENDING SORT” 
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0300- 
9302+ 
9304-6 
0396-6 
0308 
Q30Ae¢ 
0308- 
030C > 
O3S0E> 
0310- 
03127 
0314s 
0316- 
0318- 
O31A> 
031C- 
O31E- 
0320- 
03220 
O324< 
0326-* 


&6 
66 
D9 
A5 
09 
60 
38 
A5 
£5 
85 
A5 
ES 
85 
AS 
85 
A9 
85 
A5 
85 
A5 
85 


07 
96 
05 
07 
O01 


94 
06 
JE 
05 


OF 
01 
oc 
09 
oD 
oc 
08 
00 
09 


1990 


1910 
10920 
1039 
1040 
1950 
1060 
1070 
1080 
1090 
1190 
1110 
1120 
1130 
1140 
1150 
1160 
1179 
1180 
1190 
1209 
1210 


-1229 


1230 
1240 
1250 
1260 
1270 
1280 
1299 
1309 
1319 
1320 


1330. 


1340 
1350 
1360 
1370 
1380 
1390 
1409 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1509 
1510 
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« SHELL =METZNER SORT « 
« BY GARY As FOOTE « 
€ COPYRIGHT 1979 * 


« COMMERCIAL RIGHTS RESERVED * 


“Kaeser steagr esse arasawassssteaserk 


k VARIABLES AND CONSTANTS 

* 2 

« ALL VARIABLES ARE TWO BYTES. 

« THE LISTED NAME IS THE LOW ORDER BYTE. 
& THE NAMEt1 IS THE HIGH ORDER BYTE. 

* EX. I = LOW ORDER BYTE 

P I+, = HIGH ORDER BYTE 

« i. 

ADRA ,E@ $90 
LEN .E@ $02 


ARRAY A ADDRESS 
RECORD LENGTH 


N »EQ $04 NUM OF RECORDS 
M sEQ $06 M 

I ~EQ $08 I (RECORD I) 

L wEQ SOA L (RECORD L) 

J sEQ $0C J 

K oEQ $OE K 


PTR TO ADOR OF A(T) 
PTR TO ADOR OF A(L) 
ADOR OF REC A(T) 
ADDR OF REC A(L) 


PTRI .EG $10 
PTRL .E@ $12 
ADRI .£0 $14 
ADRL .EQ $16 


k SORT ROUTINE 


eOR $309 
SORT LSR Mtl M=sM ¢# 2 
ROR M 
BNE SRT) - IF M=Q 
LDA Mtl 
BNE SRT1 THEN 
RTS DONE ! 
SRT1 SEC 
LDA N K = N= M 
SBC M 
STA K 
LDA Nti1 
SBC M+tL 
STA Ktl 
LDA #1 J = 1 
STA J 
LDA #0 
STA Jel 
SRT2 LDA J ITad 
STA I 
LDA Jt2l 
STA Ji 
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0325+ 
0329+ 
032B- 
032D- 
032F - 
0331° 
0333-6 
0335¢ 
0337+ 
0339 
033B- 
0330+ 
O33F< 
0341+ 
0343 
O344- 
03466 
0348» 
034A>" 
034C= 
O34E @ 
0350- 
0351°> 
0353- 
93556 
0357 
03596 
035566 
035D~ 
O35E« 
03605 
0362-= 
0364- 
0366- 
0368- 
0369- 
036B-= 
036D- 
036F = 
O371¢e 
0372- 
03742 
0376e 
0378- 
O37A« 
037Be 
0370+ 
O37F 
03812 
03836¢ 
0385-= 
O387- 
0389- 
0386-< 
038Co 


18 
A5 
65 
85 
A5 


85 
A5 
85 
85 
AS 
85 
85 
AO 
18 
AS 
65 
85 
AS 
65 
85 
18 
AS 
65 
85 
AS 
65 
85 
88 
DO 
Bi 
85 
Bl 
85 
C8 
BL 
85 
BL 


88 
Bi 
D1 
90 
DO 
C8 
Ch 
DO 
FO 
AQ 
A5 


A5 
91 
C8 
A5 


08 
06 
OA 
09 
07 
08 
09 
10 
12 
91 
11 
135 
02 


10 
98 
10 
11 
09 
iL 


12 
OA 
12 
13 
0B 
13 


E3 
10 
14 
12 
16 


10 
15 
12 
17 


14 
16 
31 
07 


02 
F3 
28 
00 
14 
12 
16 
10 


15 


1529 SRT3 CLC 


1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1789 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1909 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19890 
1990 
2090 
2010 
2020 
2030 
2040 
2050 
2060 


SRT4 


SRTS 


SRT6 


LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 


STA 


STA 
LDA 
STA 
STA 
LDY 
CLC 
LDA 
AOC 
STA 
LDA 
ADC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
DEY 
BNE 
LDA 
STA 
LDA 
STA 
INY 
LDA 
STA 
LDA 
STA 
DEY 
LDA 
CMP 
BCC 
BNE 
INY 
CPY 
BNE 
BEG 
LDY 
LDA 
STA 
LDA 
STA 
INY 
LDA 


T 

M 

L 

Tri 
Mei 
Lei 
ADRA 
PTRI 
PTRL 
ADRAtL 
PTRI+1 
PTRL1L 
R2 


PTRI 

I 

PTRI 
PTRI+1 
T+ 
PTRI+1 


PTRL 

L 

PTRL 
PTRL#1 
Lei 
PYRL#+1.. 


SRTY 
(PTRI) + ¥ 
ADRI 
(PTRLI*Y 
ADRL 


(PTRI) + ¥ 
ADRI Fi 
(PTRL) > ¥ 
ADRL +2 


(ADRI) + Y 
(ADRL) + Y 
SRT 
SRT6 


LEN 

SRT5 
SRT8 

#9 

ADRJ 
(PTRL) + ¥ 
ADRL 
(PTRI) oY 


ADRI +} 
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INITIALIZE PTRS 
TO ARRAY A 
ADDRESS 


PTR TO A(T) = 
ADDR ARRAY A + 
2¢«f7 


PTR TO A(L) = 
ADOR ARRAY A + 
2e* L 


DO 2 TIMES 
(PTR DISP IS 2 BYTES) 
II 2 ACT) 


LL = ACL) 


COMPARE ONE BYTE IN 
RECORDS I @L 

Tce 

Io>k 

rat 

END OF RECORD? 

NO» NEXT BYTE 
RECORDS EQUAL 


A(T) <=> ACL) 





Q38E- 91 12 2079 STA (PTRL)?Y 


0390- A5 17 2080 LDA ADRL#L 

90392- 91 10 2090 STA (PTRI}+Y 

0394- 38 2100 SEC 

0395 AS 08 2110 LDA I Ia Iewm 

0397= E5 96 2120 SBC M 

0399+ 85 08 2130 STA IT 

039B- AS5 09 2140 LDA Iti 

039D- E5 07 2150 SBC MPL 

039F- 85 09 2169 STA Tt 

O3ZAL= 90 96 2170 BCC SRTS 

O3A3- DO 83 2180 SRT7 BNE SRT3 IF I > 9 THEN STR3 

O3A5e AS 08 21990 LDA I 

03A7~ DO FA 2200 BNE SRYT7 

O3A9- E6 OC 2210 SRT8 INC J JaJvutil 

O3AB- DO 02 2220 BNE. SRT9 

03AD= E6 OD 2230 INC JL 

Q3AFe AS OF 2240 SRT9 LDA KFl 

03B81- C5 AD 22590 CMP Jel IF J >K 

0383+ 90 9B 2260 BCC JUMP2 THEN SORT 

0385 DO 96 2270: BNE JMP1 ELSE SRT2, 

‘03B7* A5 OE 2280 LDA K 

93B9- C5 OC 2290 CMP J 

N3BB- 99 93 2309 BCC UMP2 

93BD- GC 20 03 2310 JMP1L UMP SRT2 CHANGE IF RELOCATED 

93CO- &C 09 93 2320 JMP2 UMP SORT CHANGE IF RELOCATED 

: 2330 eEN 
$$300.3C2 . oe ee te 
03090» &6 07 66 06 DO 05 AS 97 
03082 DO 021 60 38 AS 04% ES 06 
0319- 85 Df A5 05 £5 07 85 OF 
0318- A9 91 85 OC AD OD 85 OD 
0320» A5 OC 85 08 AS OD 35 09 
0328- 18 AS 08 65 06 85 DA A5 SYMBOL TABLE 
0339~- 09 65 07 85 08 A5 00 85 
0338+ 19 85 12 AS 01 85 11 85 ADRA 0999 LEN 0092 N 9994 
9340- 13 AO 902 18 AS 10 65 98 M 9906 T 0098 L OO0A 
0348+ 85 10 AS 11 65 09 85 1 J jo0c K OO0E PYRI 0910 
0350-° 18 AS 12 65 OA B85 12 AS PTRL 0012 ADRI 0014 ADRL 0916 
0358» 13 65 9B 85 13 88 DO E3 SORT 9399 SRT1 0398 SRT2 0320 
_ 0369 B1 19 85 14 Bil 12 85 16 SRT3 0328 SRT4 0343 SRT5 0372 

0368 C8 Bi 19 85 15 Bi 12 85 SRT6 0381 SRT7 93A3 SRT8 O3A9 
0370" 17 88 Bi 14% Dl 16 90 31 SRTO9 O3AF JMP1 O3B0 JMP2 03C0 


0378» 09 97 C8 CK 02 DD F3 FO 

0380+ 28 AD 90 AS 14 91 12 AS 

0388- 16 91 19 CB AS 15 91 12 

03902 A5 17 91 10 38 AS 08 E5 

0398- 06 85 98 AS 09 E5 07 85 

03A02 09 90 06 DO 83 A5 08 OD 

O3AB- FA E6 OC DO 92 £6 OD AS 

0380+ OF C5 0D 90 0B DO 06 AS 

0388* 0€ C5 0C 90 03 4C [20 CHANGE IF RELOCATED 
O3CO- 4&C [00 a 90 05 4c (20-25 
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Ssweei-16 Programming 


Using Macros 





Some very useful information is presented about 
Macros in general, the APPLE !1 Sweet-16 Interpreter, 
and how to use them together. 


The history of computer program- 
ming is reptete with stories of the 
development of new tools. Assembiers 
were designed with the purpose of reliev- 
ing the programmexaf fhe tedium of pro- 
gramming in binary machine tanguage. 
Over the course of the past twenty years, 
various features have been added to 
assembly languages to further ease the 
pain. Prime among these inventions has 
been the macro capability available in 
many assembiers. Macros provide 
means for extending the expressive 
capabilities of assembly ianguage. 
Another software tool developed in re- 
cent years is the virtual machine. A vir- 
tual machine is emulated, imitated or in- 
terpreted by a program. It provides 
capabilities not directly available in the 
hardware of the real machine on which it 
ls simulated. This article discusses the 
combined application of macro 
assembly and virtual machine inter- 
pretation on the APPLE II personal com- 
puter system. ; 


Macro Assemblers 


Macro assemblers extend the 
capabilities of ordinary assemblers by 
providing ways to abbreviate commonly 
used sequences of instructions. Often a 
programmer wiil use sequences of in- 
structions that have identical opcodes 
and addressing modes, but differ only in 
the memory locations referred to. Con- 
sider the foilowing: 


INC LOCIL 
BNE =+5 
INC LOCtTH 


and 


INC LOC2L 
BNE =+5 
INC LOC2H 


where the symboi ‘=' is used to refer to 
the location of the instruction being 
assembied. These two sequences both 
have the same purpose: to cause the 16 
bit quantity stored in two consecutive 
memory locations to be increased by 
one. For this example wae have assumed 
that the locations are not in page zero 
and are directly addressed. A macro 
assembler will allow these sequences to 
be abbreviated using a new symbol, 
chosen by the programmer. The symbol 
must be formally declared in a Macro 
Definition, before it is used. Such a 
definition is shown below using the 
notation of the ASM/TED assembler of 
Cart Moser: 
iStINCO .MD (WHERE) 
INC WHERE 
BNE = +5 
INC WHERE + 1 
.ME 


The symbo! WHERE does not represent 
a specific memory location, but poten- 
tlatly many different memory locations. 


Richard C. Vile, Jr. 
3487 Yellowstone Drive 
Ann Arbor, MI 48105 


It is called, in assembler terminology, a 
formal or dummy parameter. Even 
though our exampie has only one formal 
parameter, macros in general may have 
many. The three exclamation marks 
preceding the name iINCD indicate to the 
assembier that the label INCD is the 
name of a macro. ‘.MD' stands for Macro 
Definition and ‘.ME’ stands for Macro 
End. The sequence of instructions bet- 
ween .MD and .ME is called the body of 
the macro. Once a macro definition is 
written into a program, the macro may 
subsequently be called by using its 
name in an instruction, as if it were an 
opcode. More sophisticated macro 
assemblers allow macros to appear in 
any field of an instruction, rather than 
just the opcode fieid. When a macro is 
called, the programmer is obligated to 
supply actua/ parameters to replace the 
dummy parameters used in the defini- 
tion. In the exampte given above, when 
INCD is called, it must be accompanied 
by the labei associated with an actual 
memory location used by the program: 


INCD (COUNT) 


The actual parameter is substituted for 
ali occurrences of the dummy parameter 
in the macro body and the instructions 
in the macro body are assembled direct- 
ly into the program at the point of the 
macro call. This is known as “expan- 
ding” the cail: 





INC COUNT 
BNE = +5 
ING COUNT +1 


Another way of thinking about 
macros is to view them as small 
subroutines which are inserted directly 
into a program instead of being caiied. 
When a short sequence of instructions 
is commonly repeated, it may be 
cheaper to make a macro out of it than 
to make it into a subroutine. Part of the 
reason for this is that it costs extra in- 
structions to pass parameters to a 
subroutine, especially on a micro such 
as the 6502, which has a limited number 
of registers. in this example, particuiar- 
ly, the difference is significant. In order 
to convert the INCD macro into a 
subroutine, we would need to figure out 
a@ way to pass the address of the first 
byte to be incremented. For example: 


LOA “Low byte of address of 
COUNT” 

LOX “High byte of address 
of COUNT” 

JSR INCD 


STA CL Page Zero Loc 
S TX CH Next Page Zero Loc 


{NCD 


LOY #00 Assuming Y 
i available- otherwise 
3 TAY-PHA first. 

INC (CL),Y 

BNE =+6 

INY 

INC (CLLY 

RTS 


This is surprisingly more complicated 
than the macro, which is why you pro- 
bably never thought of making it into a 
subroutine before. Im general, if a 
subroutine is short and if it involves 
manipulating addresses of parameters, 
then it may be worth converting to a 
macro. 


Assemblers vary widely in the 
richness of features supported. One of 
the more desirable features to use in 
conjunction with the macro capability is 
that of conditional assembly. This 
enables a program to define instruction 
sequences and, in particular, macros, 
with much more flexibility. We shall see 
this in action when we discuss the 
Sweet-16 macros later. Conditional 
assembly directives allow the program- 
mer to control the actions taken by the 
assembler. 


Macros can be used to generate ar- 
bitrary bit patterns into the stream of ob- 
ject code produced by the assembly of a 
program. There may be subtle reasons 
for wishing to do this. One of those 
reasons forms the meat of our principal 
example: the bit patterns so generated 


may form interpretive code which can, 
via the macro capability, be interspersed 
with ordinary machine code. By using 
macros to generate the interpretive 
code, the programmer is freed from the 
odious task of hand assembly — a task 


which could discourage him from using. 


the interpretive coda in the first place. 
Sweet-16 


The 6502 microprocessor provides 
no direct capability for handling 16 bit 
quantities. In particular, the machine 
has no internal 16 bit registers, save for 
the PC. Thus, when it becomes neces- 
sary to do 16 bit arithmetic, or to 
manipulate pointers or 16 bit addresses, 
the programmer is forced to write In- 
struction sequences to simulate the re- 
quired operations. The APPLE 1! firm- 
ware contains a subroutine known as 
the SWEET-16 “dream machine,” which 
does just that. it operates in an inter- 
pretive mode, taking the sequence of 
bytes following the instruction which 
calls it as virtual or interpretive code. 
Here's how it works. 


When a JSR (Jump to SubRoutine) 
instruction is executed by the 6502 pro- 
cessor, the vaiue of the program 
counter, which in that case will be the 
address of the last byte of the JSR in- 
struction, is saved on the 6502 stack as 
two consecutive bytes. When.a RTS 


(Return from Subroutine) instruction ts 
executed within the called subroutine, 
that address increased by one will be 
restored from the stack to the PC, to 
enable the 6502 to continue executing 
instructions following the JSR instruc- 
tion. (See Figure 1.) The fact that the 
“return” address is saved on the stack 
means that the called subroutine can, in 
fact, find out where it was called from. 
More than that, it can use the return ad- 
dress and the indirect addressing mode 
of the 6502 to actually retrieve the se-. 
quence of bytes fotlowing the calling in- 
struction. That is precisely what the 
Sweet-16 subroutine does. 


The Sweet-16 interpreter takes ad- 
vantage of the fact that the return ad- 
dress is at the too of the 6502 stack. It 
pops the two bytes from the stack and 
transfers them to a pair of page zero 
focations which it then uses as an in- 
direct address to locate the sequence of 
interpretive instructions fotlowing the 
JSR which called it. 


Thus the return address of the 
Sweet-16 subroutine becomes the ad- 
dress of the first instruction to be ex- 
ecuted by the Sweet-16 machine. As the 
Sweet-16 machine executes instruc- 
tions, it updates this address to point to 
the next virtual instruction to be ex- 
ecuted. When the Sweet-16 interpreter 
finds an interpretive instruction 


calling instruction 


PC. €— (PCH) 


PC, = (PC+2) 





PUSH €- (PC) 


<-> 


PC. 


RS, 
Stack after ‘cattl 


Figure 1: 
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ba _ 


(PC)€-POP 


Stack before 


ubroutine 
body 








returning 
instruction 


6502 Subroutine Call and Retum 





“return,” it restores the address of that 
instruction to the stack and executes a 
feal 6502 RTS. This causes the pro- 
cessor to continue execution of the 
machine code following. Thus, Sweet-16 
code and reat 6502 code may be mixed 
together in sequence, with Sweet-16 be- 
ing called by a JSR instruction 
preceding each “chunk” of Sweet-16 
. 


The Sweet-16 processor contains 16 
registers, each simulated by two page 
zero locations. Register 15 doubles as 
the Sweet-16 program counter. As ex. 
_ plained above, the actions of the various 
Sweet-16 instructions Cause the con- 
tents of the virtual PC to be updated. The 
cycle of execution of the Sweet-16 
machine is: 

LOY #00 


1. Fetch Opcode 
LDA (R15), Y 


2. Execute Opcode Transfer con- 
trol to the ap- 


propriate sec- 


tlon of 
Sweet-16. . 

Op Mnemonic Arguments 

ln SETR {Rn,Constant) _ 

2n Lp (Rn} : 

3n st (Rn) 

4n Lpe (Rn) 

5n ste (Rn) 

6n Loba (Rn} 

an STD@ (Rn) 

8n . POP@ (Rn} 

9n stra (Rn) 

An ADD (Rn) 

Bn Sus {Rn) 

Ch POPD@ (Rn} 

Dn CPR {Rn) 

En INCR (Rn) 

Fn DECR {Rn} 7 

06 RTN 

o1 BR (addr) 

02 BNC (addr) 

03 BC (addr) 

04 BP (addr) 

0s BM (addr) 

06 BZ {addr} 

07 BNZ (addr) 

o8 BM1 {addr} 

og BNM2 {addr) 

OA BK 

OB RS 

oc BS (addr) 


3. Repeat at 1. or Return to Caller (If inter- 
Pretive opcode was “return”, 


The following table briefly sum- 
marizes the opcodes which the Sweet-16 
machine provides. The mnemonics used 
in the table are those chosen for tha 
macro impiementation discussed below. 
Further details and some examples may 
be found in the November 1977 issue of 


BYTE magazine. 


The Macros: How They Work 


Listing 1. shows the Sweet-16 
macros as defined for the Cari Moser 
ASM/TED macro assembler. The macros 
fail into two groups: the register and the 
non-register opcodes. The register op- 
codes are al! assembied to values with a 
non-zero ($1 to $F) high nibble: @.9. 
LO@(R12) —$4C. The non-register op. 
codes all have a 0 value in the high nib- 
bie of the opcode byte. Most of the non- 
register opcodes have a second byte 
indicates a relative branch 


which 
Effect 


Rn + Constant 

RO + Rn 

Rn + RO 

High byte of RO + gq 

Low byte of RO + (Rn) 

(Rn) + Low byte of RO 

RO, + (Rn); Rn + Rn+1; RO, * (Rn) 


(Ra)+ RO) ;Rn + Rnt+l; (Rn) « RO, 


Shcion Rn-17R0, ~ (Rn); RO, + 6 


Rn. + Rn-1;(Rn} + RO, Rn + Rn-1; 
(Rn) + RO, 


RO + RO + Rn 

RO + RO ~- Rn 

Rn + Rn=2; RO; ~ (Raj;Rn + Rn-L; 
ROFy + (Rn) 


Set branch conditions asa 
result of RO ~ Rn. Store 
result into R13. 

Rn + Bn + 1 

Rn « Rn - 1 

Return to caller 

Relative branch to addr. 

(Note: Argument is assembled 
as displacement, Source 
argument is absolute.) 

Branch if No Carry 

Branch if Carry 

Branch if prior result Plus 

Branch if prior result Minus 

Branch if prior result Zero 

Branch if prior result Non Zero 

Branch if prior result «= -1 

Branch if prior result # -1 

Execute 6502 Break inatruction 

Return from Sweet-16 subroutine 

Branch to Sweet~16 subroutine. 
addr must be in the range 
allowable for a relative branch. 
Return address is stored ina 
pseudo-stack whose addresa is 
contained in R12. 


Table 1: Sweet—16 Instruction Set Summary 
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dispiacement value, in the style of the 
6502 itself. The most interesting part of 
the set of macro definitions invoives the 
caiculation of this displacement. Since 
the concept of relative branch dispiace- 
ment is common to all the branching 
operations, a separate macro is defined 
which is used to calculate the displace- 
ment. This macro then gets called in the 
body of each branching opcode to pro- 
vide the desired value: 


HIRELBR .MD (LOC) 
-BY LOC—=—}1. 
[FM =—LOC 
-BY =~—LOC+1 


ten 


ME 


.MD (WHERE) 
BY 1 


RELBR (WHERE) 
-ME 


!'f1BR 


The RELBR macro uses the condi- 
tional assembly features of the macro 
assembler. Let us examine it line by line: 
INRELBR .MD (LOC) 

This line indicates to the assembler 
that a Macro Definition is being in- 
itiated. The name by which the macro 
may subsequently be called is RELBR 
and the argument which must be sup- 
plied when it is cailed is represented by 
the dummy symboi LOC. When the 
macro is expanded by a call, the actual 
argument which is supplied in the cail 
will be substituted for each occurrence 
of ‘LOC’ in the body of the definition, 


iFP =—toc 


This line contains one of the condi- 
tional assembty operations or directives 
of the assembler: IFP. The assembier is 
directed to evaluate the expression con- 
tained in the remainder of the ine; in 
this case “=-—-LOC", [f the resuit is a 
positive number (the mnemonic stands 
for /F Positive), then the assembler will 
assembie all instructions following the 
current line until it encounters a tine 
containing ***, which indicates the end 
of the scope of the IFP directive. if the 
expression aevaiuates to a negative 
number or zero, then the assembler wilt 
ignore ail instructions following the cur- 
rent line untii the matching ***, 


’ The expression ‘=—toc’ ig com- 
puted by subtracting the value of the ac- 
tual parameter substituted for LOC in 
the call from the value of the 
assembler's focation counter, 
represented in ASM/TED by the 


Pa eg eae ae oer, 


character ‘='. The location counter 
represents the address of the instruc- 
tion being assembied. 


BY LOC—=—1 


The. directive .BY instructs the 
assembler to evaluate the expression 
following and to assemble a single BYte 
ot code from the resulting value. The ex- 
pression LOC— =—1 computes a value 
which is the distance from the symbol 
referenced by ‘LOC’ to the current loca- 
tion in the object code. This value is con- 
verted by the expression to a negative 
number and adjusted by 1 to account for 
the fact that the current byte of object 
has not yet been emitted by the 
assembier. Note that there is a bug in 
the definition: if the value LOC— = —1 is 
less than —128 then an erroneous value 
will be assembied. This means that the 
user of the macro set is responsible for 
avoiding relative branches that are out 
of range. Note also that the values com- 
puted by expressions are in 16 bit, twos 
complement representation. If such a 
value is assembled using a .BY directive, 
the-assembler wilt use the least signifi- 
cant 8 bits (low byte) of the result. 


k & * 


This tine marks the end of the scope 
ot the IFP conditional assembly direc- 
tive used earlier. 


iFM =—LOC 


This line has the same intention as the 
IFP line, except that it tests the result of 
the expression ‘= —LOC’ for a negative 
or Minus value. It then does or does not 
assembie the instructions following the 
iFM tine and up to the matching °°’, 
depending on the outcome of the evalua- 


tion. 


BY =—LOC+1 


ene 


These instructions are analogous to 
the corresponding instructions follow- 
ing the IFP directive. The reason for us- 
ing both an IFP and an |FM directive is 
that the label or location referenced by 
the dummy argument ‘LOC’ may turn out 
to be either ahead of (minus result for 
=—LOC) or behind (positive result for 
=—LOC) the instruction which invokes 
the RELBR macro. 


The remainder of the macro defini- 
tions are simple and straightforward. A 
couple of points to note are: 


Defining @SW16 as JSR SW16 
makes the macro @SW16 
looklike a “new” assembler 
directive. it says: 

_ Please switch to Sweet-16 


Arithmetic may be performed 
on dummy arguments: 


1140 .MO (REG) 
BY $20 +REG 
_ ME 


This fact Is crucial to the success of the 
‘macros. 


Sample Sweet-16 Program 


The foltowing program allows the . 


second text page of APPLE II memory to 
be copied into the first text page. The 
assembled code is shown to the left. 


45 MOVE LD@ 6) 
56 ST@ (6) 
24 LD (4) 
D5 CPR (5) 
04 BP (MOVE) 
- 00 -  RTN 


Sweet-16 can also be used more 
conveniently with this set of macros. 
They make the assembly source easier 
to read, and remove the burden of hand 
assembly from the Sweet-16 program- 
mer. 


The reader is urged to learn more 


20 89 F6 @SW16 about the macro capabilities of 
15 SETR (5 $800) assembiers and the labor-saving uses to 
00 08 : which they may be applied. 
14 SETR (4 SBFF) 
FF 0B 
16 SETR (6 $400) 
00 04 
Listing 1. 
0002 RQ DE. 9 
0003 Ki »E 1 
0004 R2 *GE 2 
0005 RS DE 3 
0006 R4 +E. 4 
0007 RS °CE S 
; 0008 RS UE 6 
0009 R7 °DE 7 
0010 RG DE & 
0011 KP | DE 9 
0012 Rid °eHE 10 ; 
0015 Ril eRE il 
0014 R12 HE i2 
0015 Rid +E is 
0016 R1i4 °UE 14 
0017 RLS DE 15 
0918 eES 
0019 LLISETR »MD CREG ADDR) 
9020 »BY $10+REG 
0021 °SE ALR 
0022 ME 
0023 !1ILT oMIt CREG ) 
0024 eRY $20+REG- 
0025 ME 
0026 !!SST »ME CREG > 
0027 6 BY $30+REG 
0028 ME 
0029 TLILDe oMD CREG ) 
0039 eBY $40+RKEG 
0051 ME 
9032 I1ISTe »MD CREG ) 
0033 +BY $50+REG 
0054 oME 
035 '1iLoDe «MD (REG) 
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0036 +BY $60+KEG 9091 oME 
0037 oME 0092 !11BM eMD (WHERE ) 
0058 !1:ISTD@ eMD (REG) 0093 +BY 5 
0039 BY $70+¢REG 0094 KELBR ( WHERE ) 
0040 oME 0095 oME 
0041 111POPG@ eM (REG) 0096 F}IBZ eMD (WHERE ) 
0042 *BY $80+REG 0097 «BY 6 
0043 ME 0098 '. RELBR ( WHERE > 
0044 !1ISTPe oMD (REG) 0099 oME 
0045 eBY $90+REG 0100 !15BNZ oMD (WHERE ) 
0046 oME 0101 : BY 7 
' 0047 ILIADD +MD (REG) 0102 RELER «WHERE ) 
0048 eBY $A0+REG 01035 eME 
0049 oME 0104 11 1BML oMD (WHERE ) 
0050 111SUB oMD (REG) 0105 “BY 8 
0051 «BY $BO+KEG 0106 RELER ( WHERE ) 
0052 «ME 0107 ME 
0053 !)}1POPD@ .MD (REG) 0108 !!!BNM1 oMD (WHERE ) 
0054 oBY $COTREG 0109 «BY 9 
OO55 2! eME 0110 RELBR (WHERE ) 
0056 !!ICPR eMD (REG) O111 +ME 
0057 eBY S$DO¢REG 0112 !31BRK + MD 
0058 eME 0113 «BY $A 
0059 !!1INCR oMD (REG) 0114 eHE 
0060 «BY $£0 + REG 0115 TEIRS MD 
0061 ME 0116 eBY $B 
» Itt 0117 ME 
ear ener oy Sea teee 0118 !11BS «Ml (WHERE ) 
9064 ME 0119 +BY $C 
0065 !1IRTN ME 9120 RELBR (WHERE ) 
00466 +BY 00 0121 ME 
0067 ME 0122 111@SW16 MD 
0068 TIIRELBR ,MI (LOC) 0123 JSR $F 489 
0069 IFP =-LOC 0124 oME 
070 +BY LOC-=-1 0999 «EN 
0071 KxX 
0072 IFN =-LOCc 
0073 »BY =-LOC+1 
0074 xxx 
0075 oME LABEL FILE: C / = EXTERNAL J 
0076 LIBR oMD ( WHERE ) : 
0077 «BY 1 n 
0078 RELBR (WHERE > 
9079 eME /K0=0000 /RL=0001 
0080 !1!BNC MI (WHERE ) /R3=0003 /R4=0004 
0081 “BY 2 /R6=0006 /R7=0007 
—6 9082 RELBR ( WHERE ) /R9=0009 /RLO=0008 
0083 oME /R12=000C /RAZ=0000 
0084 !1!BC MD (WHERE ) /RI5S=000F 
9085 BY 3 7/9000 19200 90200 
0086 RELBR ( WHERE ) /RE=0002 
0087 +ME /R5=0005 
0088 !11BP oMD (WHERE ) /RE=9008 
0089 «BY 4 7R11=0008 
0090 RELBR (WHERE ) /RI4=000E 
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HEXL.OC 


$0083-80084 
$0085-S00F7C 
$0095 
¢009D-800A9 
S0CA4 
#00A5-S00AB 
SODAC-BO046E 
SCGOAF—BO0BO 
#0081 

$008 1-s00C8 
80087 
s00B8-s00B9 
SCOBB-S0O0OB9 
$00C9-S00CD 
s00caA~-00CR 
soocc-so00cD 
SOOCE-S00CF 
s00D0-SOCDF 
30000 

sQoDE 
BQ0EO~SCOEZ 
SO00E4 
SO00E5—-S00E7 
SOOEB-S00E9 
SQ0EA 
S00F0-S6OOFS 
SOOF3 

sOor4 

SO0F 4-S00F8 
s00FS 

s00F7 

s00F8 

sOor? 

sOOrFc 
$O100-SO1FF 
$0200 
80200-802FF 
$0300-S03FF 
$0300-803F7 
$0300 SOSAF 
$0320-80321 
90322 

$0323 

$0324 

40325 

$0326 

$0326 

$0327 
20328-60329 
$032A 

$0300 

$03D0 

$03D3 

SO3D46 

$0309 

sO3DC 

$03E3 

SOSEA 

s03Fa 

SO3FB 

SO3FE 
SO03FE-SOSFF 
$0400~807FF 
€0478+5 
$0478+*S 
$04FB+S 
604FB+S 
$0578+S 
$0576+S 
$OSFa+s 
$0679+S 
$0478+S 
s06FS 
SO6FE+S 
$0778+S 
20778+S 
SO7FE+S 
s0O7F8+S 
$0600 
S0800-S0O9FF 
$O0800-SOBFF 


DECLOC 


131-t32 
133-156 


197-163 
164 
165-171 
172-174 
175-176 
177 
177-200 
183 
184-185 
194-185 
201~205 
202-202 
204-205 
206-207 
216-223 
214 
222 
224-226 
228 
229-231 
232-233 
224 
240-243 
244 
244-248 
245 
247 
248 

249 

252 
256-511 
$12 
$12+767 
768-1023 
768-1015 
768-9743 
800-801 
B02 
803 

B04 

805 
806 
G0 
807 
808-809 
B10 

976 
976 
979 
982 

985 

98a 

995 
1002 


1016 


1019 

1022 
1022-1023 
1024-2043 
114445 
1144+S 
1272+S 
1272+5 
1400+S 
1400+S 
1$28+S 
1656¢S 
1656+S 
1764+S 
1764+S 
19712+S 
19t2¢S 
2040+S 
2040+S 
2048 
2048-2559 
2048-3071 


NAME 


PICK 


PROGRAM POINTER 


CHRGOT 
TXTPTR 


PPL~PPH 
PVL.~PVH 
ACL*ACH 


SIGN 
x2 

Mz 
S16PAC 
Xt 


Mi 
E 


IN 


XOL~XOH 

YO 

BXSAV 

HCOLOR 

HNDX 

HP AG 

HP AG 

SCALE 
SHAP XL“ SHAP XH 
COLLSN 


995 
1002 
USRADR 
NMI 
IRGADR 
BRATE 
STRITS 


STATUS 
BYTE 
PWDTH 


NBITS 


FLAGS 


USE 


POINTER YO THE LAST-USED VARIABLE ’S VALUE 


GENERAL USAGE 
MONITOR MEMORY LOCATION ’ 


PICK’ 


MAIN FLOATING-POINT ACCUMULATOR 
GENERAL USE IN FLOATING POINT MATH ROUTINES 
SECONDARY FLOATING POINT ACCUMULATOR 


SENERAL USAGE FLAGS/POINT 


ERS 


POINTER TO END OF PROGRAM. NOT CHANGED BY LOMEM: 


CHRGET 
CHRGET 
CHRGOT 
PTR TO 
TXTPTR 


RANDOM NUMBER 


BASIC START-OF-PROGRAM POINTER 
BASIC END OF VARIABLES POINTER 


BASIC acc 
ONERR POINTERS/SCRATCH 
POKE O TOCLEAR ERROR FLAG 


WHEN ERROR OCCURS™ ERROR CODE APPEARS HERE 


HI-RES GRAPHICS X&Y COORD 
HI-RES GRAPHICS COLOR BYT 
GENERAL USAGE FOR HI-RES 


INATES 
E 
GRAPHICS 


POINTER TO BEGINNING OF SHAPE TABLE 
COLLISION COUNTER FOR HI-RES GRAPHICS 


GENERAL USE FLAGS 
MONITOR & FLOATING POINT 
MONITOR & FLOATING POINT 
ONERR POINTERS 

MONITOR & FLOATING POINT 
SWEET-16 MEMORY LGCATION 
MONITOR & FLOATING POINT 
MONITOR & FLOATING POINT 
MONITOR & FLOATING POINT 
SUBROUTINE RETURN STACK 


ROUTINES 
AQUTINES 


ROUTINES 

“S1EPAG’ 
ROUTINES 
ROUTINES 
ROUTINES 


MEMORY 
MEMORY 


MEMORY 
MEMORY 


MEMORY 
MEMORY 


MONITOR & MINIASSEMBLER MEMORY LOCATION 


KEYIN CINPUT) BUFFER 


Loc 
Loc 


Loc 
Loc 


Loc 
Loc 


‘TN’ 
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S/R CALL — GETS NEXT SEQUENTIAL CHR OR TOKEN 

ROUTINE. CALLED WHEN A-S WANTS ANOTHER CHARACTER 

S/R CALL. CHRGET INCREMENTS TXTPTR. CHRGOT DOES NOT 
LAST CHAR OBTAINED THRU CHRGET ROUTINE 

~ POINTS AT NEXT CHAR OR TOKEN FROM PROG (C/A DEC 78) 


‘SIGN’ 


"x2’ 
‘Ma’ 
*“X%1 * 


"M1 ta 
"e’ 


(EXPONENT 2) 
(MANTISSA 2) 


(EXPONENT 1} 
{MANTISSA 1) 


AREA CLOBBERED BY EITHER MASTER OR SLAVE DISKETTE BOOT 


OFTEN FREE SPACE. NOTE COMPETING USES OFTEN FREE SPACE CONSTRAINTS 


DECWRITER PRINTER GUTPUT (IF BLOADED FROM DISK) 
HI-RES GRAPHICS~ PRIOR X-COORD SAVE AFTER HLIN OR HPLOT 


HI-RES GRAPHICS YO -— MOST RECENT Y~COORDINATE 


HI-RES GRAPHICS “BxXSAV’ 


HI-RES GRAPHICS COLOR FOR HPLOT~ HPOSN 
HI-RES GRAPHICS HNDX - ON-THE-FLY DYTE INDEX FROM BASE ADDRESS 


POKE 32 FOR HI-RES PG1 PLOTTING™ 64 FOR PAGES 
HI-RES GRAPHICS MEM PAGE FOR PLOTTING GRAPHICS $20 FOR PG1 ~$40 FOR PG2 
ON-THE-FLY SCALE FACTOR FOR DRAW™ SHAPE~ MOVE 


START-OF-SHAPE-TABLE POINTER 


COLLISIGN COUNT FROM DRAW 
DOS RE-ENTRY POINT (3006) 


~DRAW1 


INITIALIZE OCR RE-INITIALZE DOS (3D0G) 


DOS 3,1 HARD ENTRY POINT 

DOS 3.1 ENTRY POINT FOR I/O PACKAGE 
pOoS 3.1 ENTRY POINT FOR RWTS 

pos 3.1 ENTRY 

DOS 3.1 ENTRY 

POS 3.2 ENTRY 


CTL-Y WILt CAUSE JSR HERE 


NMI‘S VECTORED TO THIS LOCATION 


MONITOR MEMORY LOCATION ° 


TRGADR ’ 


IRG@‘’S VECTORED TO ADDRESS WHOSE POINTER [S HERE 


SCREEN BUFFER (HARDWARE PAGES 4-7) (LOW-RES GRAPHICS & TEXT PAGE 3%) 


POINT TO LOAD Y~A WITH ADDRESS AT END OF SYS BUFFER 
POINT TO LGAD YYA WITH ADDRESS OF IOBLA 
POINT FOR ROUTINE THAT UPDATES 1/0 HOOK TABLES 


SERIAL INTERFACE BAUD GUANTUM RATE. #1= 197200 BAUD: $40=300 BAUD 


SCRATCHPAD MEMORY 
SERTAL INTERFACE: 
SCRATCHPAD MEMORY 
SERIAL INTERFACE: 
SCRATCHPAD MEMORY BYTE 
SCRATCHPAD MEMORY BYTE 
SERIAL INTERFACE INPUT 
SCRATCHPAD MEMORY BYTE 
SCRATCHPAD MEMORY BYTE 
SERIAL INTERFACE PRINT 


BYTE FOR PERIPHERAL IN SLOT #S 
CONTAIN NUMBER OF STOP BITS (INCLUDING 1 PARITY BIT) 
BYTE FOR PERIPHERAL IN SLOT #5 
PARITY CHECKSUM OPTIONS (SEE MANUAL) 
FOR PERIPHERAL IN SLOT#S 
FOR PERIPHERAL IN SLOT #S 
OUTPUT BUFFER 
FOR PERIPHERAL IN SLOT #S 
FOR PERIPRERAL IN SLOT #5 
LINE WIDTH (# CHARS PER LINE) 


SERIAL INTERFACE NUMBER OF DATA BITS PLUS 1 FOR START BIT 
SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT #S 
SERIAL INTERFACE OPERATION MODE 
INTERRUPT RETURN MEMORY BYTE FOR PERIPHERAL IN SLOT #S 
DEFAULT INTEGER BASIC LOMEM 
AREA CLOBBERED BY EITHER MASTER OR SLAVE DISKETTE BooT 

SECONDARY SCREEN BUFFER (TEXT & LOW-RES GRAPHICS PAGE 2) 
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HEXLOC 


$0600-sC000 
$0800~LOMEN 
#0co0 
$0C00O-S1FFF 
sOcF2 
$1B00~-S3FFF 
$1B00-$4000 
$2000-43FFF 
$3000-LOMEM 
$3F3~83F 4 
$4000-$84520 
$4000-S35FFF 
$4300 
$43500-4520 
$5400-$58000 
$9600-89853 
$9600~89700 
$9701-$9802 
$9760!-89653 
$9D10-? 
$9D73-SA7DF 
s9DB9 

$SE4D 

S9E7E 

SA1B4 

SA1LBP 

SA1LBE 

$A1DC 

SA1EE 

SAIFC 

$A200 

$A200 

$A208 

$A20C 

S$ALLZ3 

$A236 

$A278 

SAQEC 

SA327 

$A330 

SABAS 

$4474 

sA48D 

tA4A5 

$A4B0 

SA4E4 

$A501 

$AS0D 

$A531 

SAS4F 

$A3466 
$A7EO~8ABO3 
sABCD-SA9950 
$A994~-BA99T7 
SAI9IS~-SATITI 
FATAD—-SAPA4 
SATB S-SAIBS 
SAACB 
SAASF-SBOCE 
SBSEF-8B642 
$BDO0O 

SBFS 

SSFFF 

@BFFF 

$c000 
$CO000-SCOOF 
$CO0O-SCFFF 
$¢c0190 
$C010~SCO1F 
$co20 

s$C02x 

$c0o30 

$C04X 

scoso 

scOSL 

#c6s2 

$cos3 

$C0O54 

$coss 

C056 

$CO37 


DECLOC 


2048-47132 
20498-LOMEM 
3072 
3072-8191 
3314 
4000-16383 
6932-16384 
8192-16383 
12268-LOMEM 
1011-1012 
16384-17576 
16384-24373 
17664 
17664-17596 
22016-32748 
~27136-~-26541 


NAME 


-27136--26880 . 
-26879--26622 . 


—-266237--26541 
~235328-? 
~25229-<-25561 
—-29157 
25011 
#249762 
—24140 
24135 
-24130 
-24100 
-24082 
~24068 
—-24064 
~24064 
~24056 
~24052 
“24029 
-~24010 
~23744 
~23828 
~23789 
23760 
23643 
23434 
“23411 
~23387 
“23376 
—-23324 
-23295 
252983 
23247 
~23217 
“23210 


“225460-~ 22499 . 
~“22323--22144 . 


wagzlge-~e2zZi2i 


W22120--221197 . 
—22107--22108 . 
“22091--22090 . 


~22005 


—“21933--19762 . 
-19473--18976 . 


“17152 


“16384 
716384 
~16984 


KBD ~ IDADR 


24984-16369 . 
—-16984--12289 . 


~16368 


KBDSTB 


=16368--16353 . 


"146382 
-16952 
16336 
-16320 
-16304 
14303 
“16902 
16301 
14300 
“16299 
~16298 
16297 


TAPEOUT 
SPKR 


TXTCLR 
TXTSET 
MIXCLR 
MIXSET 
tOWSCR 
HISCR 
LORES 
KIRES 


- ADDRESS FOR DOS 


USE = 


RANGE OF POSSIBLE SETTINGS FOR HIMEM (DEPENDING UPON MEM SIZE~ BOS 
PROGRAM STORAGE FOR ROM VERSION OF APPLESOFT 

DEFAULT LOCATION FOR START OF SHAPE TABLE AS SET BY HI-RES SHAPE LOAD 
OFTEN FREE SPACE 

TO CNVRT A/S PROG FM ROM TO CASSETTE: LOAD PROG™ CALL 3314°LIST*SAVE 
THIS REGION OF MEMORY IS CLOBBERED BY A SLAVE DISKETTE SO00T 
RAWDOS (‘VERSION OF DOS USED WITH MASTER. CREATE - FROM DISK) 
HI-RES GRAPHICS PAGE 1 

PROGRAM STORAGE FOR RAM VERSION OF APPLESOFT 

dOS 3.1 - POKE TO ZEROS TO REBOOT HELLO PROGRAM 

NORMAL LOCATION FOR KAPOR’S HI RES TEXT SET 

HI-RES GRAPHICS PAGE 2 : ode 
CALL FOR INVERSION SY KAPOR’S ROUTINE 

S/R W/ KAPOR‘’S HI-RES TEXT SET TO INVERT WHITE TO BLACK & VICEVERSA 
DISK OPERATING SYSTEM (DOS3. 1) te. 
DOS 3.1 USER BUFFER #1 

DOS 3.1 USER BUFFER #1 DATA BUFFER 

DOS 3.1 USER BUFFER #1 - LIST OF SECTOR & TRACK NUMBERS USED 
DOS 3.1 VSER BUFFER #1 — FILE NAME & MISC DATA 

STARTING ADDRESSES FOR VARIOUS DOS3.1 TASKS 

SYSTEM SECTION OF DOS 3.1 

INITIALIZE OR RE-INITIALIZE DOS 

ROUTINE WHICH HANDLES DOS INPUT HOOK 

ROUTINE WHICH HANDLES DOS OUTPUT HOOK 

ADDRESS FOR DOSS. 1 PR# COMMAND 

ADDRESS FOR DOS IN® COMMAND 

ADDRESS FOR DOS MON COMMAND bane 

MAXFILES COMMAND ’ 2 
DELETE COMMAND 

LOCK COMMAND 

BSAVE COMMAND 

YNLOCK COMMAND 

VERIFY COMMAND 

RENAME COMMAND 

APPEND COMMAND 

OPEN COMMAND 

CLOSE COMMAND 

BLOAD COMMAND 

B8RUN COMMAND 

SAVE COMMAND 

LOAD COMMAND 


ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS 
ADDRESS FOR DOS RUN COMMAND 

ADDRESS FOR DOS CHAIN COMMAND 

ADDRESS FOR DUS3. 1 WRITE COMMAND 

ADDRESS FOR DOS READ COMMAND 

ADDRESS FOR DOS INIT COMMAND 

ADDRESS FOR DOS NOMON COMMAND 

ADDRESS FOR DOS FP COMMAND 

ADDRESS FOR DOS INT COMMAND 

ADDRESS FOR DOS EXEC COMMAND 

ADDRESS FOR DOS POSITION COMMAND 

DOS COMMAND TABLE 

DOS ERROR MSG TABLE 

DOS INTERNAL HOOK ADDRESS TO GUTPUT A CHARACTER 

DOS INTERNAL HOOK ADDRESS TQ INPUT A CHARACTER 

LENGTH OF BLOADED FILE 

STARTING ADDRESS OF BLOADED FILE 

START OF LIST OF POINTERS TO SECTIONS OF DOS 3.1 I/0 PACKAGES 
DOS 3.1 I/O PACKAGE 

DOS 3.1 SYSTEM BUFFER (FOR CATALOG ETC. ) 

ROUTINE WHICH READS IN DIRECTORY OFF DISK 

VOL. NO OF CURRENT DISK 

HIGHEST RAM MEMORY ADDRESS 

DEFAULT INTEGER BASIC HIMEM (W/O DOS~ 48K MACHINE) 

READ KEYSDARD. IF VAL>127 THEN KEY WAS PRESSED 

KEYBOARD INPUT SUBROUTINE 

ADDRESSES DEDICATED TO HARDWARE FUNCTION 

CLEAR KEYBOARD STROBE. POKE 0 AWAYS AFTER READING KBD. 

CLEAR KEYBOARD STROBE SUBROUTINE 

MONITOR MEMORY LOCATION ‘TAPEQUT’ 

TOGGLE CASSETTE OUTPUT 

PEEK TO TOGGLE SPEAKER 

OUTPUT STROBE TO GAME I/O CONNECTOR 

POKE TO © TO SET GRAPHICS MODE 

POKE 0 TO SET TEXT MODE 

POKE 0 TO SET BOTTOM 4 LINES TO GRAPHICS 

POKE=O TO SELECT TEXT/GRAPHICS MIX (BOTTOM 4 LINES TEXT) 

POKE TQ O TO DISPLAY PRIMARY PAGE (PAGE 1) 

POKE TO 0 TO DISPLAY SECONDARY PAGE (PAGEZ) 

POKE TO © TO SET LO-RES GRAPHICS 

POKE TO 0 TO SET MI-RES GRAPHICS 


a 
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HEXL.OC. DECLOG NAME USE 
ecosa -16294 7 POKE O TO CLEAR GAME [7/0 OUTPUT ANO 
ecos? —16295 . POKE O TO SET GAME [/0 OUTPUT ANO 
ecOSA “16274 ‘ POKE 0 TO CLEAR GAME [1/0 OUTPUT ANI 
ecosB “16293 . POKE 0 TO SET GAME [/0 OUTPUT ANIL 
ecos¢ -16292 : ’ POKE © TO CLEAR GAME 1/0 QUTPUT AN2 
ecosD —L6291 F POXE O TO SET GAME 1/0 OUTPUT AN2 % 
scose “16290 . POKE 0 TO CLEAR GAME 1/70 OUTPUT ANS 
scost -16289 . POKE O TO SET GAME I/0 OUTPUT AN? 
$6060 ~16288 TAPEIN MONITOR MEMORY LOCATION ‘TAPEIN’ 
¢060/8 -146268e : STATE OF ‘CASSETE DATA IN’ APPEARS IN BIT 7 
#coél +t6287 : PEEK TO READ PDL{O?. IF 5127 SWITCH ON 
aco0é2 -16286 : PEEK TO READ POL(1) PUSH BUTTON SWITCH 
$0043 -16285 : PEEK TO READ PDL(2) PUSH BUTTON SWITCH 
6C044 -162388 PADDLO MONITOR MEMORY LOCATION PADDLO 
#0064/C -16186 . STATE OF TIMER OUTPUT FOR PADDLE 1 APPEARS IN GIT 7 
$6065/D -16187 ; STATE OF TIMER OUTPUT FOR PADDLE 1 APPEARS IN BIT 7 
$C066/E -16186 . STATE OF TIMER OUTPUT FOR PADDLE 2 APPEARS IN BIT 7 
$C067/F -14183 ‘ STATE OF TIMER OUTPUT FOR PADDLE 3 APPEARS IN GIT 7 
$c070 -16272 -  PTRIG MONITOR MEMORY LOCATION ‘PTRIG’ (PADDLE TRIGGER) 
$cO7X “16272 PTRIG TRIGGERS PADDLE TIMERS DURING PHI-2 
scOSEXx -162356 : DEVICE SELECT 0 
#cOFX ~16240 . DEVICE SELECT 1 
gCOAX -16224 DEVICE SELECT 2 DEVICE SELECT 2 
#COBX -16208 . DEVICE SELECT 3 
$cOCcx ~16192 ; DEVICE SELECT 4 
scODX -16176 . - DEVICE SELECT 5 , 
scoes —-16132 ; ADDRESS TO POWER DOWN DISK IN SLOT 4 
$cOE? -“t61tsl . ADDRESS TO POWER UP DISK IN SLOT 6 
sCOEX ~16160 . DEVICE SELECT 6 
ecorx ~16144 , DEVICE SELECT 7 
—- $c100 -16128 : CALL -16126 IS EQUIVALENT TO PR#1 FOR INITIALIZING SERIAL INTERFACE 
#c100 -16128 ‘ STANDARD CHARACTER I/O SUDROUTINE ENTRY POINT FOR SLOT #1 
$C200 -15842 : STANDARD CHARACTER 1/0 SUBROUTINE ENTRY POINT FOR SLOT #2 
#C300 ~15615 : STANDARD CHARACTER 1/0 SUBROUTINE ENTRY POINT FOR SLOr #3 
sC400 -15940 : STANDARD CHARACTER I/0 SUBROUTINE ENTRY POINT FOR SLOT #4 
$cs0° ~15104 . STANDARD CHARACTER 1/0 SUBROUTINE ENTRY POINT FOR SLOT #5 
#c400 -14848 eg oy =. . - STANDARD-CHARACTER 1/0 SUBROUTINE ENTRY POINT FOR SLOT #6 
$C700 -14592 ‘ STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT #6 
S$CBOO-SCFFF | --14336~-12267 . PIN 20 ON ALL PERIPM CONCTRS GOES LOW OURING PHIO ON READ OR WRITE 
$C93D -14109 . SERIAL INTERFACE BATCH INPUT ROUTINE. At&Ad SPECIFY MEMORY RANGE 
9cv4i -14105 ; _ SERIAL INTERFACE BATCH OUTPUT ROUTINE - Al & AZ SPECIFY MEMORY RANGE 
$cS00 -16384+256"S - TRANSMIT ASCII CHAR IN ACCUMULATOR OUT VIA SERIAL INTERFACE IN SLOT S 
eD0c0 -12288 SETHRL HI-RES GRAPHICS INIT S/R CALL (ROM VERSION) 
S$DO0O0-sD3FF —-12289-—11265 . HI-RES GRAPHICS ROM 
SDO000-SD7FF -1228S~—-10241 . ROM SOCKET DO 
SDOQCE -12274 HCLR HI-RES GRAPHICS CLEAR S/R CALL 
$0010 -12272 BKGNDO HI-RES GRAPHICS ‘BKGNDO ‘HCOLOR! SET FOR BLACK BKGND) 
sDo0i2 -12270 BKGND HI-RES GRAPHICS MEMORY LOCATION ‘BKGND* (ROM? 
sD1FC -117980 F HI-RES GRAPHICS FIND S/R CALL: PARAM=SHAPE~ROT “SCALE 
$02F9 -11527 : i HI-RES GRAPHICS POSN S/R CALL PARAMS XO“YO*CDLR 
80306 -11506 : HI-RES GRAPHICS PLOT S/R CALL PARAM= XO~YO~COLR 
$0314 -11500 : HI-RES GRAPHICS LINE S/R CALL PARAM= XO~YO™COLR 
$0331 “L471 ; HI-RES GRAPHICS BKGND S/R CALL PARAM* COLR 
$0337 11463 : HI-RES GRAPHICS LINE S/R CALL: PARAM=XO*YO*COLR 
$0334 —-11462 : HI-RES CRAPHICS DRAW1 S/R CALL: PARAM= XO™YO*COLR SHAPE ~ROT~SCALE 
$0389 -11335 : HI-RES GRAPHICS SHLOAD S/R. CALL 
*D45C “11076 . INTEGER BASIC PA®1 APPEND PROGRAM ENTRY 
$D4F2 —-11022 ’ TO CONVERT A/S FM CASSETTE TO ROM- LD FM CASS~CALL -1L1O22~LIST~SAVE 
$0535 -10955 ‘ INTEGER BASIC PAL TAPE VERIFY PROG ENTRY 
_ sD4DD -10831 : INTEGER BASIC PA#t RENUMBER PROG ENTRY (WHOLE PROG) 
$DSE7 -{O521 ; INTEGER BASIC PA#1 RENUMBER PROG ENTRY (PART PROG?) 
$0717 -10473 : INTEGER BASIC PAs! MUSIC PROG ENTRY 
S0800-SDFFF ~10240--8192 ROM SOCKET 08 
$DD67 -6867 : FRMNUM S/R. EVALS FORMULA EXP. INTO FLOATING PT ACCUM 
SDEC? -B303 7 SNERR S/R. PRINTS “SYNTAX ERROR” AND HALTS PROG 
sE000 -8192 BASIC ENTER INTEGER BASIC 
SEQOO-SE7FF -~8192--6145 : ROM SOCKET £0 (INTEGER SASIC) 
sE003 -8189 BASIC2 ENTRY 2 OF INTEGER BASIC 
%E368 -7317 MEMFUL INTEGER BASIC MEMORY FULL ERROR 
s€315 -6985 : INTEGER BASIC DECIMAL LPRINT S/R 
SE6FB -6408 : CETBYT S/R. EVALS FORMULA & CONVTS TO 1-BYT VAL IN X REG 
SEBOO-6EFFF -6144--4097 : ROM SOCKET EM (INTEGER BASIC) 
sEE4a ~4504 RNGERR INTEGER BASIC RANGE ERROR 
BFOOO-SF7FF -40976-—-2049 ; ROM SOCKET FO (1K INTEGER BASIC™ 1 K MONITOR) 
@FL11E -2810 ACADR HI-RES GRAPHICS 2-SYTE TAPE READ SETUP 
$F 466 - -2438 : TURN -ON MINIASSEMSLER 
SF489 ~2423 ‘ SWEET-16 INTERPRETER ENTRY 
*F800 -2048 PLOT MONITOR S/R PLOT A POINT (LO-RES) AC: Y-CDORD Y: X-COORD 
$FB00 -2040 PLOT MONITOR S/R PLOT A POINT. AC: Y-COORD~Y: X-COORD 


@FE0O-SFFFF -2048-—1 . ROM SOCKET FG (MONITOR) 
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HEXLOC DECLOC NAME USE 

sFsoc 2006 RTMASK MONITOR MEMORY LOCATION ’RTMASK’ 

SF BOE -2034 PLOT? MONITOR MEMORY LOCATION ’PLOTI’ 

eFel9 -2023 HLINE S/R (SEE CALL-APPLE NOV/DEC 78 PO4) 

eFaig -2Z9023 HLINE MONITOR S/R TO DRAW A HORIZONTAL LINE (LO-RES? 
sFeic ~2020 HLINES MONITOR MEMORY LOCATION ‘’HLINES ’ 

$F B26 “2010 VLINEZ MONITOR MEMORY LOCATION ‘VLINEZ‘ 

$F825 2008 VL INE DRAW A VERTICAL LINE 

$F831 ~1999 RtTgs1 MONITOR MEMORY LOCATION ’RTS1° 

s$F@32 ~1998 CLRSCR CLEAR SCREEN - GRAPHICS MODE 

OF B32 . “1998 CLRSCR CLEAR LOW RES GRAPHICS SCREEN1 

$F836 ~1994 CLRTOP MONITOR MEMORY LOCATION ‘CLRTOP’ 

sF638 =19792 CLRSC2 MONTTOR MEMORY LOCATION ‘CLASC2° 

F83C 1988 CLRASCS MONZTTOR MEMORY LOCATION ‘CLRSC3’ 

SFS47 “1977 GBASCALC MONITOR S/R TO CALCULATE GRAPHICS BASE ADDRESS 
SFBS6 “1962 GBCALC MONITOR MEMORY LOCATION ‘GBCALC’ 

SFOSF ~1953 NXTCOL, MONITOR S/R ~ INCREMENT COLOR 8Y 3 

SFB44 ~1949 SETCOL MONITOR S/R TO ADJUST COLOR BYTE FOR BOTH HALVES EGUAL 
eF871i “19335 SCRN SCRN S/R (LO-RES GRAPHICS) (SEE CALL-APPLE DEC78)} 
$FG71 “19795 SCRN MONITOR S/R TO GET SCREEN COLOR. AC: Y~COORD~Y: xX-~CcOORD 
$FB79 -1927 SCRN2 MGNITOR MEMORY LOCATION ‘SCRN2’ 

SFG7F “1921 RTMSKZ MONITOR MEMORY LOCATION ‘RTMSKZ‘ 

sFeG2 "17183 INSDS1 MONITOR MEMORY LOCATION ’INSDS1’ 

*F BSE ~t906 INSDS2 MONITOR S/R - DISASSEMBLER ENTRY 

SFSOR ~1893 IEVEN MONITOR MEMORY LOCATION ‘IEVEN’ 

SFRAS -1889 ERR MONITOR MEMORY LOCATION ERR’ 

SFRAP ~1979 GETFMT MONITOR MEMORY LOCATION GETFMT ° 
$FSBE -1658 MNNDX1 MONITOR MEMORY LOCATION ‘MNNDX1° 

SFaC2 -18354 MNNDX2 MONITOR MEMORY LOCATION ’MNNDX2’ 

SFEC? -1647 MNNDXY MONITOR MEMORY LOCATION ‘MNNDX3‘ 

SsFEDO ~1840 INSTDSP MONITOR & MINIASSEMBLER MEMORY LOCATION ‘INSTDSP’ 
$F8D4 ~1636 PRNTOP MONITOR MEMORY LOCATION ‘PRNTOP ’ 

$F 8DB -~1829 PRNTBL MONITOR MEMORY LOCATION ‘PRNTS&L’ 

SF8F3 =1803 PRMNI MONITOR MEMORY LOCATION ‘PRMNI’ 

SFOQF9 “1799 PRMN2 MONITOR MEMORY LOCATION ‘PRMN2’ 

$F910 “1778 PRADRI1 MONITOR MEMORY LOCATION ‘PRADR1’ 

SFF14 "1772 PRADR2 MONITOR MEMORY LOCATION *PRADR2’ 

$F926 17354 PRADR3 MONITOR MEMORY LOCATION ‘’PRADR’ 

SFILA -1750 PRADR4 --- MONITOR MEMORY LOCATION ’FRADRS’ 

$F 9730 " @1744 PRADRS MONITOR MEMORY LOCATION ‘’PRADRS’ 

$F 938 “1736 RELADR MONITOR MEMORY LOCATION ’RELADR’ 

F940 -1725 PRNTYX MONITOR S/R~ PRINT CONTENTS OF Y AND X AS 4 HEX DIGITS 
$F941 ~1727 PRNTAX MONITOR MEMORY LOCATION ‘’PRNTAX’ 

SF944 “1724 PRNTX MONITOR MEMORY LOCATION ‘PRNTX‘ 

SF948 =1720 PRELNK MONITOR MEMORY LOCATION ‘PRBLUNK ‘ 

SF94C “1716 PRBL2 MONITOR S/R- PRINT BLANKS: X REG CONTAINS NUMBER TO PRINT. 
SFR4C PRBLG MONITOR MEMORY LOCATION ‘PRBL3’ 

$F953 -1709 PCADS MINIASSEMBLER MEMORY LOCATION ‘PCaDU’ 

SF9S4 ~1708 PCADJ2 MONITOR & MINIASSEMBLER MEMORY LOCATION ‘PCADU2’ 
SF936 ~1706 PCADV4S MONITOR MEMORY LOCATION ‘’PCADU4’ 

OF 961 -1695 RTS2 MONITOR MEMORY LOCATION ‘RTS2° 

$F9G2 ~1494 FMT1 MONITOR MEMORY LOCATION ‘FMT1’ 

SFPASG “1626 FMT2 MONITOR MEMORY LOCATION ‘FMT2° 

SF9DS “1612 CHARI MONITOR & MINIASSEMBER MEMORY LOCATION ‘CHARI’ 
SFUBA 2606 CHAR2 MONITOR & MINIASSEMBLER MEMORY LOCATION ‘*CHARZ‘ 
SF9CO -14600 MNEMU MONITOR & MINIASSEMBLER MEMORY LOCATION ‘MNEML ’ 
SFA0G ~1536 MNEMR MONITOR & MINIASSEMBER MEMORY LOCATION ’MNEMR * 
$FAAD —-1469 STEP MONITOR S/R- PERFORM A SINGLE STEP 

SF ASE -1458 XGINIT MONITOR MEMORY LOCATION ’XGINIT* 

SFa73 “1416 x@i MONITOR MEMORY LOCATION °x@Q1° 

SFA7A —~1414 xXQ2 MONITOR MEMORY LOCATION ‘xa2’ 

SFADS 1402 IRG MONITOR S/R- IRQ HANDLER 

SFA9S2 ~1390 BREAK MONITOR S/R ~ BREAK HANDLER 

SFAIC -1980 XBRK MONITOR MEMORY LOCATION ’XBRK* 

SF AAS ~3971 XRTI MONTTOR MEMGRY LOCATION ‘XRTI’ 

SFAAP “1367 XRTS MONITOR MEMORY LOCATION ‘XRTS’ 

SFAAD 1363 PCINC2 MONTTOR MEMORY LOCATION ‘PCINC2°’ 

SFAAF “1361 PCINCS MONITOR MEMORY LOCATION ‘PCINC3’ 

SFABS ~1331 XJSR MONTTOR MEMORY LOCATION *xXUSR’ 

SFACAa ~t9G40 XJMP MONITOR MEMORY LOCATION ‘XJMP’ 

SFACS 71399 XUMP AT MONITOR MEMORY LOCATION ‘XJMPAT?’ 

SFACD “1931 NEWPCL MONITOR MEMORY LOCATION ‘NEWPCL ‘ 

SFADI ~13927 RTNJIMP MONITOR MEMORY LOCATION ’RTNUMP’ 

$FAD?7 “1321 RECDSP MONITOR S/R TO DISPLAY USER REGISTERS 

SFADA -1318 RGOSP1 MONITOR MEMORY LOCATION ’RGDSP1’ 

$FAE4 -1308 RDSP 1 MONITOR MEMORY LOCATION ‘RDSP1° 

SFAFO “1283 BRANCH MONITOR MEMORY LOCATION ’BRANCH’ 

$FROB ~1269 NBRNCH MONTTOR MEMORY LOCATION ‘NBRNCH’ 

$FB11 “1263 INITBL MONITOR MEMORY LOCATION ’INITBL’ 

SFBi? “1255 RTSL MONITOR MEMORY LOCATION ‘’RTBL’ 

SFBIE -1250 PREAD MONITOR S/R TO READ PADDLE. X-REG CONTAINS PADDLE NUMBER 0-3 


MONITOR 


MEMORY LOCATION 


‘PREAD2‘ 


SFB25 1243 PREAD2 
yr 
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HEXLOC 


eFB2E 
SF BRF 
sF B37 
sFB40 
sFE4B 
sFBSE 
sFBSO 
$F B43 
sF3B45 
$F B6D 
$FB74 
sFB78 
eFBai 
oF 84 
sFBa4 
SFBA0 
SFBA4 
SFRAF 
sFBE4 
sFBCO 
$FBCt 
SF BDO 
sFED? 
SFBE4 
sFEBEF 
SFBFO 
SFBFS4 
SF BFC 
sFBFD 
SFC19 
SFC1A 
SFC22 
sFC24 
SFC2B 
eFCcec 
eFC42 
SFC&s 
sFCse 
sFC&2 
BFCS&S6 
$FC70 
eFC7S 
*eFcsc 
sFC?S 
sFC9C 
SFC9E 
6FCAO 
SFCAS 
FCA? 
SFCAA 
SFCB4 
SFCBA 
sFcca 
sFCC9o 
S$FCDS 
sFCDSs 
S$FCE2 
SFCES 
SFCEC 
SF CEE 
SFCFA 
sFCFD 
$F DOC 
eFD12 
SFD21i 
sFD2F 
SFDS5S 
SF DID 
SF DSF 
SF D62 
#FDG7 
SFDSA 
SFD71 
eFD75 
sFD7E 
SF DEC 
sFDE4 
SF DBE 
eFD92 
SF DI6 


epg nn rE 


DECLOC 


-1234 
1233 
-1223 
“1216 
1205 
-1189 
~1164 
-1181 
“1179 
“1171 
~1162 
“1160 
-1131 
-1149 
“1246 
“21120 
“1116 
-1105 
-1100 
-1088 
~1087 
~1072 
-1063 
~1052 
“j041 
-1040 
-1036 
-1028 
-1027 
-1008 
~9798 
~990 
-7388 
-981 
-9780 
-958 
-934 
-926 
-926 
-922 
-912 
-906 
~e84 
-B738 
-868 
B66 
-864 
-856 
-655 
~854 
-844 
-a38 
-a24 
-823 
-810 
-805 
-798 
-7953 
-798 
~7B& 
~774 
-771 
-75 
~74i 
-735 
-721 
-715 
+707 
-673 
-670 
-663 
662 
~695 
631 
-642 
-640 
-634 
“626 
“622 
~618 


NAME 


RTS2D 
INIT 
SETTXT 
SETCR 
SETWND 
TABY 
MVLPM 
MUL 
MUL2 
MILD 
MUL4 
MUL 
DIVPM 
DIV 
Dive 
DIVS 
MDI 
MDZ 
MD 
MDRTS 
BASCALC 
BScLc2 
BELii 
BELL2 
RTS2B 
STOADV 
ADVANCE 
RTS3 
VIDOVT 
ss 

UP ~ CURSUP 
VTAB 
VTABZ 
RTS4 
€s¢i 
CLREOP 
CLEOF1 
HOME 
cR 

LF 
SCROLL 
ScRul 
SCRL2 
SCRLIG 
CLREQL 
CLEOLZ 
CLEOL2 
WAIT 
WAIT? 
WAITS 
NXTA4 
NXTA} 
RTS4B 
HEADR 
WROIT 
TEROLY 
ONEDLY 
WRIAPE 
ROBYTE 
ROBYT2 
RD2aIT 
rDosIT 
ROAEY 
KEYIN 
KEYINZ 
ese 
ADCHAR 
MOTCR 
NOTCRS 
CANCEL 
CETLNI 
CETL 
BcKSPC 
NITCHAR 
CAP YST 
INS TOSP 
ADD INP 
crovt 
PRAL 
PRYIa 


VSE 


MONT TOR 
MONI TOR 
MONT TOR 
MONITOR 
MONITOR 
MONT TOR 
MONT TOR 
MONITOR 
MONITOR 
PONT TOR 
MONTTOR 
MONITOR 
MONT TOR 
MONITOR 
MONITOR 
MOM TOR 
MONT TOR 
MONITOR 
MONT TOR 
MONITOR 
MONITOR 
MONT TOR 
MONITOR 
MONT TOR 
MONITOR 
MONT TOR 
MONITOR 
MONT TOR 
MONITOR 
MONT TOR 
MONT TOR 
MONITOR 
MONT TOR 
MONITOR 
MONITOR 
MONI TOR 
MONITOR 
MONTETOR 
MONT TOR 
MONT TOR 
MONT TOR 
MONT TOR 
BONT TOR 
MONITOR 
MONITOR 
MONITOR 
MONT TOR 


MEMORY LOCATION ‘RTS20’ 

S$/R—- SCREEN INITIALIZATION 

8/R—- SET SCREEN TO TEXT MODE. CLOBBERS ACCUMULATOR 
S/R~ SET GRAPHIC MODE (GR). CLOBBERS ACCUMULATOR 
S/R=- SET NORMAL WINDOW 

MEMORY LOCATION ‘TABYV’ 

MEMORY LOCATION ‘MULPM’ 

S/R~ MULTIPLY ROUTINE 

MEMORY LOCATION ‘MUL2’ 

MEMORY LOCATION ’MULI’ 

MEMORY LOCATION “MUL 4° 

MEMORY LOCATION ‘MULS‘ 

MEMORY LOCATION ‘DIVPT’ 

S/R—- DIVIDE ROVTINE 

MEMORY LOCATION ‘DIV2’ 

MEMORY LOCATION ‘DIV3’ 

MEMORY LOCATION ‘MD1‘ 

MEMORY LOCATION ‘MD2’ 

MEFIORY LOCATION ‘MD3’ 

MEMORY LOCATION ‘MORTS’ 

S/R= CALCULATE TEXT BASE ADDRESS 
MEMORY LOCATION ‘’BSCLC2’ 
MEMORY LOCATION ‘BELL1 ’ 

S/R SOUND BELL (BEEPER) 
MEMORY LOCATION ‘RTS2B’ 

MEMORY LOCATION ‘STOADV’ 

S/R=- MOVE CURSOR RIGHT 

MEMORY LOCATION ‘RTS3’ 

S/R- OUTPUT A-REGISTER AS ASCII ON TEXT SCREEN 1 

S/R TO MOVE CURSOR LEFT (BACKSPACE) 

S/R TO CURSOR UF 

S/R- PERFORM A VERTICAL TAB TO ROW SPECIFIED IN ACCUM ($0-$17} 
MEMORY LOCATION ‘VTASZ‘ 

MEMORY LOCATION ‘’RTS4’ 

S/R~ PERFORM. ESCAPE FUNCTIONS 

S/R TO CLEAR FROM CURSOR TO END OF PAGE. CLOBBERS ACC %& Y-REG 
MEMORY LOCATION ‘CLEOP?!’ 

$/R TO HOME CURSOR & CLEAR SCREEN. CLOBBERS ACCUM & Y-REG 
S/R TO PERFORM A CARRIAGE RETURN 

S/R TO TQ PERFORM A LINE FEED 

S/R TO SCROLL UP 1 LINE. CLOBBERS ACCUM & Y-REG 

MEMORY LOCATION ‘SCRL 1’ 

MEMORY LOCATION ‘SCRL2’ 

MEMORY LOCATION ‘SCRL3’ 

S/R TO CLEAR TO END OF LINE 

MEMORY LOCATION ‘CLEOLZ’ 

MEMORY LOCATION ‘’CLEOL2’ 


CALL FOR WAIT LOOP 


MONITOR 
MONITOR 
MONT TOR 
MONT TOR 
MONT TOR 
PONT TOR 
MONITOR 
MONITOR 
MONITOR 
MONT TOR 
MONITOR 
MONITOR 
MONI TOR 
MONT TOR 
CET KEY 
MONITOR 
MONT TOR 
MOK I TOR 
CALL. TO 
PONT TOR 
MONETOR 
MONITOR 
MONTTOR 
MONE TOR 
MONT TOR 
PONT TOR 
MON [TOR 
MONT TOR 
FONT TOR 
PRONE TOR 
ON! TOR 
PONT TOR 


MEMORY LOCATION ‘’WAIT2’ 

MEMORY LOCATION ‘WAITS’ 

S/R TG INCREMENT A4 (16 BITS? THEN DO NXTAI 

S/R YO INCREMENT At (16 BITS). SETT CARRY IF RESULT >2A2. 


MEMORY 
MEMORY 
MEMORY 
MEMORY 
MEMORY 
MEMORY 
MEMORY 
MEMORY 


LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATICN 
LOCATION 


“RTS4B°’ 
*HEADR ’ 
*WRBIT*’ 
“ZERDLY ’ 
*ONEDLY ” 
"WRTIAPE ’ 
*RDSYTE * 
*RDBYT2 ’ 


TWO-EDCE TAPE SENSE 


MEMORY 


INPUT FROM THE KEYBOARD. CLOBBERS ACC ~ Y-REG 


LOCATION 


“RDBIT’ 


S/R=- MONITOR KEVIN ROUTINE 
MEMORY LOCATION KEYIN2 


MEMORY 


READ KEY & PERFORM ESCAPE FUrICTION IF NECESSARY. 


MEMORY 
MEMORY 
s/rk TO 
S/R TO 
s/rW TO 
MEMORY 
MEMORY 
MEMORY 
S/R TG 
MEMORY 
S/R TO 
AIMORY 
MEMORY 
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LOCATION 


LOCATION 
LOCATION 


PERFORM # LINE CANCEL (\) 
PERFORM C. RRIAGE RETURN AND GET A LINE OF 


GET LINE OF TEXT FROM KEYSD. 


LOCAT ION 
LOCATION 
LOCe TION 


DISASSEMBLE INSTRUCTION AT PCH/PCL 


LOCATION 


PRINT A CARRIAGE RETURN. CLOBBERS ACC™ Y-REG 


COCATION 
LOCATION 


esc’ 


*NOTCR’ 
*NOTCRI ” 


*BCKSPC ’ 
*NXTCHAR ‘ 
‘CAPTST’ 


“ADOINP ’ 


*PRaAl ’ 
*PRYX2’ 


X RETND W/ & 
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MEMORY LOCATION 
PREPARED BY PROF w.F. LUEBBERT DARTMOUTH COLLEGE~ 


HEXLOC DECLoc NAME USE 
$FDA3 -605 Xana MONITOR MEMORY LOCATION ’xama- 
SFDAD ~393S MODSCHK MONITOR MEMORY LOCATION ‘MODSCHK ’ 
$FDB3 ~3a9 XAM MONITOR MEMORY LOCATION ‘xam- 
SFDBS 586 DATAQUT MONITOR. MEMORY LOCATION ‘DaTaoUT’ 
SFDCS5 ~371 RTS4c MONITOR MEMORY LOCATION ‘’RTS4C°’ 
SFDC6 ~-370 XAMPM MONITOR MEMORY LOCATION ‘xXamPm: 
SFDDIL “359 ADD MONITOR MEMORY LOCATION ‘app: 
SFDODA ~350 PRBYTE MONTTOR S/R TO PRINT CONTENTS OF acc aS 2 WEX DIGITS 
$FDES ~341 PRHEX MONTTOR S/R TO PRINT A HEX DIGIT 
SFDES -339 PRHEXZ MONITOR MEMORY LOCATION ‘PRHEX2 ° 
SFDED ~331 couT MONITOR S/R TO OUTPUT CHAR IN ACC. CLOBBERS ACC*Y-RES~COUT. 
SFDFO ~528 COUTI MONITOR S/R TO CET MONITOR CHARACTER OUTPUT , 
SFDFS ~S22 COUTZ MONTTOR MEMORY LOCATION “CDUTZ- 
sFECO “S12 BL1i MONITOR & MINIASSEMBLER MEMORY LOCATION ‘BL1° 
SFEO4 -306 BLANK MONITOR MEMORY LOCATION “BLANK * 
SFEOR -302 STOR MONITOR MEMORY LOCATION STOR’ 
SFE17 489 RTSS MONITOR MEMORY LOCATION “RTSS”’ 
SFEi8 -488 SETMODE MONITOR MEMORY LOCATION ‘SETMODE ’ 
SFE1D -4623 SETMDZ MONITOR MEMORY LOCATION “SETMDZ° 
$FE20 ~480 LT MONITOR MEMORY LOCATION "LT? 
SFE22 478 LT2 MONITOR MEMORY LOCATION "LT2’ 
SFEQCc -448 MOVE MONITOR S/R TO PERFORM A MEMORY MOVE (A1-A2 To Ad) 
SFES6 ~4358 VFY MONITOR S/R TO PERFORM a MEMORY VERIFY 
SFESG “424 VF YOK MONITOR MEMORY LOCATION “VF YOK’ 
$FESE -4186 LIST CALL TO DISASSEMBLE 20 INSTRUCTIONS 
SFE43 “413 LIsT2 MONTTOR MEMORY LOCATION *LIST2° 
SFE7e “392 A1PCLP MONITOR & MINIASSEMBLER MEMORY LOCATION ‘AIPCLP< 
SFE7F ~385 ALPCRTS MONTTOR MEMORY LOCATION "ALPCRITS* 
SFEBO “384 SETINV MONITOR MEMORY LOCATION “SETING®’ 
*sFEQ4 ~380 SETNORM MONITOR MEMORY LOCATION "SETNORM ’ 
SFEBS “2379 SETIFLS MONITOR MEMORY LOCATION "SETIFLG: 
SFEe9 -375 SETKBD MONITOR MEMORY LOCATION *SETKBD* 
SFESB “373 INPORT MONITOR MEMORY LOCATION “INPORT ’ 
SFESD “371 INPRT MONITOR MEMORY LOCATION “INPRT* 
SFES3 "365 SETVID MONITOR MEMORY LOCATION ’SETVID*: 
SFESS “3463 OUTPORT MONITOR MEMORY LOCATION ‘CUTPORT * 
FEST “361 OUTPRT MONITOR MEMORY LOCATION “OUTPRT ’ 
SFESB 357 IOPRT MONITOR MEMORY LOCATION “IOPRT’ 
SFEA? “345 TOPRT1 MONITOR. MEMORY LOCATION “IOPRT1° 
SFEAP 343 ’ IOPRT2” MONITOR MEMORY LOCATION ‘TOPRT2° 
$FEBO 336 XBASIC MONITOR S/R TO UMP TO BASIC 
SFEDS ~333 BASCONT MONITOR S/R TO CONTINUE BASIC . 
SFEBS “330 GO MONITOR MEMORY LOCATION ‘CQ’ 
SFEBF “321 REGZ MONITOR MEMORY LOCATION “REGZ* 
SFEC2 “318 TRACE CALL. TO PERFORM MONITOR TRACE 
SFEC4 “316 STEPZ MONITOR MEMORY LOCATION *STEP2¢ 
SFECA “310 USR MONITOR MEMORY LOCATION ‘USR< 
SFECD -307 WRITE MONITOR S/R TO WRITE TO CASSETTE TAPE 
SFED4 ~300 WR i MONITOR MEMORY LOCATION ‘WRI’ 
SFEED "2735 WRBYTE MONITOR MEMORY LOCATION “WRBYTE ’ 
SFEEF ~-273 WRBYT2 MONITOR MEMORY LOCATION “WRBYT2* 
SFEFS “266 CRMON MONITOR MEMORY LOCATION “CRMOGN ¢ 
$FEFD -2359 READ CALL TO READ FROM Tape -~ LIMITS At & aa 
SFFO2 w2o4 READX1 HI-RES GRAPHICS - READ WITHOUT HEADER 
$FFOA “246 RD2 MONITOR MEMORY LOCATION “RO2~ 
SFFIS 294 RDS MONTTOR MEMORY LOCATION “ROS’ 
$FF20 “211 PRERR MONITOR S/R TO PRINT “ERR” AND SOUND BELL. CLOBBERS acc & Y-REG 
SFFIA ~i98 BELL MONITOR S/R TO PRINT BELL. CLOBBERS acc~ Y-REG 
SFFSA -196 BELL CALL HERE TO OUTPUT BELL 
SFFSF “193 RESTORE MONITOR & SWEET-14 MEMORY LOCATION ‘RESTORE’ 
SFF44 -188 RESTRi MONITOR MEMORY LOCATION “RESTR1° 
SFFSA ~i62 SAVE MONITOR & SWEET=146 MEMORY LOCATION ‘SAVE’ 
—_. SFF4C -180 SAV1 MONITOR MEMORY LOCATION ‘SAVI1~° 
$FFS9 -167 RESET C4LL HERE HAS SAME EFFECT AS PUSHING RESET BUTTON 
SFF6S ~155 MON MONITOR S/R= NORMAL ENTRY TO °TOP*’ GF MONITOR WHEN RUNNING 
SFF49 “231 MONZ MONITOR S/R TO RESET AND ENTER MONITOR 
S$FFI73 "141 NXTITM MONITOR MEMORY LOCATION “NXTITM? 
tFF7A -134 CHRSRCH MONITOR MEMORY LOCATION “CHRSRCH ’ 
SFF7C ~f32 2MODE MONITOR & MINIASSEMBLER MEMORY LOCATION ‘ZMODE’ 
SFFORA -116 OIG MONITOR MEMORY LOCATION DIG’ 
SFF9SO ~lt2 NXTBIT MONITOR MEMORY LOCATION “NXTBIT’ 
sFF9S 7-104 NXTEAS MONITOR MEMORY LOCATION *NXTBAS’ 
SFFAQ “94 NXTBS2 MONTTOR MEMORY LOCATION “NXTBS2° 
SFFA7 -89 GETNUM MONITOR & MINIASSEMBLER MEMORY LOCATION ’GETNUM- 
SFFAD ~83 NXTCHR MONITOR MEMORY LOCATION *NXTCHR * 
SFFSE —-66 TOSUB MONITOR & MINIASSEMBER MEMORY LOCATION ’TosUB’ 
SFFC7 -37 ZMODE MONITOR MEMORY LOCATION *“ZMODE ’ 
sFFCC -S2 CHRTBL MONITOR & MINIASSEMBLER MEMORY LOCATION ‘CHRTBL’ 


SFFES > 29 SUBTBL MONITOR *"SVETBL ‘ 
“1979/06/25 VERSION COPYRIGHT HANOVER N. H. 
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Disassembling the DOS 3.2 





You “Can’t tell the players without a score card” and 
you can not effectively use the Apple I! DOS 3.2 without 
this important information on its organization. 


ee ATE EE 


On the surface, DOS 3.2 is identical to 
DOS 3.1. Upon booting, the DOS Is joad- 
ed (slave or master), the greetings pro- 
gram is run, MAXFILES defaults to 3, 
and HIMEM is set at $9600. DOS 3.2 stil! 
communicates with the rest of the AP- 
PLE via input and output hooks at $36, 
37, 38, and 39. {Ail addresses refer to a 
48K machine.} 


The differences are many: In Appie- 
soft, DOS does the call 3374 or cail 
54514 automatically, volume checking is 
ignored unless explicitly defined in the 
command, and the system defaults to 
NOMON C,I,O status. The hooks at $36 
and 37 (the print routine) now contain 
$9E81. The routine to restore DOS is now 
at $9DBF. This can be called if page 3 is 
overwritten. The command and error 
message tabies are in different loca- 
tions. The command table is the same as 
in the DOS 3.1. The error messages, 
however, are quite different. After a 
BLOAD, A$ is now found at $AA72,3; L$ 
is now found at $AA60,1. 


When the keyboard input routine 
(9E81), is called, OOS checks the mode. 
If it is in direct mode, the DOS reads the 
keyboard, then goes to the print routine. 
The print routine has seven routines of 
it's own, 0-6. It calls the correct one, 
depending on whether the mode is 
direct, deferred, execute, read or write, 
etc. These routines are ail inter-retated. 


In direct mode, when a return is 
detected, DOS attempts to match the 
string in the keyboard input bulfer 
($200-2FF) to a command in the tabie. In 


the print mode, direct or deferred, it 
stores all characters in the keyboard in- 
put buffer untii a return is detected. it 
then checks for a CTRL-OD as the first 
character. if not found, DOS drops out 
and returns control to wherever it came 
from. However, if Control D is detected, 
DOS attempts to match the string to the 
command table. If a match is not made, 
it prints “Syntax Error”. 


When OOS matches a command, it 
then checks for names, if needed, or 
numbers, if needed. After getting ail 
data required, a check for optianal data 
is made. After any optional data is read, 
numbers are changed to hex if need be, 
the maximum and minimum ranges are 
compared, then if ail data is OK, the 
number is stored and DOS returns to 
check for any other optional data. 


A routine gets the correct address 
from the stack, then executes the com- 
mand. | have highlighted a few of the 
commands: 


PR# and IN# do the same function as 
in BASIC, except that DOS will set the 
nooks properly before releasing control. 


MON and NOMON set a mask at 
$AA74 as follows: O= monitor nothing, 
$10 = monitor 0, $20 = monitor |, $40= 
C, and combinations thereof. 


MAXFILES resets HIMEM and PP (INT 
BASIC) and allocates a file buffer via a 
subroutine at $A7D4. 


BRUN does a BLOAD then a JMP 
($AA72). 
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RUN does a foad, then jumps to a 
routine which executes the program. 


Which routine is used is dependent 
upon which language is being used, 
BASIC, FP RAM, or FP ROM. 


LOAD reads the file type and does 
either INT or FP as needed, then loads 
the program. When in FP mode, and 
alter the program is loaded, OOS does 
the call 3314 o¢ call 54514 as needed to 
set the program pointers for Applesoft. 


FP attempts to find a ROM card and 
turn it on. If possible, it sets the return 
addresses via a routine at $9D84. If no 
card is found, the DOS runs Apptesoft, 
then goes to a routine at S9DEA to set 
return addresses correctly. 


INT makes certain the ROM card is 
off, then goes to $9D84 to set return ad- 
dresses correctly. 


If a person wishes to use DOS from a 
language or operating system not stan- 
dard to the APPLE, there is no problem, 
unless an error is detected. If you do not 
wish an error message to cause a return 
to BASIC or Applesoft, the address at 
$9D5E and F can be changed for your 
particular system. ; 


Whenever a change in language is 
done, DOS updates it’s return address 


* stack from the stack for that particular 


language. All commands except PR#, 
IN#, MON, NOMON, INT. FP {if in ROM), 
and MAXFILES go through routines that 
use file buffers. 





All commands may be called from moves the head back and the best of my ability in the memory 
monitor or machine tanguage, provided forth. Odd addresses step maps that foilow. Notes tell the function 
(t} A language change is not needed, (2) one way, and even ad- and usage of each. On most items | have 
) the file names have been placed into the dresses step the other way. given only the starting address. The end 
| name buffer(s), and (3) that any other address is implied to be the next 
Parameters have been properly placed C08S = Turns off the drive motor. documented location minus one. On 
into their locations as needed. stacks of addresses, the parenthesized 
C08g =: Turns on the drive motor. number is the number of addresses con- 
tained In. that stack. Remember that any 
Bi paom: ee Gyles Gach: pce CO8A —s Enables drive two. two-byte items are always stored low 
tains the rogram to start the byte first. Documentation of addresses 
Boatieg of the DOS ‘The other is used for COSE —_Enables drive one. in the BOOO-BFFF area may be in error 
a program that, together with some CO8C,D Control connecting the AP- sheeted ae Bab too comptex for 
other IC’s, actually controls the head PLE bus to the hardware for me to retain my y. 
position, reading a bit, writing a dit, sen- strobing the byte in or out of My thanks to my family for their time 
ding the byte to the APPLE bus, and get- the 7415323 iC shift regis- and patience, to other persons for their 
ting a byte from the APPLE bus. The ter, depending upon the pre- articles on DOS functions, APPLE for 
following tocations control the hardware viously set status of their excellent documentation, without 
functions. Add 00S0 to each address, S CO8E,F. which 1 would have had no idea what 


= the sfot number of the controller card. was going on, and to Terry and Kent at 


eer x Om US contce Computeriand of Portland, for use of 


C080-87 These addresses sequen- | have documented ali routines, sub- their printer to obtain 60 feet of hard 
tially step the motor that routines, buffers, and other locations ta copy, and their moral support. 


Seana eee aera ee I NT TT ST I I 5. PTE EINE ET EES SIE EE I TT 
| | APPLE II DOS 3.2 Memory Map 
Dn a ee ET NT a a eT 


95FF Eng of user RAM: HIMEM = 49151 9b00 Address of name of first file 
9800 Start of data buffer 9D02 DOS keyin routine address 
9700 Start of track and sector buffer 9004 «OOS print routine address 
9800 Start of misce!laneous info buffer —- 9D06 Name number 1 buffer address 
982D Start of name of file Ro 9008 Name number 2 buffer address 
984B,C ” Address of start of miscellaneous info buffer SDOA 
($9800) 9D0C Bottom of DOS 
984D,E£ Address of start of track and sector buffer ($9700) SDO0E 
984F,0 Address of start of data buffer ($9600) 9010 Address stack for the internal print routines (7) 
98512 Address of start of name buffer, next file ($0000 = 9D1E Address stack for the DOS command routines (28) 
no more files) 9D56 Address stack for return to the current language 
9853 Data (6) 
9953 Track and sector 9062 Address stack for return to Integer BASIC 
9A53 Miscellaneous SD6C Address stack for return to Applesoft ROM (6) 
9A80 Name 9078 Address stack for return to Appiesoft Disk (6} 
SA9SE,F Address of start of miscellaneous info buffer 9D84 (3D3G) Control B, re-enters INT or FP (ROM only) 
($9A53) 9DBF (3D0G) Restores DOS and re-enters current 
9AA0,1 Address of start of track and sector buffer ($9953) language 
- 9AA2,3 Address of start of data buffer ($9853) 9DEA Restores $3D0 —-$3FF from $9E51 — $9E80 
9AA4,5 Address of start of name buffer of next fite down 9E51 Stack for the above routine 
($982D) 9681 Keyboard input routine 
9AAG Data 9EBD Calis correct internal print routine, depending 
9BA6 Track and sector upon mode 
9CA6 Miscellaneous 9ED1 Restores keyboard and print hooks 
9gCD3 Name SEEB Internal routine for information from the disk 
9CF1,2 Address of start of miscelianeous info buffer 9F1I2 Internat routine for printing 
(S9CA6) 9F23 Prints and exits DOS 
9CF3,4 Address of start of track and sector buffer ($9BA6) OFF Keyboard input internal routine 
9CF5,6 Address of start of data buffer ($9AA6) 9F52 Internal routine for sending information to disk 
9CF7,8 pesos of start of name buffer of next file down 9F61 Routine to correct internal routine 
SCF9 - aused 9F71 Used by the EXEC command 
9CFF 9F83 Mask MON status, print and exit 
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9FC8 
9FCD 


A22E 


A233 


A230 
A251 


A27t 
A275 
A27D 
A281 
A298 
A2A3 
A2EA 
A331 
A35D 
A38E 
A397 
A413 
A4D1 
A4E5 
A4FO 
A4FC 
A506 
A510 
A51B 
AS4F 
AS6E 
A57A 
A5SE 
A5C6 
A500 
A60E 
A626 
A644 


A65E 

A679 

A682 

A6SD 
A6AB 
A6C4 
A6C8 
A6CC 
A600 
A6D5 


A71A 
A743 
A74E 


A764 


Does a RETURN 


Start of section that attempts to match to a com- 
mand and get alt information needed and all op- 
tional information given. Checks syntax and 
ranges before execution. 


PR# routine 

IN# routine 

MON routine 

NOMON routine 
MAXFILES routine 

Start of DELETE routine 
Start of LOCK routine 
Start of UNLOCK routine 
Start of VERIFY routine 
Start of RENAME routine 
Start of APPEND routine 
Start of OPEN routine 
Start of CLOSE routine 
BSAVE routine 

BLOAD routine 

BRUN routine 

SAVE routine 

LOAD routine 

Run routine 

Runs Integer BASIC program 
CHAIN routine 

Runs FP ROM program 
Runs FP RAM program 
WRITE routine (set up} 
Read routine (set up} 
INIT routine 

Catalog routine 

FP routine 

INT routine 

EXEC routine 

Position routine 

Starts the read process 
Starts the write process 


Stores data coming from text file into keyboard 
buffer. Used by the EXEC command. 


Error checking? 

Closes files, exits DOS 

Goes to hardware routines 

Sets up address of name section of next file 
Close the buffer last used 

Prints, "SYNTAX ERROR " 

Prints, “NO BUFFERS AVAILABLE” 

Prints, “PROGRAM TOO LARGE” 

Prints, “FILE TYPE MISMATCH" 

Prints other error messages by message number 
contained in $AA5C 

Moves parameters given to locations for use by 
hardware routines 

Moves name from the name buffer to the name 
section of the file buffer 

Moves addresses of sections of file buffers to 
locations for use by hardware routines 

Attemots to find a file buffer already in use by the 
name given 


A74F 
A7C4 
A7D4 


A851 
A884 


Ag41 
AS4A 
A995 


A971 
AA3F 


AA4F,50 


AAS1- 
AAS2 
AAS3,4 
AAS5,6 
AAST 
AASB 


—“AASS— 
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AASE 
AASF 


AAG — 
61 


AAG2 — 
65 
AAG66,7 


AA68,9 
AA6A,8 
AA6C,D 
AAGE,F 
AA70,1 
AA72,3 
AA74 
AA75 
AA93 
AAB1 
AAB2 
AAB3 
AAB4,5 
AABE 


AAB?7 
AABS 
AAC1,2 
AAC3,4 


AACS5,6 
AAC7,8 
AACI 
AADS 


Checks flie type 


Sets up file buffers and addresses (used by MAX- 
FILES) 


Restores DOS hooks 
Start of command table 


This is a table of two-byte masks. One byte is us- 
ed to determine what type of extra data is needed 
by a command. The other byte is used by the hard- 
ware routines for what file type to create or look 
for. 


Table containing the letters V, D, S, L, R, B, A, C, |, 
O. This is used when checking for optional data. 


Tabie of bytes for determining what type of op- 
tiona! data to look for. 


Table of minimum and maximum ranges for V, D, 
S, L, R, B, A. 


Start of error message table 

Relative address of start of error message, i.e. 
($A971,X) 

Address of name section of next available fife buf- 
ter 


Internal print routine number 

PR# hooks out of DOS 

IN# hooks out of DOS 

Number of total file buffers 

Number of file buffers not in use 
Temporary storage used by various routines 


Mask for MON and NOMON 
Command number 
Found L$ from a BLOAD 


Temporary storage used by various routines 


Defined volume number 
Defined drive number 
Defined slot number 
Defined length 

Defined record number 
Defined byte number 
Defined address 


Start of file name buffer number 1 
Start of file name buffer number 2 


Control D 
Mode (direct, deferred, etc.} 


Value used for language, e.g. INT = 0, FP RAM = 
CO, FP ROM = 80 


The name, “Applesoft” 
Address of start of 1OB (used by RWTS) 


Address of start of buffer for track/sector list (us- 
ed by RWTS) 


Address of start of buffer for data (used by RWTS) 
Top of total RAM in the APPLE ti 

Address stack for hardware routines (14) 
Address stack for hardware routines (6) 





AAF 1 
AAFD 
AB28 


ABDC 
ACO6 


AC3A 


AC58 
AC70 
AC87 
AC8A 
AC93 
AC96 
ACA8 
ACBB 
ACBE 
ACC7 
ACCA 
ACDA 
ACEF 
ACF6 
ADi2 
ADt8 
AD2B 
AD54 


ADg8 
AE42 


AE6A 
AE7E 


AEBE 
AF08 


AFID 
AF34 


AF48 


AF5E 


AFDC 
AFE4 


AFF7 
AFFB 
8011 





Address stack for hardware routines (6} 
Goes to the correct hardware routine 


Reads VTOC and reads directory attempting to 
find an entry: with the same name as the one 
given. If not found, checks the table of masks to 
see if it is allowed to create a file. if it may, it does 
So, and if not, it exits with “FILE NOT FOUND" or 
“LANGUAGE NOT AVAILABLE” 


Clears miscelianeous info hardware buffer; sets 
volume number, drive number and stot number, 


Close routine. Updates VTOC, track bit map, and 
Sector count of directory entry as needed. 


Rename routine. Finds directory entry, stores new 
name in entry, then writes that directory sector 
Dack to disk. 


Goes to correct hardware routine 
Goes to correct hardware routine 
Sets parameters for foliowing routine 
Actually reads text file 

Sets parameters for following routine 
Reads program or binary file | 

Puts byte being read into buffer 

Sets parameters for following routine 
Writes into text file 

Sets parameters for following routine 
Writes program or binary file 

Gets byte being written from buffer 
Lock hardware routine 

Unlock hardware routine 

Sets parameters for following routine 
Verify hardware routine 

Delete hardware routine 


Part of delete routine, 
deleted file, 


Catalog hardware routine 

Part of catalog, prints the number in $44 as three 
digit ASC. 

Moves miscellaneous info from the file buffer to 
the hardware buffer. 

Moves miscellaneous info from the file buffer to 
the hardware buffer. 

Initialize hardware routine 

Sets 42 and 43 as pointers to sections of the file 
buffer 

Writes data section of fite buffer to disk 

Writes track/sector list section of file buffer to 
disk 

Sets hardware pointer to the track and sector list 
section of the file buffer being used 


Checks position in file. If out of Current sector, 
reads/writes next sector, updates VTOC buffer, 
updates track/sector list section of file buffer if in 
write mode. 

Reads from disk into data section of file buffer 


Sets hardware pointers to data section of file buf- 
fer being used 

Reads VTOC to its buffer ($8388 ~ B4BA) 

Writes VTOC from its buffer 

Reads a directory sector into its buffer 
(°84BB — BSBA). initially reads sector A, suc- 


cessive entries Into this subroutine read suc- 
cessive sectors from the disk. When ait sectors 


frees sectors used by 
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B037 


B052 
BOAO 
BOA1 
BOB6 


8134 
B15B 
B194 
BIA2 
B185 
BICc9 


B21E 
B224 
B2c3 
B20D 
B300 
B3SF 


8397 - 
A6 


B3A7 ~~ 


B3A6,C 
BS3AD — 
BA 
B38B 
B48B 
BS58B ~ 


B501 ~ 
FF 


B700 


B74A 


B793 


B7B5 
B7C2 


B7D8 


B7E7 
B800 


BA90— 
FF 


BB00 
BCOO 
BDOO 
BFD4 
BFDS 


BFFF 


have been read and the subroutine is called again, 
it wil merely exit with the carry set. 


Writes current directory sector from buffer to 
disk, 


Sets up !OB for directory sectors, goes to RWTS 
End of above if no error 
Start of error handling routine for above 


Checks position in fite, reads/writes next sector 
as needed 


Initializes data section of file bufter to ail zeroes 
Sets next position in file 

Increments position in file 

Sets next RAM address 

Calculates how much RAM is left 


Reads VTOC and successive entries, attempting 
to find the specified file name. 


Puts name of file into directory 

Sets next sector, updates VTOC buffer 
Updates VTOC 

Caiculates track bit map for VTOC 


- Sets/checks parameters for file? 


Routine with different entry points to exit the 
hardware routines with error 


Temporary storage for hardware routines 


T, |, A, B Used by catalog for file types 


In reverse order, the string, “DISK VOLUME” 


VTOC buffer 
Directory buffer 
Temporary storage for hardware routines 


Miscellaneous info section of Currently used file 


Buffer. Purpose? 


Reads drive 1, current Slot, $81 sectors, track 0, 
Sector A into RAM starting at $1B00. Boot 
routine? 


Writes $0A sectors, starting from $8600, then $18 
Sectors, starting at $1800, beginning at track 0 
sector 0. 


Increments track/sector as needed and data ad- 
dress for above two routines 


Calls RWTS, checks status upon return 


Sets address of data buffer, and sets expected 
volume number 


Stores zeroes in one Page, Starting at the address 
in $42, 43 


Start of IOB and device characteristics table 
Part of RWTS? 
Temporary storage for RWTS? 


One-page buffer (RWTS?) 
One-page buffer (RWTS?) 
Start of RWTS 

End of RWTS 


Various endings sections for the hardware 
routines 


End of RAM 


Intercepting DOS Errors from Integer BASIC 
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implement true turnkey applications on the APPLE with 
this DOS error handling interface. Now Integer BASIC 
programs can trap errors from DOS, diagnose problems, 
and take remedial action with no intervention from the 
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operator. 


see 


When a DOS error such as FILE NOT 
FOUND occurs during execution of a 
BASIC program, execution is suspended 
and an error message is printed. Unfor- 
tunately, this is often not what we want 
to happen. We would prefer for the pro- 
gram to be notified of the error and 
allowed to continue execution, dealing 
with the error in any fashion it desires. 


This is fairly easy to achieve under 
AppleSoft because it includes an 
ONERRA error intercepting facility. !t is 
much harder to intercept errors from In- 
teger BASIC; this articie describes one 
method for doing so. 


Unlike Integer BASIC, the DOS resides 
in normal RAM. This means that it can be 
patched to make it do almost anything 
we wish. It turns out that location 905A 


(for 48K systems) holds the address of. 


the BASIC error-handiing routine that 
DOS vectors to whenever an error arises. 
it usually contains E3E3, for Integer 
BASIC, and 0865 for ROM AppieSoft. 
However, we can store our own address 
into 905A (505A for 32K systems) 
and thereby gain controt whenever 4 
DOS error occurs. 


The following 24-byte, relocatable rou- 
tine wiil intercept errors from BASIC. 
When a DOS error arises, it will store the 
error number at location 2; the line num- 
ber of the staternent that caused the 
error in locations 3 and 4; and, finatly, 


it will transfer contro) to the BASIC Number 
statement whose line number is found in 
focations 0 and 1. Since the routine is 1 
; 2 
MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 3 
4 
5 
0010: 3030 ORG $300 6 
0020: 3030 86 02 STX $0002 SAVE ERROR NUMBER 
0030: 3032 40.01 —_- LDYIM $0001 7 
oowo: 3034 B1 DC LDALY $OODC GET LOW BYTE OF ERRING 8 
0050: 3036 85 03 STA $0003 LINE NUMBER AND SAVE AT $3 9 
0060: 3038 C8 INY 
9070: 3039 BI DC -=—«sLDTAIY $00DC DITTO FOR HIGH BYTE 10 
0080: 3038 85 04 STA $0004 44 
0090: 303D 45 00 LDA $0000 GET LOW BYTE OF LINE NUMBER 12 
0100: 303F 85 CE STA  §00CE Of ERROR HANDLING STATEMENT 
0110: 3041 aS 01 LDA $0001 DITTO FOR BIGH BITE; SET 13 
0120: 3043 85 CF STA  $O00CF THINGS UP FOR BASIC AND 14 
9130: 3085 4C 5B 86 JMP $85 LET THE FIRMWARE TAKE OVER 15 


relocatable, you can position i any- 
where you wish. Location 300 appears 


to be a pretty good place, unless you are 


keeping your printer driver there. 


To activate the error intercept facility, 
perform the following two POKEs which 
store the address of the intercept rou- 
tine in $9D5A: 


POKE -25254,0: POKE -25253,3 
(for 48K systerns) or 


POKE 23898,0: POKE 23899,3 
{for 32K systems) 


The error intercept routine itself can 
be POKEd into page 3 or BLOADed off 
disk, whichever you prefer. if you locate 
it somewhere other than $300, make 
sure to alter the above POKEs accord- 


ingly. 


After the routine is loaded into memory, 
it is very easy to use. If LINE is the tine 
number of the statement where the eér- 
ror handling portion of your program be- 
gins, you should “POKE 0, LINE mod 
256" and “POKE 1, LINE/256" to inform 
the interceptor where you want it to 
branch to. Your BASIC error-handler can 
figure out which statement caused the 
error by PEEKing at locations 3 and 4. 


Andy Hertzfeid 
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PEEK(3)+ 256*PEEK(4) is the line 
number. it can determine which type of 
DOS error occured by PEEKing at loca. 
tion $2. Table 1 gives the numbers for 
the various different classes of error. 


Unfortunately, there is still one minor 
problem. Even though you regain control 
when a DOS error occurs, DOS still rings 
the bell and prints out an error message. 
One simple POKE will inhibit DOS from 
doing this but, since the POKE will 
supress. ali DOS error messages, in- 
cluding immediate execution errors, it is 
a little bit dangerous. Aiso, the POKE is 
different for different memory size sys- 
tems and for different versions of DOS. 


48K with DOS V3.1: POKE -22978,20 
48K with DOS V3.2: POKE -22820,18 
32K with DOS V3.1: POKE 26174,20 
32K with DOS V3.2: POKE 26332,18 


On ail systems, you can restore error 
messages by POKEing 4 into the system- 
dependent address cited above. 


The ability to capture DOS errors is 
very important, especialty for turn-key 
systems where it is a disaster if a pro- 
gram crashes for any reason at all. Per- 
haps this little routine will allow more 
people to program in faster, more ele- 
gant Integer BASIC rather than choosing 
the AppleSoft language. 


Table | — Error Numbers and Messages 


Message 


Language Not Available 
Range Error 
Range Error 
Write Protection Error 
End of Data Error 
File Not Found Error 
Volume Mismatch Error 
Disk 1/O Error 
Disk Full Error 
File Locked Error 

~ Syntax Error 
No Buffers Left Error 
File Type Mismatch 
Program Too Large Error 
Not Direct Command 


Note that these are error messages for DOS V3.2; 


the V3.1 messages are slightly different. 
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Applesoft Ii Shorthand | 


lf you want to make Applesoft a little easier to use, try 
this program which permits entire commands to be input 
with a single control key. Since the command lookup is 
table driven, you can select the keys to conform to your 
own preferences. The techniques used provide a valuable 
understanding of how to add your own modifications. 
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Allen J. Lacy 
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Albany, GA 31707 


This routine allows a programmer to 
type in an entire Applesoft command with 
the use of one control key. 


Overview 


The routine Shorthand ties into the in- 
put hooks at $38 and $39 (56 and 57 


decimal) and uses a table inside the RAM- 


version of Applesoft il. In Applesoft’s 
table, each command is represented as 
an ASCI! string with the high bit off ex- 
cept for the last character of the string 
which has the high bit set. The routine 
also uses a monitor routine to read a key. 
If itis a control character, shorthand gets 
an address from its internai table. if the 
high byte of the address is 0, the routine 
passes the contro! character back. If the 
address is not 0 shorthand passes the 
command stored at that location back. 


Step 1 turns DOS off. Step 2 turns 
Shorthand on. Step 3 turns DOS back on. 
But DOS will not be on at the same time 
as shorthand. 


To use with ROM version. 


Shorthand could be adapted to run 
with the ROM version of Applesoft Il 
The addresses in Shorthand would have 
to be changed. | do not have access toa 
ROM card and so do not know the ad- 
dresses. But if the ROM version is justa 
relocated RAM version, the addresses in 
Shorthand and table just need $C800 ad- 
ded to them. 


Shorthand does not use ai! of the con- 
trot keys because some have special 
functions. These functions are shown in 
Table 1. if you do not mind losing these 


functions, these keys can be used also. 
The choices for which command is tied to 
which key is shown in the program listing. 
If you do not like my choices, you can 
Change the command addresses stored 
in Table 2. The addresses are for the RAM 
version and wil! not work for the ROM ver- 
sion. 


““- —"Use Of Shorthand 


Shorthand is relocatable and can be 
Placed anywhere in memory. | normatly 
load it at $300—$3AE, which is where ! 
assembled it. But it can be placed 
anywhere. Applesoft's HIMEM: can be us- 
ed to protect some upper memory. 


Example: 

A 32K system without DOS can have 
Shorthand loaded at $7F51-7FFF and 
then HIMEM: can be set to 32593. 

So to bring up Shorthand use the foilow- 
ing steps: 


1. LOAD and RUN the Appiesoft 
TAPE 


2. Enter the monitor by pressing 
RESET or do a CALL ~151 


3. Type 
300.3AER 
or type 
7F51.7FFFR 


4. Start tape with Shorthand on it . 


and press RETURN, stop the 
tape when it has ioaded 


5. Type 
OG 
Press Return 
6. Type 
POKE 1144,0 


Press RETURN 
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7. If Shorthand is at $300—S3AE 
type 
POKE 56,0; POKE 57,3 
!f Shorthand is at $7F51-——$7FFF 
type 
POKE 56,81: POKE 57,127 


8. Press RETURN 


9. If Shorthand is at 7F51 type 
HIMIM: 32593 
Press RETURN 


Another good piace to store Shorthand 
is between Applesoft li and your program. 
The problem is that Applesoft's LOMEM: 
does not set the lowest memory used by 
Apptesoft, but sets the point at which Ap- 
plesoft will start storing variables. But the 
monitor can be used to set pointers. To 
do this the following steps are used: 


1. LOAD and RUN the Applesoft 1 
tape 


2. Enter the monitor by pressing 
RESET or do a CALL—-151 


3. Type 
3000.30AER 


4. Start the tape with Shorthand on 
it and press RETURN 
When it has loaded stop the 
tape. 


5. Type , 
67:B0 30 
Press RETURN 


6. Type 30AF:0 
30AF:0 
Press RETURN 


7. Type 
0G 
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Press RETURN 
8 Type 

NEW 

Press RETURN 
9 Type 

POKE 1144,0 

Press RETURN 


10. Type “ 
POKE 56,0:POKE 57,48 
Press Return 


Shorthand will now be tied In. 


Step 5 sets the pointer which tells Ap- 
plesoft 1! where to start storing a program 
to $3080. Step 6 sets the byte just beiow 
the start point to 0, 1 do not know why Ap- 
plesoft wants this, but it will bomb if it is 
not done. Step 8 causes Applesoft to 
reset the rest of its pointers to reflect the 
new start point. 


Now every time you want to type one of 
the commands stored in the table just 
press the control key and another key at 
the same time. 


Exampie: 
To enter INPUT press the contro! key at 
the same time as the i. 


i have made labels for my keyboard 
showing which command is under which 
key. To return full contro! to the key 
board, use the command IN 0. To turn 
Shorthand back on just POKE the correct 
values back into 56 and 57. Shorthand 
does not have to be turned off when you 
are finished programing and want to run 
a program, unless the program wants for 
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Input one of the contro! keys which Short- 
hand uses. ! normally set the hooks when 
t bring up Applesoft and leave them set. 


The routine shoutd work with DOS. | do 
not have DOS so these techniques are 
not tested. Since DOS communicates 
with the rest of the system via the input 
and output hooks at $36—39, you can not 
set the hooks to tle in shorthand without - 
turning off DOS. But DOS has its own in- 
ternal hooks. Unfortunately the hooks are 
at different places for different memory 
sizes. In a 48K system the input hook is at 
$A998, $A999 (22120, 22119 decimal). For 
smailer systems subtract 48K—X from 
the numbers, where x is the memory size. 
The above information came from Expior- 
ing the APPLE II DOS by Andy Hertzfeid 
in MICRO 9. So POKE the address of 
Shorthand in the DOS hooks 


Another way that should work is to turn 
DOS off by the use of the following steps. 


1. After dringing up Applesott and 
loading Shorthand type 
PR O:IN O 
Press RETURN 


2. Use POKEs to set 56 and 57 if 
Shorthand is at $300 
POKE 56,0:POKES57,3 


3. When you are finished type 
CALL 976 
Press RETURN 


Step 1 turns DOS off. Step 2 turns shor- 
thand back on. DOS will not be on at the 
same time as Shorthand. 


Table 2 
8DO END 8D3 FOR 8D6 NEXT 8DA DATA 
8DE INPUT 8E3 DEL 8E6 DIM 8E9 READ 
8ED GR BEF TEXT 901 HLIN 905 VLIN 
909 HGR2 90D HGR 910 HCOLOR= 917 HPLOT 
91C DRAW 920 XDRAW 925 HTAB 929 HOME 
92D ROT= 931 SCALE= 937 SHLOAD 93D TRACE 
942 NOTRACE 949 NORMAL 94F INVERSE 956 FLASH 
95B COLOR= 961 POP 964 VTAB 9868 HIMEM: 
96E LOMEM: 974 ONERR 979 RESUME 97 RECALL 
985 STORE 98A SPEED= 990 LET 993 GOTO 
997 RON 99A IF 99C RESTORE 9A3 & 

' 9484 GOSUB 9A9 RETURN SAF REM 9B2 STOP 
S9B6 IN 9B8 WAIT SBC LOAD 9D0 CONT 
9D4 LIST 908 CLEAR 9DD GET SEO NEW 
SE3 TAB( 9E7 TO 9E9 FN 9EB SPC{ 
SEF THEN 9F3 AT 9F5 NOT 9F8 STEP 
SFC + SFPD - SFE * SFF / 

AOO + AQl AND A04 OR A0Q6 > 
A0Q7 = A08 »> A093 SGN Ao0c INT 
AOP ABS Al2 USP Al5 FRE - Al8B SCRN( 
AlD PDL A20 POS A23 SOR A26 RND 
A29 LOG A2C EXP AZ COS A32 SIN 
A35 TAN -A38 ATN A3B PEEK A3F LEN 
A42 STRS A46 VAL A49 ASC A4C CHRS$ 
A5O LEFTS$ AS5 RIGHTS ASB MIDS 





APPLE II Floating Point Utility Routines 





Here is a guide to the Applesoft BASIC floating point 
utility routines which will permit them to be used eftec- 
tively from assembly language programs. Get the best of 
both worlds: optimize your programs by writing them in 
assembly, and, use these exceilent floating point math 


routines directly. 


Although floating point capabilities 
are available in Applesoft BASIC, it is 
Still useful to do floating point opera- 
tions from machine language. This is 
especially true when the floating point 
operations are needed at some point in 
a machine language routine and it would 
be very tedious to pass parameters back 
up to a FP BASIC program. The alter- 
native of writing special machine 
language routines for the solution of a 
few caiculations can also delay a pro- 
gramming project unnecessarily. The 
purpose of this article is to give an idea 
of how the AFPUR (Apple Floating Point 
Utility Routines} work and how to use 
them. 


AFPUR uses 248 bytes from $F425 
to$SF4F8 and the FIX and underflow 
routines from $F63D to $F65D. in case of 
overflow, a jump to OVLOC ($3F5) is 
taken, where a jump to your own code 
should be stored. Floating Point work 
space is given in the reference manual 
as $FO to $FF aithough only $F3 to $FF 
are used. The floating point work space 
bytes and their uses are given in Table 1 


E is an extra copy of the FP! man- 
tissa saved during all arithmetic opera- 
tions although it is actually used only in 
division. EG is an extra byte changed by 
the align and normalize code when FP1 
and FP2 are being shifted. FP = X,H.M,L 
is the floating point format of a number 
where X is the exponent and H, M, and L 
are the high, medium, and low bytes of 
the mantissa. Note that the arder of tne 
bytes according to significance is op- 
posite that in Integer and FP BASIC and 
the Sweet 16 interpreter. 


The floating point format is similar 
to 32-bit hardware on many larger com- 
puters. The exponent is excess 128 so 
that $80 represents 20. The mantissa is 
two complement normatized until the 
two leading bits are different so that 
+ 1.0 = $80 40 00 00 and —1.0 = $7F 80 
00 00. Here are some more examples of 
decima! numbers in hex floating point 
format: 





Q.0 = $00 00 GO 00 
1.5 = $80 60 00 00 
1.75 = $80 70 00 00 
10.0 = $83 40 00 00 
256.0 = $88 40 00.00 
0.1 = $70 66 66 66 


Note that the floating point form 
$7C 66 66 66 is a truncated approxima- 
tion of 0.1 so that 0.1 multiplied by 10.0 
will give $7F 7F FF FE instead of $80 40 
00 00. The AFPUA will work on unnor- 
malized numbers although there can be 
a loss of accuracy because of the way 
the alignment-code works. For example, 
in adding the numbers $7F 80 00 00 and 
$69 40 00 00, the result is $7F 80 00 00 
+$7F 000001 = $7F 800001. Using the 
unnormalized $80 CO 00 00 would give 
$80 CO 00 00 + $800000 00 = $7F 8000 


00. These cases give trivial losses of ac- 


curacy, but more extreme cases can 
make your Appte Il seem like it can't add. 
Since results of arithmetic operations 
are normalized in all cases, unnormaliz- 
ed numbers can only be input to the AF- 
PUR by the programmer in the form of 
stored constants. 


Table 2 gives a general idea of how 
the AFPUR works. 


Trying to POKE or PEEK from in- 
teger BASIC will not work because 
critical information is stored in the same 
locations as the floating point work 
space. For example, $F6 and $F7 con- 
tain the current Integer BASIC line 
number and $F8& contains the automatic 
line numbering mode flag. if a machine 
language routine is called from Integer 
BASIC and AFPUR routines are used, 
then location $F8 should be set to 0 
before returning to the Integer BASIC. 
program. 


In the following examples of calls to 
AFPUR, FPt and FP2 are used as the 
4-byte FP registers at $F8 and $F4. If you 
can try the monitor calls on your Appie 
I!, the examptes will be more instructive. 
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FCOMPL is called by FSUB one 
time, FMUL two or three times, and FDIV 
two or three times. it may be cailed 
directly by the user. The only FP number 
which can cause an overflow error is $FF 
80 00 00. FCOMPL is easy to use from 
the monitor: 


*F8:80 60 00 00 

“F8.FB F4A4G F8.FB. 
An example of a call to give A= —Acan 
be coded by the steps: 


*0) Deciare hex storage as a hex 


String 
A ‘HS 00000000 
*1) Load FP1 with A 

LDX #3 
LDAL LDA A,X 

STA FP1,X 

’ DEX 

BPL LDAL 
*2) Floating complement the 
number 

JSRAS$F4A4 FCOMPL 
*3) Store FP1 in A 

LOX #3 
STAL LDA FP1, x 

STA A,X 

DEX 

BPL STAL 


FLOAT of a fixed point number 
assumes a 15-bit signed integer in M1H 
and M1M and an 8-bit fraction in M1L. If 
no fraction is intended, then M1L must 
be set to $00. FLOAT is a special entry 
point preceeding normalization code 
and is called no other place in APFUR. 
FLOAT is solely for the user. Because of 
the 15-bit limit on the magnitude of the 
integer, there can be no overfiow errors. 


An example of using FLOAT from 
the monitor is: 
“F9:00 64 00 
*F8. FB F451G F8.FB. 


An exampie of a cali to give FPA 
= float (IA) can be coded by the steps: 
*0) Declare hex strings for 1A and 
FPA 





cowie 


SO AT SPO EER FUER PN MEE? OP NOE EP Sf 


we et rr * e en  e ereeee ee 


RT ewe 


mae. Soe ee ae 


aeeetedaatal 


th atei ner aen 


tA .HS-0000 

FPA  .HS 00000000 

*4) Load IA into M1 
LDA IA + 1 intg high byte 
STA M1H 
LDA {A Intg low byte 
STA M1M 
LDA #0 
STA MIL 

*2) Float the integer 
JSR $F451 FLOAT 

. £3) Store FP1 into FPA 

LDX #3 

STAL LUDA FP1, X 

. STA FPA, X 
DEX 
BPL STAL 


The Fix of an FP number returns a 
15-bit signed integer in M1H and M1M 
and an 8-bdit fraction in M1L. Depending 
on the size of the FP number, EH, EM 
and EL may also contain parts of a frac: 


tion which could be useful in some 
calculation. In the more typical uses of 
FIX, only MtH and M1M are of practical 
use. FIX has a flaw in the way it treats 
negative numbers. The FIX1 ($F63D) en- 
try point must be used for negative FP 
numbers. Calling FIX for FP numbers 
with exponents jarger than $8E€ will 
cause overflow errors. Calling FIX1 for 
negative FP numbers with $8E 7F FF 00, 
$8E 80 00 00, or exponents larger than 
$8E wilt cause overflow errors. To insure 
that the overflow routine given later in 
this article will operate properly, a CLV 
should preceed all FIX and FIX1 calls. 
Some examples of fixing FP numbers 
from the Monitor are: 


“FB:7F 80 00 00 
*F8.FB F630G F8.FB 
*F8:80 7F FF 00 
*F8.FB F640G F8.FB 


An example of using an_ in- 
termediate routine UFIX to give IA = 
fix(FPA) is: 


*0} Declare hex strings for IA and 


IA «HS 0000 

FPA -hs 0000000 

“1) General UFIX routine 

UFIX CLV FOR 
OVERFLOW PROCESS. 
ING 
LDA M1H GET SIGN OF 
FP1 
BPL UFIM 
JSR $F6é8D FixXt 
(NEGATIVE FP1)} 
RTS 

UFIM JSR $F640 Fix 
(POSITIVE FP) 
RTS 

*2) Load FPA into FPt 
LOX #3 

LOAL LDA FPA, X 
STA FP1, X 
DEX 
BPL LDAL 

*3) Fix the FP number 
JSR UFIX 

*4) Store M1 into !A, reversing 


byte order . 


LDA M1M 
STA IA 

LDA M1H 
STA IA +1 


Unfortunately, FP2 is sometimes 
changed depending on the signs and ex- 
ponents of FP1 and FP2 in routines 
FADD, FSUB, FMUL, and FDIV. Thus, if 


- FP2 is a constant being used in a series 


of calculations, it would be wise to 
restore FP2 each time. 


An overfiow error can occur in the 
FSUB call to FCOMPL FP1 can be cor- 
rected and contro! returned to FSUB, 
FADD and FSUB may both have overflow 
errors after the operation is completed 
and normalization is being done. FP2 
and FP1 are swapped (interchanged) if 
FP1 has the !arger exponent since align- 
ment aperates by shifting the mantissa 
of FP1 right until the exponents X1 and 
X2 are equal. 


An example of using FADD and 


*F4:81 40 00 00 80 40 00 00 
*FO.FF F46EG FO.FF 
*F4:81 40 00 00 80 40 00 00 
*FO.FF F468G FO.FF 


FMUL and FDIV both call FCOMPL 
to get the absolute value of the operand 
in FP1. This is done by swapping FP1 
and FP2, taking the absolute value of 
FP1, swapping FP1 and FP2 again, and 
taking the absolute value of FP1 again. 
The sign of the result (product or quo- 
tient) is stored at location $F3 in the 
right-most bit. Before returning to the 
user’s program, the sign is tested and 
FCOMPL is catled if bit 0 of SIGN is set. 
An overflow error can occur on any of 
these FCOMPL calls if FP1 is $FF 80 00 
00. Both FMUL and FDIV check for 
overfiow and underflow when caicula- 
ting the exponent of the unnormatized 
resuit. Underfiow is handled by UNDFL 
at $F657 and overflow by the user’s own 
routine. 


FP constants may be calculated by 
using the monitor as in finding 29.43. 
The steps are: 


1) foad M1M with 43 = $28 

2) float 

3} move FP1 to FP2 

4) toad M1M with 100 = $64 

5} float 

6) divide giving FP1=float 
{43)/ftoat (100) 

7) move FPt to FP2 

8) load M1M with 29=$1C 

9) float 

10) add giving FP1 = 29.43 

*F8:00 00 2B 00 F8.FF 

*F451G F4 F8.FBM FO.FF 
*FB:00 00 64 00 F8.FF 

*F451G F4B2G F4 F8.FBM FO.FF 
*F8:00 00 1C 00 F8.FF 

*F451G F46EG FO.FF 


The final result is FP1=$84 71 B& 
51 or 29.43. 


As is obvious to the most casual 
observer, calculating very many con- 
stants using the monitor is hazardous to 
your enthusiasm. 


Table 2 


ADOR ROUTINE OPERATION TIME 


FPA 
FSUB from the monitor is: 
Tabte 1 7 
ADOR NAME USE 
$F3 SIGN Product/Quotient sign 
$F4 x2 FP2 exponent 
$F5 M2H FP2 mantissa high byte 
$F6 M26 FP2 mantissa medium byte $F46E = FADD 
SF7 M2L FP2 mantissa low byte $F468 FSUS 
$FB x1 FPL exponent $SF48C 0s FMUL 
$F9 M1H FP1 mantissa nigh byte $F4B2 SO FDIV 
SFA MiM FPL mantissa medium byte $F451 FLOAT 
$FB MLL FP1 mantissa low byte $F640 = FIX 
SFC. EH M1H copy $F4A4 = FCOMPL 
$FD EM MIM copy 
$FE EL MIL copy 
$FF EG garbage 
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1.5 millisec 
1.6 millisec 


FP1 = FP2+ FP1 
FP1 = FP2— FP1 
FPL=FP2*FP1 3.5 millisec 
FPL=FP2/FP1 5.6 millisec 
FP1=float(ML} 105 microsec 
Mi = fix(FPL) 125 microsec 
FPis — FPL 135 microsec 
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- Fhe order in which operands are 
toaded in FP1 and FP2 for addition and 
Myitiplication can be chosen so that the 
user's code is more efficient. For exam- 
ple, the statement D=A*°B+C can be 
coded by the steps: 


*0) Declare hex strings for 
A,B,C,0 

.HS 80 6000 00 1.5 
.HS 82 40 00 00 4.0 
.HS 7F 8000 00 -—1.0 
-HS 00 00 00 00 

1) Load FP1 with A 

LDX #3 

LDA A,X 

STA FP1.X 

DEX 

BPL LDAL 

*2) Load FP2 with B 

LDA #3 

LDA BX 

STA FP2,X 

DEX 

BPL LDBL 

*3) Multiply with product left in 
FP1 


onw,y 


LDAL 


LOSL 


JSR $F48C 
*4) Load FP2 with C 
LDX #3 
LDA C,X 
STA FP2,X 
DEX : 
BPL LDCL 
*5) Add with sum left in FP1 
JSR $F46E 
*6) Store answer in D 
LDX #3 
LDA FP1,X 
STA D,X 
DEX 
BPL STDL 


LDCL 


STDL 


The statement O=A/B-C can be 
coded by the steps: 


*7) Load FP2 with A and FP1 with 
B 

LDX #3 

LDA A,X 

STA FP2,X 

LDA 8,X 

STA FP4,X 

DEX 

BPL LABL 

*8) Divide leaving the result in 
FPt 


LABL 


JSR $F482 
*9) Move FP1 to FP2 and load FP1 
with C 
LDX #3 
LDA FPt,X 
STA FP2,X 
LDA C,X 
STA FP4,X 
DEX 
BPL LDOCL 
*10) Subtract leaving the dif- 
ference in FP 
JSR $F468 
*41) Store the answer in D 
LDX 43 
LDA FP1,X 
STA D,X 
DEX 
8PL STDL 


LDCL 


STDL 


All of the overflow errors detected 
in the AFPUR jump to OVLOC and then 
to the user's code. When CLV is used 
before fixing a FP number, the status 
register bits N,V,Z can be used to deter- 
mine the routine where the error oc- 
cured. Table 3 demonstrates this. 


Table 3 
Routine NVZ EOR Test STK 
FIX “OQ1 $02 0 
FIXL od 1 $02 a0) 
FCOMPL O11 $42 0 
FADD O11 $42 0 
FSUB O11 $42 Q 
FMUL 100 $80 2 
FDIV 1090 380 e 


The routine in Listing 1 determines 
which minimum or maximum integer or 
FP number to store in FP1 before return- 
ing to the AFPUR. The contents of the 
status register and the AFPUR return ad- 
dress are stored in locations $F0, $F1, 
$F2. 


The times for the AFPUR given at 
the first of this article are for the 
routines themseives. As can be seen by 
the previous examples, much more code 
is required to-make practical use of the 
AFPUR. Two fairiy simple programs 
were used to time the AFPUR. The pro- 
gram used to time FADD consisted of 
summing the floated values of the in- 
tegers 1 to 32,768. The program required 
about 55 seconds to get $9C 7F 64 00, 
which is close to 5.37°10* Part of the 
time was Spent in the FLOAT routine and 
the summing program itseif. A tisting of 
the program is given in Listing 2. 


The relative offsets of labels from 
SUM! are ZL=$04, INC? =$0A, 
FLT =$2D, SL=$3E and IH = $49. 


The program used to time FMUL 
consisted of summing a geometric pro- 
gression with a factor close to 1.0. The 
multiplications invoived caiculating the 
next term in the sequence. For a factor 
too close to 1.0, the foss of accuracy in 
the floating point operations gave an in- 
correct answer. However, for factors like 
$80 3F FF FO, the answer was close 
enough. A listing of the program for 
finding 
(1-R N)KI-Ry=14+R+...+R Nis 
given in Listing 3. 


The code in the AFPUR 
demonstrates many useful machine 
janguage programming tricks. | also 
think too much speed was sacrificed to 
get a minimum amount of code. 
Although the floating point format used 
is fairly standard, the methods used 
would work better with a signed 
magnitude floating point format so that 
negative operands could be easily com- 
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plemented before multiplication or divi- 
sion. 


Finally, a 3-byte floating point for- 
mat would be entirely sufficient such 
that integers and FP numbers had the 
same byte order for many machine 
language programming applications. 


Listing 1 


* OVFL 
#AFPUR OVERFLOW ROUTINE 


-OR $3F5 

JMP OVFL 

-OR $900 
SIGN .EQ $F3 
FPL -EQ $F8 
OVFL PHP 
PLA 
AND #$C2 
STA $FO 
PHA 
EOR #$80 
BEQ MLDV 
PLA 
EOR #$42 
BEQ ADSB ADD/SUBTRACT 
OVERFLOW--SIGN BIT INC 
BCS FIXM 
LDX #3 
BPL OVST 
LDX #7 
BPL OVST 
#MULTIPLY /DIVIDE OVERFLOW--SIGN BIT IN SIGN 
MLDV FOR SIGN 

PLA ADJUST STACK 

PLA 
*ADD/SUBTRACT OVERFLOW--SiGN BIT IN C 
ADSB BCS ASM 


SAVE STATUS 


STORE STATUS 


MULTIPLY /DIVIDE 


*FIX 


INTEGER MINIMUM 


FIXM INTEGER MAXIMUM 


LDX #11 FP MINIMUM 
BPL QVST 
ASM LDX #15 FP MAXIMUM 


*STORE OVERFLOW VALUE IN FP1 FOR ALL CASES 
OVST LDY #3 
OVSL LDA OTBL,Y 
STA FP1,Y 
DEX 
DEY 
BPL OVSL 
*SAVE AFPUR RETURN ADDRESS 
CLV CLEAR V STATUS BIT 
PLA 
STA $F1 
INC 1F1 
PLA 
STA $F2 
IMP ($F1) 
OTBL .HS 8E7FFFOO 
.HS 8E800100 
.HS FE7FFFFF 
HS FF800001 





Oye aree! Erag nn ee 


Listing 2 


t SUMI 
“SUM INTEGERS PROGRAM 
2 
FP1 .EQ $F8 
FP2 .EQ $F4 
M1 «.EQ $F9 
SUMI LDX #6 ZERO IH THROUGH S 
LOA #0 : 
ZL STA IH,X 
DEX 
BPL ZL 
INC2 INC IM INCREMENT IM AND IH 
BNE FLT 
INC IH INCREMENT IH EVERY 256 [TERATIONS 
Loa IH 
cmp #$80 
BNE INC2 
RTS 
*LOAD INTEGER INTO M1 
FLT LDA IH 
STA Mi 
LDA IL 
STA Mit+1 
LDA #0 
STA Mi+2 
JSR $F451 FLOAT 
LDX #3 ADD INTEGER TO SUM 
AL ~- LDA FPI,X 
STA FP2,X FP2sFPL 
LDA S.X 
STA FP1,X FP12S 


BPL AL_ _ = Pores Ge Me Mien, «Ca santa, Mz 


JSR $F46E FADD 

LDX #3 SAVE SUM 
SL LDA FP1,X 

STA S,X S=FPL 


DEX 

BPL SL 

JMP INC2 
IH -DA 40 INTEGER HIGH BYTE 
IM «DA #0 INTEGER MIDDLE BYTE 
IL -Da #0 INTEGER LOW BYTE 
5 -HS 00000000 SUM 


191 





Listing 3 


GSUM 
#GEOMETRIC PROGRESSION S 
* 
FPL -EQ $F8 
FP2 -EQ $F4 
-OR $800 
GSUM LDX #6 ZERO I AND S 
LDA #0 
ZL STA IH,X 
DEX 
BPL 2L 
*SET T#1.0 
LDA #340 
STAT . 
LDA 4340 
STA T +1 
LDA #0 
STA T+2 
STA T+3 
"8ST Re-1.0-2 (-18) 
LDA #$80 
STAR 
LDA #$3F ~ 
STA Rei 
LDA #SFF 
STA R+2 
LDA #$FO 
STA R+3 
*INCREMENT IM AND IK 
INC2 INC IM 
BNE CALC 
INC IH 
LDA TH 
CMP #$80 
BNE INC2 
RTS 
*LOAD S AND T FOR ADD 
CALC LDX #3 
AL LDAS,X 
STA FP1,X  FP1-S 
LDA T,X 
STA FP2,X  FP2sT 
DEX 
BPL AL 
JSR $F46E FADD S+T 
*SAVE S 
LDX #3 
SL LDA FP1,X 
STA S,X 
DEX 
BPL SL 
*#LOAD T AND R FOR MULT 
LDX#3 
“ML LDA T,X 
STA FP1,X - FP1=T 
LDA R,X 
STA FP2,X  FP2=R 
DEX 
BPL ML 
JSR $F48C = FMUL R*T 
#SAVE T 
LDX #3 
Tt LDA FP1,X 
STA T,X 
DEX 
BPL TL 
JMP INC2 
1H .DA #0 LOOP INDEX HIGH 
IM .DA #0 LOOP INDEX MIDDLE 
$ .KS 00G0OQ000SUM 
T «HS. OCOCOOOOOTERM 
R .HS OOOOOOODCFACTOR 


A JSR FDIV was substituted in this pro- 
gram to get the FOIV timing. 
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Challenger II Cassette Techniques 


OSS A a Bee SE I a NT RG SE REE 
The Challenger Il has available a useful feature which 
allows the storage and retrieval of sequential data files 
on cassette using SAVE and LOAD commands in a pro- 
gram. This can be used to extend the size of your BASIC 
programs by permitting DATA to be INPUT from tape as 


needed. 


Sa eT a II eS EI IS OI I ET TES ATE 


Well, i knew it would happen sooner 
or later. | came across a program which | 
wished to run on my Challenger || but my 
8K of memory was not enough to satisfy 
the program's appetite. . 


The desired program used several ar- 
rays to store variable values with DATA 
Statements being used to supply the re- 
quired values for the arrays. After dimen- 
sioning the arrays and entering ail the re- 
quired DATA statements, | discovered, 
much to my dismay, that these two steps 
had consumed nearly the entire 8K. What 
to do...? 


After staring blankiy at the CRT for 
several minutes wondering what | was go- 
ing to doa, | remembered reading 
something in my system documentation 
about entering data files from the 
cassette interface using the INPUT state- 
ment. This seemed to be my only hope to 
get the program running. 


The. Chailenger Il has a_ useful 
feature availabie which allows you to con- 
veniently store and retrieve sequential 
data files on cassette using SAVE and 


LOAD commands as part of a program. 
The remainder of this article will describe 
a simple method to make use of this 
feature. 


The first step is to store the data ina 
sequential file on cassette tape. Program 
1 shows how this can be done. Program 
line 20 allows for setup and start of the 
recorder before the data file is recorded. 
Line 30 is a programmed SAVE instruc- 
tion which, when executed, turns on the 
cassette output such that any ASCII 
characters listed or printed after the 
SAVE instruction will be output to the 
cassette tape. Lines 40-70 form a foop 
which reads data from lines 100 and 110, 
prints the dataon the screen and outputs 
the data to the cassette, one variable at a 
time, each variable being followed by the 
PRINT command's carriage return. 


Program 1 shows how to use DATA 
Statements as the data source. Program 1 
can be modified, as shown in Program 2 
to load the data variables into an array via 
the keyboard and INPUT statement and 
then dump the array variables to the 
cassette. In Program 2, tines 20-60 input 
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and store the variabies in the array “D"; 
lines 80-110 create the sequential data 
file on tape as in Program 1. Line 70 
allows you to set up and start your 
recorder before the data file is actuaily 
created. 


lt is very important to insure that 
there is no unwanted data stored on the 
cassette tape immediately before the 
start of the data file because this er- 
roneous data will be mistaken for real 
data by the program which retrieves the 
data file. This is easy to accomplish if 
your recorder erases previous data before 
it records new data. If your recorder 
operates in this manner, simply allow the 
recorder to run in it’s record mode for ap- 
proximately 10 seconds before the save 
portion of Programs 1 or 2 are executed. 
Doing so wiil create a leader free of er- 
roneous data before the start of the data 
file. If your recorder does not erase before 
it records, you will have to use a method 
compatible with your recorder which will 
erase a portion of the tape before the 
Start of the data file. 


After you have recorded your data 
file using Program 1 or 2, the next task is 
to retrieve the data. 


Program 3 demonstrates a method 
for retrieving the data. Program 3 will 
allow you to retrieve the sample data file 
you created using Program 1. Line 20 
dimensions the array into which the data 
is to be stored as it is retrieved from the 
data file. You must be sure to dimension 
the array so it will be large enough 
to store ali your data variables. In this 
case, the array is dimensioned to ten 
since we'll only have ten variables. Lina 
30 is a programmed LOAD instruction 
which allows the INPUT statement in line 
50 to accept inputs from the cassette. 
Lines 40-60 form a loop which reads the 
data file from the cassette and stores the 
data variables in array “D”. 


Line 70 stores a decimal 0 at decimal 
memory location 515. On the Chatlenger 
li this memory location: is a flag which 
controls the system monitor's cassette 
load routine. A decimal! 0 stored at the 
location exits the routine and a decimal 
255 stored at the same location wiil enter 
the toad routine. It is necessary to exit the 
load routine in this manner so that the 
program using the array variables will be 
executed directly, without the program 
stopping after the array is filled. If the 


program was stopped after the array had 


been filied to exit the load routine in the 
usual fashion (space bar, carriage return, 
etc.), it would be necessary to type RUN 
to restart the program. Each time you 
type RUN ai! variables are set to zero; this 
would include the array we just filled with 
data from the data file. 


Lines 80-130 in Program 3 simply list 
the variables which were retrieved from 
the data file so you can see how this 
technique works. 


in the actuai use of Program 3, the 
program which will use the retrieved data 
would follow immediately after tine 70. 


To demonstrate the retrieval of a 
data file, enter Program 3; place the tape 
with the data file you created with Pro- 
gram 1 into your recorder. Rewind the 
tape to the erased leader portion you 
created: Type RUN. The INPUT state- 
ment’s question mark will appear to 
signify that the program is waiting for in- 
put from the cassette interface. 


You can now start your recorder in 
It's playback mode, and upan the tape 
reaching the start of the data fite the first 
data variabie wiil appear following the 
question mark. Another question mark 
will appear followed by the second data 
variable and so on until all data has been 
retrieved. 


When the last data variable has been 





10 REM WRITE DATA FILE TO CASSETTE FROM DATA STATEMENTS 
20 INPUT ''SET UP AND START RECORDER...TYPE'1' TO RECORD DATA''; A 


30 SAVE 

40 FORI = 170 10 
50 READ D 

60 PRINT D 

70 NEXT I 

80 END 

100 DATA 1,2,3,4,5 
110 DATA 6,7,8,9,10 


Listing 1 


10 REM WRITE DATA FILE TO CASSETTE FROM AN ARRAY 
20 INPUT ''HOW MANY FILES IN DATA FILE''3N 


30 DIM D(N) 

40 FORI = 1TON 

50 INPUT ''DATA''; D(I) 
60 NEXT I 


70 INPUT ''SET UP AND START RECORDER...TYPE '1' TO RECORD DATA'';A 


80 SAVE | 
100 PRINT D(I) 
110 NEXT I 

120 END 


10 REM RETRIEVE DATA FILE 
20 DIM D(10) 

30 LOAD 

40 FORI = 1T0 10 

50 INPUT D(I) 

60 NEXT I 


Listing 2 


70 POKE 515,0 : REM EXIT MONITER CASSETTE LOAD ROUTINE 
80 REM THE PROGRAM USING DATA ARRAY WOULD START HERE 
90 REM PRINT OUT ARRAY FOR TEST OF TECHNIQUE 


100 FORI = 170 10 
110 PRINT D(I) 

120 NEXT I 

130 END 


retrieved, Program 3 wiil list the “D” array 
so you can see that ihe array now con- 
tains the data retrieved from the data file. 


lf you should discover that the first 
data variable is something other than 
what it should be, chances are that the 
leader before the data file had not been 
adequately erased or you may have 
Started the tape playback somewhere 
other than in the erased leader portion of 
the tape. 


To keep these programs short and 
simple, {| used numerical data and a 
single one dimensional array. By modify- 
ing these programs using nested FOR- 
NEXT loops in place of the singte toops, 


you can save and retrieve data in two - 


dimensionai arrays. 


Listing 3 


Data can also be saved and retrieved 
in several different arrays by using one or 
more FOR-NEXT ‘oops, one for each ar- 
ray, one after another in each of the pro- 
grams. it is also possible to save and 
retrieve string data files by using string 
variables in place of the numerical which 
were used in these simpie programs. 


i have obtained reliable results using 
these programs. Simpie modifications 
such as | have mentioned have allowed 
me the pleasure of running some pro- 
grams which | have previously been 
unable to run. 


Hopefuily | have provided you with a 
simple but useful technique to create and 
retrieve cassette data files with your 
Challenger il. 
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SS a OT ED ESTAS A 1 TE 9 CITE 
The speed and efficiency of Microsoft BASIC resuit 
from an insightful software design technique. 


Microsoft BASIC used in the PET and 
OS! computers is fast and memory effi- 
cient. One reason for this is that the 
BASIC commands are abbreviated 
through use of tokens. For exampoie, if 
you write the BASIC program: 


10 IFA= BTHENGOSUBSS 


you wilt not find the words IF, THEN or 
GOSUB should you PEEK into the BASIC 
program. If OSI owners with BASIC in 
ROM run the following in immediate 
mode: 


a a a ee nena 


FOR X = 768 TO 781 
PRINT PEEK(X) 
NEXT X 


The BASIC line will look tike this: 


0143 100 138 65 171 66 160 14057570 


So iet's try to pick this apart and see 
what happened. The leading and trailing 
0's are delimiters to separate BASIC 
lines. The “14 3° in the second and third 
byte means the next BASIC fine starts at 


Table 1: OSI BASIC Token index 


151 PRINT 128 
152 CONT 129 
153 LiST 130 
154 CLEAR 131 
155 NEW 132 
156 TAB( 133 
157 TO 134 
158 FN 135 
159 SPC( 136 
160 THEN 137 
161 NOT 138 
162 STEP 139 
163 a 2 140 
164 _. 141 
165 7 142 
166 ! 143 
167 (power of) 144 
168 AND 145 
169 OR 146 
170 > 147 
171 = 148 
172 < 149 
173 SGN 150 


END 174 INT 
FOR 175 ABS 
NEXT 176 USR 
DATA 177 FRE 
INPUT 178 POS 
DIM 179 SQR 
READ 480 RND 
LET 181 LOG 
GOTO 182 EXP 
RUN 183 Cos 
iF 184 SIN 
RESTORE 185 TAN 
GOsuB 186 ATN 
RETURN 187 PEEK 
REM 188 LEN 
STOP 189 STRS$ 
ON 190 VAL 
NULL 491 ASC 
WAIT 192 CHRS$ 
LOAD 193 LEFTS 
SAVE 194 RIGHTS 
DEF 195 MIDS 
POKE 197-211 BASIC Error 
Codes 
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memory tocation 14 + 3°256 = 782 
(decimal). The ‘10 0" in the next two 
bytes indicates this is BASIC line 10 + 
0°256 = 10. If you iook in a table of 
ASCit codes, 65, 66 and 57 are the ASCII 
values for A, B and 9. 


Thus our code deciphering so far yields: 
0143 100 138 65 171 66 160 140,57 570 


VIN OE 
782 #10 A B 9 9Q END 


A little inspection of what is stil! missing 
indicates that somehow, 138" means 
IF, “471” means EQUALS, “160” means 
THEN and 140" means GOSUB. These 
are the tokens used in Microsoft BASIC. 
The following program will decode 
tokens for OSI users. 


10 REM 

20 INPUT X 

30 POKE 773, X 

40 LIST 10 
Start the program via "RUN 20” to skip 
over the first line. Then input a number 
between 65 and 195. For example, if you 
INPUT a 138, line 10 will now contain an 
IF. 
Table 1 is a list of tokens for the OSI 
system. This wili help in PEEKing around 
your BASIC programs. You could even 
write a program that rewrites itself. PET 
owners: Don’t worry, | haven't forgotten 
you. To look at the first line of the BASIC 
program, run in immediate mode: 

FOR X = 1024 TO 1037 

PRINT PEEK(x) 

NEXT X 
Line 30 of the token decoder program 
should be changed ta: 

30 POKE 1029,X 


You wil! find the PET tokens are not iden- 
tical to OSI's. So! leave it to you to build 


- your own list. 


Editor: Thanks to Alvin L. Hooper, 207 
Seif St, Warner Robbins, GA 31093 who 
submitied an equivalent table of OS! 
BASIC tokens. 








OSI BASIC in ROM 


While the various Microsoft BASICs are easy to use, they 
are difficult to understand due to an intentional lack of 
documentation. To help understand your OS/ BASIC, a 
table of the locations of the subroutines to service the 
main commands is presented. The program which 
generated the table is provided as a Starting point for you 


to expiore your BASIC. 


a 


A previous article in Micro 18:9 by S.R. 
Murphy gave a peek into OSI BASIC in 
ROM by listing a number of scratch pad 
locations in page zero. In the present arti- 
cle, | wish to delve further into the inner 
workings of BASIC by explaining the 
dispatch table. a 

At the bottom of the BASIC ROMs, bet- 
ween $A000 and $A083, is a list of ad- 
dresses known as the dispatch table. 
These are the starting addresses of ail 
the machine subroutines needed to carry 
out the BASIC keywords such as END, 
FOR, NEXT etc. The addresses are in hex- 
idecimat in the normal machine format of 
low byte first followed by the high order 
byte. For example, starting at $A000 you 
find the data: 


$A000 39 
$A001 AS 
$A002 55 
$A003 AS 


Thus the first two entries in the 
dispatch table are $A639 and $A555. 
These point to subroutines in the BASIC 
ROMs. 


Now we need to know what each 
subroutine does. Conviently there is 
another table starting at $A084 contain- 
ing a list of all the BASIC keywords. The 
first entries in this table are: 


SA084 45 
$A085  4E 
SA08E CA 
$A087 46 
$A088 4 
$A089 D2 


Except for the C4 and D2, the data 
looks like ASCH code. If the high order bit 


is removed from C4 and D2, then it is 
ASCIl code for ENDFOR. You can 
demonstrate the list of keywords for 
yourself by running the program: 


10 FOR X=41092 TO 41315 
20. Y=PEEK (xX) 


~~ 30° PRINT CHRS (1); 


40 NEXT : 


lf you have the OSI graphics 
character generator, the last letter of 
each word will be a graphics 
character instead of a ietter. The 
high bit being set is used to separate 
the entries in the word list. To con- 
vert these to letters and leave a 
space between key words, add the 
following line to the above program: 


25 IF Y > 127 THEN PRINT 
CHRHY —128);::¥ = 32 


Now we have two lists, one of ad- 
dresses and one of functions. These can 
be combined to give an address for each 
function. . 

END $A639 
FOR $A555 


However things are not quite that sim- 
ple. Unfortunately the two tables are not 
Strictly in the same order. Also some of 
the address entries refer to the 
subroutine location and others to the 
location, less one. The address table is 
further complicated in the case of the 
arittimetic operators by a third entry 
which is the precedence vaiue. 


Following is a BASIC program that 
sorts out these quirks and outputs a list 
of BASIC KEYWORDS together with the 
hex address of the machine code 
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associated with that keyword. Notice that 
the program does not contain data 
statements, rather PEEK's directly at 
your BASIC ROM's. The program steps 
through the dispatch tabie printing out 
each address. The value of Q is added to 
each address and is either 1 or 0. The cor- 
rect keyword is found by PEEKing at D 
until a character is found with the high bit 
set. 


The subroutine at line 500 converts a 
binary word into ASCII digits for printing. 


For those of you who have trouble with 
this program or for those who have a sore 
index finger from typing in that 24K game 
program, | am providing an output listing. 
However ! urge you to run it yourself to 
prove ali this stuff is really “in there." The 
BASIC program aiso contains informa- 
tion about the location and structure of 
the two tables. ; 


Looking at the sample run, the ad- 
dresses for END and FOR found earlier, 
are incorrect by one byte. Users of the 
USR function know that the subroutine 
address must be placed at $000B and 
$000C. The dispatch tabie associates 
location $OO00A with the USR function. 
Location $000A contains 4C or JMP 
which completes the three byte instruc- 
tion. 


it is interesting to note that the BASIC 
keyword table is identical to a numerica! 
listing of the BASIC tokens(MICRO 15:20), 
The keywords TAB, TO, THEN, and STEP 
are missing from the dispatch table. 
However these commands are never used 
alone but always occur with another 
BASIC keyword (PRINT, FOR, IF and 
FOR-NEXT). The purists will note the 
absence of AND, OR, GREATER, LESS 
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EQUALS. | must confess, these did 
not fit neatly Into my BASIC program. 


if you have ever tried to make sense of 
“that 8K block of data up there at $A000,” 
tt looked {ike a hopeless task. With the 
dispatch table at hand, you can break it 


down and attack one function at a time. 


These subroutines are available to use if 
you are into machine code programing. 
Mr. Murphy is wrong: OS! users are not 


tle Information was available. So let's cig 
into OSi’s BASIC and publish a complete 
memory map simitar to those already out 


disinclined to expiore their machines. The tor the PET and APPLE. 
problem, until now, has been that too iit- 
BASIC Program |. 


o 10 Q#1:D=41092 


20 FOR C=40960 TO 41060 STEP 2 

25 IF C#41016 THEN Q20:D241237 
, 30 X=PEEK(C+1):GOSUB 500 

40 X=Q+tPEEK(C):GOSUB 500 


50 PRINT” "; 
60 X=PEEK(D) 
70 D=D+1 


80 IF X<128 THEN PRINT CHRS(X); :GOTO6O 


90 X=X-128 
100 PRINTCHR$(X) 
110 NEXT C 
115 D=41224 


120 FOR C=41062 TO 41074 STEP 3 
130 X=PEEK(C+2):GOSUB 500 
140 X#1+PEEK(C+1):GOSUB 500 


150 PRINT" "; 
160 X=PEEK(D) 
170 D#=D+1 


180 IF X<128 THEN PRINT CHR$(X);:GOTO 160 


190 X=X-128 

200 PRINT CHR$(X) 
—.. ...210.NEXT C 

220 END 


500 REM PRINT SUB 


520 L=X-16*H 


530 IF H<10 THEN H=H+48:GOTO 550 


A 
< 510 H=INT(X/16) 


540 H*H+55 


550 IF L<10 THEN L=L+48:GOTO 570 


560 L=L+55 


A 580 RETURN 


Sample Run 
(Program output listing) 

ABSA END 
A556 FOR 
AA4O NEXT 
A70C DATA 
A923 INPUT 
ADO1 DIM 
AS4F READ 
A7B9 LET 
A689 GOTO 
A691 RUN 
A730 IF 
AGIA RESTORE 
A&9C GOSUB 
A6ES RETURN 
A74F REM 
A638 STOP 
A75F ON 
A67B NULL 
B432 WAIT 
FFF4 LOAD 
FFF7 SAVE 
AFDE . . ., DEF 
B429 POKE 
A82F PRINT 
A661 CONT 
A4B5 LIST 
A68C CLEAR 
A461 NEW 
B7D8 SGN 
B&62 INT 
B7F5 ABS 
000A USR 
AFAD FRE 
AFCE POS 
BAAC SQR 
BBCO RND 
BSBD LOG 
BS1B EXP 
BBFC cos 
BCO3 SIN 
BC4AC TAN 
BCSS ATN 
B41E PEEK 
B38C LEN 
BO8C STRS$ 
B38D VAL 
B298 ASC 
B2FC CHRS - 
B310 LEFTS 
B33C RIGHTS 
B347 MIDS 
B46F OS 
B458 - - 
B5FE ° 
BéCD 
BABS + 
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570 PRINT CHR$(H);CHRS$(L); 





Shorthand Commands for Superboard Il and 
Challenger C1P BASICs 


aS 
This article shows how to intercept the BASIC’s input 
routine and how to implement a shorthand notation. © 


rr 


As a superboard or Chailenger iP 
owner, you surely have noticed the large 
amount of adds for extra software for the 
Apple, PET and TRS 80 machines and you 
hoped for just some of these goodies to 
show up for your own computer. 


Well, no such luck, so far. So, now we 
have to do the job ourselves. One of the 
advertised options for the TRS 89, single 
stroke instructions, looked nice and | 
started to program something like that 
for the OSI machine. The result is 
presented here, 
routine is almost alway present in my 
machine during program development. 


Before describing how the job was 
done, let’s first have a look at what this 
routine does exactly. After loading the 
program, type 

POKE 536,34:POKE 537,2 

and instead of typing the instruction let- 
ter by letter, you can enter it by hitting the 
ESCAPE KEY and another key after {nat. 
The last key determines which instructin 
is entered. For instance, if you want to 
enter RIGHTS, hit the ESCAPE key first. 
On the display the cursor will change to 
an arrow to warn you that the next antry 
will be an instruction instead of a sing!e 
character. Now hit C and you have just 
entered RIGHTS as the display shows 
you. 


All instructions are accessible in this 
way, and by altering the table in memory 
locations 0280 through 0203 you may 
even choose your own shorthand codes. 


There are a few things about the 
Microsoft Basic for the OSI machines 
that should be known before you can fully 
understand the program. 


First, if Basic asks for an input, the in- 
put routine is accessed by a vector 
located in memory Socations 0218 and 
0219 (hex) or 536 and 537 decimal. You 
can intercept the input by changing tnese 
locations and so routing the input 


and the shorthand’ 


through your own routines, a. that Is the 


" way ! did the job. 


Secondly, to use the token system In 
their Basic, Microsoft put a table contain- 
ing alt possible instruction in their pro- 
gram starting at location A084 hex. The 
instructions «;€ separated in the table by 
the last cha-acter of ever instruction hav- 
ing bit 7 set. If you strip off bit 7 of the 


token, you have the relative position of 


the instruction in the table. If we look at 
the instruction END with token 80, then 

sis one has the first position in the table 
(actually position 0, since we count from 
zero). RIGHTS with Token C3 (hex) has the 
hex position of 43 in the table. 


Third to consider is that the input buffer 
is located at hex location 13 and up in 
page zero. X serves as the buffer pointer 
during !nput. 

And lastly, location 0200 is used as the 
relative cursor location. The routine 
WARCHAR at BFC2 puts the character in 
location 0201 on the screen, at location 
D300 + the contents of 0200. You can 
use this in your own programs; | found it 
very handy. Now to the program. Most of 
it wilt be clear to you now. 


First a character from the keyboard or 
cassetport is input, and if it is not 
‘ESCAPE’ we return it to the A register. 
Basic can't tell the difference between 
this routine and the original one. 1f the 
character is ‘ESCAPE’, the cursor is 
changed from underline to right arrow 
and another character is input. The shor- 
thand table (0280 through 02C3) is scann- 
ed for a match, and if a match is found, 
the X register will contain the token for 
that command with bit 7 stripped off. If 
no match is found another (shorthand) 
character is input. The start of the in- 
struction is searched for in the Basic 
tabre and then the instruction is output to 
the screen and stored in the input buffer, 
character by character. If bit 7 of a 
character is set, (Siqnaling the end of the 
instruction) tnis process Is stopped, bit 7 
stripped off and the last character pro- 
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cessed. Another character or shorthand 
command can then be input. 


By now you have noticed the strange 
BIT $07A9 instruction around locations 
0263 and 0274. it is a short way of enter- 
ing a routine «ith different contents of 
the accurr!.jator. For instance, if you 
enter the OUTCH routine via locations 
0262 - 0263 - 0266; you have the character 
in A output, but entering the routine via 
0264-0236 you have the ‘BELL’ character 
in A and so output. 025E and 026F switch 
between the two, depending on the input 
buffer being full. 


Now iet’s look at the shorthand table 
starting at location 0280. The last two 
characters of the addresses also give the 
toker for the instruction. | have program 
med this table for you in a way that | have 
found convenient for the location of the 
shorthand commands on the keyboard. If 
you want to program thts layout yourself, 
just enter the ASCII value in the table for 
the shorthand key you want. For exampie, 
if you want the Q-key to be shorthand for 
‘THEN’, only put 51, the ASCit code for Q, 
in location 02A0, the location for ‘THEN’. 


The last thing to explain is the choice 
of where to put this routine in memory. t 
used jocations 0222 and up, because 
these locations are unused by BASIC and 
the monitor, and they are not affect by 
either a cold or a warm start. if you have 
hit the BREAK key you have ta shanna 
the input vector again by proper POKING 
as described eartier. 


| hope this tittle routine will make pro- 
gramming a little easier for you as it did 
for me. Imagine being able to RUN, LIST, 
SAVE, and LOAD with one simple key- 
stroke! Most likely, you have exceeded 
the maximum line length by using a ? in- 
stead of PRINT, so you had to type the 
line all over again after a list, because the 
program wouldn't load. This routine 
shows PRINT on the screen after 
‘ESCAPE’ and ? so you will always see 
what you are doing. Good luck! 





Second part of Memioc Is taken for command In that 
location. sd 
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MEMLOC COMMAND SHORTHAND CODE(HEX) 


| 0280 END H 48 02a2 STEP 4 45 
t 0261 FOR Q 5. _ O2A3 e + 2B 
| 0282 NEXT G 4T O2k4 é ‘ 2D 
0283 DATA 0 AF O2k5° x 2a 
| 0284 INPUT Tt 49 O2A6 / / 2F 
0285 DIM J 4A O2aT = 5E 
0286 READ U 55 0248 AND 5 35 
| 0287 LET t 21 02a9 OR 4 25 
0288 GOTO R 52  (OZAA > > 3E 
| 0289 — RUN "CR op O24B . = 3D 
; - 026A IF D 44 O2AC < < 3c 
| 02eB RESTORE = “H 68 O2AD SGN ( 28 
} 028C GOSUB ? 54 Ct: O2AE INT 6 36 
F 0280 =—=s«RETURN “y 59 O2AF ABS & 26 
0285 REM " - 22 0280 USK y 27 
O28F STOP a - 67 -O2R1L FRE T 37 
| 0290 ON : 3A (02B2 ~—s«#POS 8 38 

0291 NULL “5 65 0235 SCR 9 39 
| 0292 = Walt “A BL O2B4 RND pg 30 
0293 LOAD L 4c O2B5L0G LOG $ 24 
: 0294 SAVE on 4B 0284 EXP 4 34 

0295 DEF *D 64 O237 © CdS 2 32 

0296 POKE A 41 0288 SIN i 32 
| _ 9297 PRINT ? aF @259 TAN 3 33 
0298 CONT “3 62 O23A ATN it 23 
0299 LIST ‘RUBOUT® 7F 02BB PEEK S 53 
O29A CLEAR “Cc 63 O2BC LEN M 40 
0298 NEW "LF OA O2BD ~~ STIRS B 42 
029¢ TAB( ; 28 O2BE VAL : 2c 
f 029D TO ¥ 5g e2nF == ASC XN 4E 
029E FN “? 66 | 0260 CHR v 56 

O29F SPC ( ; 3B O2cl LZYT$ Z 5A 

020 THEN P 46 02c2 RIGHTS c 43 

O21 NOT ) 29 02¢3 MIDS x 58 


' 
t 
3 
: 
! 
+ 
> 
e 
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$222 20 BA FF 
0a25 C9 2B 
0227 FO O1 
0229 60 

O22A 98 

0228 48 

922¢ GA 

022d 48 

O22 49 12 
0230 8D ul 62 
6233 20 C2 BF 
0236 A2 ‘5a 
02358 20 BA FF 
O25B bd 80 02 
O25E FO 06 
0240 CA 

0242 10 FB 
0243 4¢ 36 O02 
0246 fats) 

0247 AO PP 
0249 CA 

O24a 70 08 
024¢ ca 

0243 5) 84 AO 
0250 10 FA 
0252 50 PS 
0254 és 

0255 aA 

0256 ce 

0257 BY 84 40 
0254 30 OF 
625¢ £O 47 
0258 BO 04 
0260 95 13 
0262 £8 

0263 2c £3 OF 
0266 20 E5 48 
0269. BO EB 
O76 29 TF 
o26D EO 47 
026P BO 04 
0272 95 13 
0273 >) 

0274 20 A9. O7 
0277 20 ES a8 
O27A 68 

0278 as 

o27¢ 4¢ 22 02 






0280 - 92C5 








SHORT. 


SHOE? 


SHOTS 
SHOUTS 


SHONTS 
SHORTE 
SHORTT 


SHOatTS 
SHORTS 


SHORTIA 


SHORTLO- 


SHCATHAMD COMMAND FO OSI CHALLENGER IP and SUPERBOAKD 


JSH In 
CMPIM ¥1B 
BER SHORT 
RTS 

TYA 

PHA 

TXA 

PHA 

LOAIM $12 
STA CURSOH 
JSR -BieC HAR 
LOXIM $45 
JS 1M 

CMPX TABLE 
BEQ SHORTS 
DEX 

BPL SHORTS 
JRP SHORTS 
INX 

LUYIM BFP 
Dux 

BiQ SHOTS 
TINY — ar. ow CAs 
LDAY $a064,Y 
BPL SHOAT7 
BMI © SHORTG 
PLA 

TAX 

Ixy 

LDA $A084,Y 
BUI SKOHT1O 
CPXIM 847 
BCS 204 
STAX $13 
nx 

BI? sO7a9 
JSR  OUTCH 
BNE S.lOKD9 
ANDIM S7P 
CPXIM $A7 
Bs + 04 
STAX $13 
INX 

BIT #07a3 
JSR OUTCH 
PLA 

PAY 

JMP SHORT4 


TOKE §36,54:POKE $47,2 PUTS SHORTHAND ON AXD 
POKE 536,166; POKE 537,255 Orr 


INPUT CHAK PROM XEYB. OB TAPE 
Is IT "ESCAPE® 7 
YES? BHANCH 

NO, RETUKM TO BASIC 
SAVE Y 

AND 

X REGISTERS 


WITH £CHak 


LOAD "AHROW' TO 

CHANCE CURSOR 

bo 1 

LOAD MAX TABLE INDEX 

THPVL SHOKTHAN UCUKMAND 

COMPARE WITH TABLE 

FUUND ITF BHANCH 

DECKcKENT INDEX PUK NEXT VAY 
IP NOT DONE? LLOP BACK 

RO MATCH? ICGHOKE ANY Live BACK 
COME KEKE WITH TABLE INDEX IN 3) 
PREPARE FOx LJOKUP IN COMMAND 1 
CULMAND FOUND? 

YoS? BRANCH 

NO SAP CURRENT COMMAND IN TaBl 
DONE Yet? 

NG, LOOP BACK 

YoS? GO AND THY NEXY ITEM 

CET INPUTBUFFYER INDEX BAcK 

AND SYORS I? IK X xzG 

GET REALY TO STURE COMMAND IN B 
GST COMMAND CHAR 

iy LAS? CHAN UF COMM, BHANCH 
INPUTSUFFER FULL? 

YESY BAAKCH TO SHOKYYA + 1 
STORK CHAK IN INPUTEUS PLR 
IHCK. BUFFERFOINT cR 
SKIP OK LOAD ‘BRLL' 
OUTPUT CHan 

BRaaNCi ALWAYS 

LAST CHAR. STRIP OP HIGH BIT 
INPUTBUPTER FULL? 

Y°oS, BRANCH 

STORE CHAR IN INPUTBU? FER 
INCR BUFFERPOLNTER 

SKIP OR LOAD *BELL' Id A 
QUTPUT ClIAR 

RUST ORS 

Y KEGIOTER auD 

LOOP 3acg 


Na 
















Fa AE AOE I EE Ee EE ORR tN ee rt EE ITS GT TAR OTe Tame emp eT tie Ne + 


FT a een: 


=e TR RR RE EP R= oF Fe etl PEE ny SR Le SO OR ER ETA TES ISIE: mA! AAR OS SO TE ER SAL TPO 


ee eee pew - 


pe 


Polling OSI’s Keyboard 


SE a Ee 


The “Polled Keyboard” technique used by OSI and 
others permits the user to define the function of the 
various keys to his own specifications, and to change 
them at will. Even though your keyboard may appear to 
be UPPER case only, it is easy to make it lower case as 


well. 


OS! machines come with a poited 
keyboard arranged in the standard 53 key 
format. Each key is a switch whose state 
(open or closed) can be ascertained under 
software control. Potted keyboard hard- 
ware affords maximum flexibility to the 
programmer. The most immediate use of 
the keyboard is for input to BASIC and 
other standard software which expects 
letters to be ASCII capitals but numbers 
and symbols to be unshifted. For this 
reason, the keyboard ROM in OSI 
machines has been programmed to 

yield capital letters and unshifted 
numbers when the SHIFT LOCK key is 
depressed. | am writing an editor program 
and desire the keyboard to act in the con- 
ventionat “typewriter manner with 
respect to shifting. The Program Listing 
gives a subroutine (lines 80 to 730} for 
returning the standard ASCII from the 
keyboard, and a driver program (lines 10 
to 70) to demonstrate the subroutine. AS 
a bonus, ail the function keys (ESC, etc.) 
ignored by the OSI ROM are implemented 
to yield standard ASCII code. 


When called, the subroutine loops 
until a key (other than SHIFT or CTRL) ts 
depressed, then returns with the ap- 
propriate ASCII code in bits 0 through 6 
of the accumulator. lf CTRL was also 
depressed, bit 7 in the accumulator is set 
(1), otherwise it is reset (0). Except for the 


CTRL and SHIFT keys, the routine ex- 
pects only one key to be depressed at a 
time. The routine detects the first 
character key depressed if several are 
depressed at the same time. The 
subroutine clobbers the X register. 


Several choices have been made 
which you can easily change. The SHIFT 
LOCK key is ignored. The program works 
the same whether it is depressed or not. 
AND #7 in fine 540 will enable the SHIFT 
LOCK key. LEFT and RIGHT SHIFT keys 
are made equivalent, just as on a 
typewriter. Since REPT is not an ASCH 
signal, | chose the code $00 for it ar- 
bitrarily. The BREAK key on OS! 
machines is hard wired to the reset line of 
the 65XX chips and so is not detectable 
by this program. ESC, RU8 OUT, LINE 
FEED, and RETURN have ASCII codes 
$18, 7F, OA, and OD respectively. 

The keys are arranged electrically as 
an 8x8 matrix. | wiil not discuss this 
matrix in detail. It is shown in the OS! 
Graphics Manual. The first row of the 
matrix contains only control keys: LEFT 
SHIFT, RIGHT SHIFT, SHIFT LOCK, 
REPT, CTRL, and ESC. | call this row 
CTLROW and read it first. lf the REPT or 
ESC keys are depressed, the program 
returns immediately with the appropriate 
code. If not, CTLROW is saved and rows 2 
through 8 are polled for character keys. 
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RUB OUT, LINE FEED, and RETURN are 
included among the character keys. 
When shifted, they give $20 “space” as 
their code. You could change line 730 so 
that some other ASCIi function not 
represented on the keyboard (for exam- 
ple, $07 “bail") would be signaled. The 
polling for character keys continues in a 
loop until a key closure is detected. Then 
its ASCII code is put in the accumulator. 
if a SHIFT key is down, the shifted code is 
put in the accumulator. Then the CTRL 
key closure is tested. Bit 7 of the ac- 
cumulator is set if appropriate. 


All this happens in a miilisecond or 
so. Many uses of the subroutine will re- 
quire a check to see if the keyboard is 
clear of the old keystroke so that a new 
keystroke can be sought. The KYDONE 
subroutine {lines 740 to 780) ac- 
complishes this. Once entered, KYDONE 
{ignoring the CTLROW keys) loops until 
there are no depressed keys on the 
keyboard, then returns. 


A modified KYDONE could be a 
usefuj element in a more sophisticated 
keyboard program. One may wish to im- 


‘plement the repeat-after-a-delay mode 


that OS! uses in its keyboard routine. Or a 
two-key-rollover mode can be im- 
plemented which allows recovery from er- 
rors induced by fast, sloppy typing. 
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OSI Fast Screen Erase under BASIC 





When a BASIC program erases the screen by writing 
blanks, it can take more time to clear the display than to 
fill it. Speed up that slow poke with this fast machine 


language approach. 


FSS aaa A 


While working on a number of game pro- 
grams written in BASIC, the need for a 
faster method of screen clearing for 
animated characters was a desirable 
feature that ! did not have with the POKE 
function of BASIC. The usuai method is 
to set the desired number of lines to be 
cleared and POKE the ASCII equivalent 
tor a blank out to the screen. This gives 
aslow, fine-by-line screen clearing effect 
that is not acceptable with fast games 
using animated characters. The screen 
clear routine must be ultra-fast for this 
type of game program. 


The following subroutine will work with 
most BASIC programs that require a fast 
screen clear. The routine is written in 
BASIC and assembly language. The ul- 
tra-fast screen erase portion is in as- 
sembly object code and is placed in user 
memory. It can be used with programs 
written in OS! MicroSoft BASIC for the 
OSI computer systems. 


D=208 


My system is composed of the system 
boards sold by Ohio Scientific instru- 
ments. The CPU board is a Mode! 500 
with the 8K OS! BASIC by MicroSoft. 
The display board is a Model 440 with 
4 pages of screen memory and alpha- 
numerics only. My system has 8K of 
read-write memory on two 420C memory 
boards, along with a 430A Super #O 
board for the audio cassette interface. 


The program is a subroutine that uses 


’ BASIC as a housekeeper to count the 


number of pages to be cleared. The ac- 
tual work is done in the machine code 
routine that is called by the mainline 
BASIC program. This program can be set 
up as a Subroutine and calied from your 
mainline when a screen erase is re- 
quired. 


At line 10, the variabie D contains the 
initial location for the machine code 
routine that performs the store-to-screen 
function. This is the location at the be- 


POKE 11,00: POKE 12,15 


X=USR(X) 
POKE 3848,D 
D2ad+ 1 


IF D<213 THEN 30 


IF 02213 THEN RETURA 


FOR Ra2G4O TO 2853 
READ M: POKE RM 
NEXT R 
DATA 162,0,232, 169,32,238 

DATA 157,0,206,228,255,208,285,96 
RETURN 
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ginning of the screen memory. The 
screen memory begins at hex D000, 
or §3213 decimal, on the 440 and the 540 
OS! display boards. 


Line 20 defines the USR vector and sets 
the vector point to hex OFO00, or 3840 
decimal, where the machine code rou- 
tine is located. Line 30 causes a jump to 
the user vector located at hex OA, 0B, 
and OC in page zero of the user memory. 


The machine code routine wil! execute 
and one page of screen memory will 
be cleared. Line 40 updates the page 
count by changing the machine code 
routine at lacation OFO8, or 3848 deci- 
mal. At line 50, the page pointer is incre- 
mented by increasing variable D by 1. 


Lines 60 and 70 check to see whether ail 
‘pages, or all screen locations have been 
cleared. If they have not (variable O 
not equal to 213 or 217} then another 
loop will be forced until all pages of 
screen memory have been cleared. Line 
70 should be a return, if called as a sub- 
routine: 70 IF D = 213 THEN RETURN 
for a 440 display board, and 70 IF D = 
217 THEN RETURN for a 540 display 
board. 


The loading of machine code into user 
memory can be performed by storing the 
machine code in DATA statments. Then . 
the user location is defined and the data 
is read and POKEd into user memory. 
An example of this method is found in 
the subroutine at lines 100 through 150. 


A word of caution may be in order at this 
point. The memory size must be set 
when bringing up BASIC. That is, before 


‘loading your program you must set the 


size of memory to protect the machine 
code routine. Set the memory size to 
3839 decimal, for this routine, to prevent 
BASIC from destroying your machine 
code. 





‘ 





Graphics and the Challenger C1P* 


EE 
The Challenger computers have some interestings 
graphic capabilities. A discussion of the inner workings 
of the graphics and programs for using them are 


presented. 


ee 


Recently 1 purchased an OS! 
Challenger C1P, and | find its graphics 
and polled keyboard to be interesting 
tools for the programmer. But to the 
computer hobbyist with little experience 
in programming, it may seem very con- 
fusing. Since the C1P’s introduction, | 
have seen few articles describing the 
graphics capabilities or use of the polied 
keyboard. 





Programming the C1P in BASIC to 
utilize the graphics elements contained 
in the character generator and the polted 
keyboard are simple tasks when one 
understands how these functions work. 
This article will explain the polled 
keyboard functions and give a brief 
description of a program that | have writ- 


TS 


*Originally published by MICRO In a 
§-part series entitled “Graphics and the 
Challenger C1P”. tn reprinting this 
series, we have given it a new title and 
consolidated and renamed the parts. 
The original parts appeared as follows: 
Introduction and Parts 1 and 2: 
December 1979 (19:61); Part 3 (Retitled 
here, “A Large Digit Clock”): February 
4980 (21:47); Part 4 (Not reprinted here): 
Aprli 1980 (23:15); Part 5 (Retitied here, 
“Plotting and Moving Characters’): May 
1980 (24:41). 


ten in Microsoft OSI BASIC to impie- 
ment the graphics characters contained 
in the C1P character generator ROM. 


The user of the CiP will find the 
keyboard a very interesting feature. 
Every key on the keyboard can be pro- 
grammed and read under BASIC. This 
makes for real-time utilization of the 
keyboard. The program inctuded in part | 
of this article shows how the keys are 
read with a PEEK statement and how the 
keyboard is strobed with a POKE state- 
ment. Tha keyboard is laid out in a 
matrice of eight rows and eight columns. 
To use the keyboard in a program, that 
is, a direct access in a running program, 
the programmer must first disable Con- 
trol C. In the normal polling routine in a 
program the keyboard is interrogated to 
check for a Control C to signal the com- 
puter that a break is desired in the pro- 
gram. The Control C must be disabled. 


To disabie Contro! C, a flag in RAM 
must be set to 1. Normaily the flag is set 
to 0. Next, the row that the key or keys 
that are to be read must be strobed. To 
do this, we POKE the row number. In the 
C1P, the rows are labeted RO through R7. 
Each row has a decimal value assigned 
to it. The C1P keyboard is accessed in 
the following manner: POKE (57088), 127. 
This statement signals the keyboard 
that a row is to be examined for a key 
closure. To check the row for a closure 
the column in which the desired key is 
located must be examined. We do this 
with a PEEK statement, such as, IF 
PEEK(57088) = 127 THEN 100. This 
statement checks for the 1 key. If the 1 
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key were closed, then a jump to line 100 
would be executed. 


tn the program that | have provided, 
you will see how the keyboard is polled 
to read the keys 7 through 8. If any of 
these keys are pressed the computer 
makes a decision concerning where to 
jump for a specific task. The following 
example shows how Control C is disabl- 
ed and the row is strobed: 30 POKE 
§30,1: POKE (y),127. Variable Y is the 
keyboard location which is 57088 
decimal. The next step is to read the col- 
umns in which the expected keys are 
located. For this we must PEEK the col- 
umns. This is done in jines 35 through 80 
in the BASIC program. By examining the 
program further, we see that if a key . 
from 1 to & is pressed, the program will 
jump to a subroutine. These subroutines 
are located at lines 100-800. It is in these 
subroutines that the actual plotting and 
writing of the graphics. are accomplish- 
ed. 


At this point, a few words about the 
OSI C1P video display are in order. This 
display can produce up to four pages of 
alpha-numerics, which are in a 25 
character fine by 25 lines format. The 
alpha-numerics inctude upper case and 
lower case letters, the numeral Set, 
punctuation marks, and 160 graphics 
elements. 


Part | of this article is mostly con- 
cerned with the graphics elements and 
how they are executed in a BASIC pro- 
gram. To display any character on the 
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yideo monitor screen, the ASCIil 


equivalent must be written in the video» 


memory. This memory occupies 1 
kilobyte of memory dedicated to the 
video display. This memory is located at 
pooo through DSFF hex, or 53379 to 


.§4171 decimal. in the program | have set 


the video graphics pointer to point to 
mid-screen, aS can be seen In the pro- 
gram at line 15. The mid-screen position 
js contained in the variable L. This is set 
to 53775 decimal. 


The complete code set for the 
alpha-nimerics and the graphics 
elements is listed in the OSI “Graphics 
Manual” for the Challengers, so | will not 
delay in explaining all the elements or 
their codes, but rather, define the 
character that will be used in the encios- 
ed program, In each of the subroutines 
jn the BASIC program, the decimal code 
character is POKEd out to some video 
memory location. An example ts 100 
POKE L+A, 161. This places a square 
box on the screen depending on the 
value of L+A. If the program were just 
started and the 1 key were pressed and 
held down, the box would be placed at 
53775 decimal, or mid-screen. If the key 
were kept held down the box would then 
be written at L+A again, out at 31 
greater than the last box because A was 
incremented by 31 in the statement at 
line 110. As long as the 1 key is heid 
down, the box would’continué to be writ- 
ten at a location 31 places greater. This 
forms a diagonal downward to the left 
bottom of the screen. if the key is then 
released the program will halt and wait 
for another key to be pressed. If, for in- 
stance, the 6 key were next pressed, 
then the box would be written upward 
from the last point displayed on the 
screen where the diagonal ended. in ex- 
amining the program, you will see thal 
there are eight subroutines beginning at 
line 100 through line 850. These 
subroutines form a method for piotting 
the point where the box can be drawn 
from the use of the keys 1 through & on 
the keyboard. These keys are used as 
pointers, and they are detinad in fIr‘ire 1. 
The figure shows the direction of angie 
for each key. Each subroutine has a 
delay loop that allows the user to obtain 
a singte point with a single key closure. 


| have presented a brief description 

of the C1P’s polled heyboe= ave hae ie 
jace a graphics element out fo the 
eps matter screen with a BASIC pro 
gram. This BASIC program allows an 
“etch-a sketch” type drawing Ch the 
monitor screen. From this quick @rescnp 
tion of the keyboard function and hows 
BASIC program can be used to fcad the 
keyboard in real-time. and from ina on 
planation of how to place a graphs 
character out to the monitor scree” aa 
a BASIC program, you wil be ac-4 to 
write similar programs using [hese 


techniques. 


Listing 1 


10 POR R= 1 TO 32: PRINT: NSAT R 
12 AuO: Bal: m0; D2O 

13, §a0;P20:620:H20 

15 L=#53775 

20 ¥=57088 

30 YOKE 530, 1:POKE ¥,127 
$5 IP PSeK(Y¥)«t27 THEN 10u 
40 IF Feek(¥)=191 THEN 200 
45 LY PsikX(Y)=223 THEN 300 
50 IF reck(Y¥)=239 THen 400 
55 IP Peosk(Y¥)=247 THEN 500 
6U IP FEEK(Y }=251 TUEN 600 
65 iF PeEsK(Y)=253 Then 700 
70 POXE Y, 191 

75 IP PEEX({Y)=127 THEN 800 
80 GOT 30 

100 r0KBE Lea, 161 

110 AwA+31 

140 YOR Te 1 20 300:NEXT T 
145 Labea 

147 anxO 

1590 GuTo 30 

20U ,OKE Le, 161 

210 BxB+32 

240 FORK T= 1 tU 300:NEXT T 


2435 LaLeB-- - -- - - 7 


247 Bad 

250 VoTU 30 

300 YOKE LeC, 161 

310 CaC+33 

340 POR Te 1 TO 3001. NEXT T 
345 LaLec 

347 Cad 

350 GuTO 30 

400 POKE LoD, 161 

41C DeDel 

440 PUR Te 1 TO 300; NEXT T 
445 LeaLeD 

447 Ded 

450 Guid 30 

S00 POKKR LeB, 161 

510 Reke~} 1 = 

540 yuoR Te 1 Tu 300; NEXT ? 
545 Label 

547 £00 

$50 vOTu 30 

600 ULE Ler, 161 

619 PePe “32 

40 WA Te 1 tu 500: KWEAT T 
64> Lalef 

647 FW 

Teo sR 20Ge 168 

119 @utoe o335 

749 Pa fe TO 50Nt NeXT? FT 
749 Ladies 
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147 G=O 

750 GOTO 30 

800 POKE u4H, 161 

310 Hse <1 

840 YOR T= 1 TO 300: NEXT Tf 
845 habe 

847 H=O0 

850 GOTO 30 


Part li 


Now ! will expand the basic pro- 
gramming principies pertaining to the 
development of graphics elements. This 
tlme we will develop graphic elements 
that represent large numbers as viewed 
on the system monitor screen. Piease 
remember that the program following 
part 2 of this article is for demonstrating 
the methods of using a BASIC program 
to generate graphics elements utilizing 
the expanded graphic capabitities of the 
graphics generator that is resident in the 
C1P, and the OS! C2-4P computers. 


t hope to give the reader the 
buliding blocks that will enable him to 
develop larger graphics programs using 
the techniques discussed here and in a 
companion article, in which | will give a 
BASIC program for a tweive hour clock 
that utilizes the large graphics numbers. 
The demonstration program is written in 
BASIC. It is written In subroutines and 
modular biocks. In the subroutines the 
graphic elements for the large numbers 
are generated and POKEd out to the 
CiP’s video display. To begin, the 
subroutine at lines 1000 through 1100 
will generate a large number (in this 
case, a large number 1). 


To describe the operation of the 
subroutine, refer to the program listing 
2. At fine 1000 the scraen parimeters are 
set up with a FOR -NEXT loop (FOR 
A=5400 TO 54128 STEP 32). Line 1010 
POKE A, 161: NEXT A. tn these state- 
ment tines, the variable A will be in- 
cremented by 32 for every pass through 
the FOR-NEXT ioop. When this portion 
of the subroutine is executed, the vaiue 
161 In statement line 1010 will place a 
white square block on the monitor 
screen beginning at the initial value in 
the A variable. in this instance the A 
variabie will contain decimai 54000, 
tocated on the monitor screen near the 
bottom right hand corner. With every 
pass through the FOR-NEXT loop a 
white biock will be placed 32 places 
ahead of the last video graphics 
character. On the CiP’s monitor 32 
places will place the next character 


directly below the last character placed 


on the screen. This FOR-NEXT loop in 
the subroutine will generate of place 
four white squares, one over the 
other,which will develop the graphics 
representation of the number one on the 
monitor screen. 
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, Listing 2 
1 Red NURBsK GHAPHICS DEMOSSTRATOR 


2 REN BY 4.L.TAYLOR 
3 REe JULY 4 1979 
5 FKINT * THIL IS A D2sONSTRATION® 
10 PRINT " OF Tiik C1P GRAPHICS AND LARGE NUKBERS® 
20 FHINT * ALL NURBERS PRON 1 TO 10 WILL Be DISPLAYED" 
30 GOSUK 2900 . 
39 HN INITIALIZE USR VECTOR FOR JUMP TO 2PE58 
40 FOKE 11,232: POKE 12,47 
49 RER GENSRATE HANDOM NUKBER FROM O TO 10 
50 R= INT((1141)*RND(1)~14) 
52 Roki COMPARE RANDOM NUMBER AND JUKP TO LARGE NUNBER TABLE 
55 Ir 2 >+1 THEN 50 . 
56 IF RE 8 THE 50 
59 REX EXECUTZ FAST SCREEN ZRASE 
60 xeUSR(X) 
65 IP Ke 11 TiifN GOSLB 1900 
67 IF Re 11 THEN GOUSB 1000 
70 IF R= 1 THEN GOSUB 1000 
80 IF R= 2 TIEN GOSUB 1100 
90 IP Re 3 THEN GOSUB 1200 . 
400 IP Rx 4 CHEN GOSUB 1300 
110 IF R= 5 2HEMN GOSUB. 1400. 
120 IF R= 6 THEN GOSUB 1500 
130 Iv R= 7 THEN GOSUB 1600 
8 
9 


140 IP THEN GOSUB 1700 
150 Ir THEN GOSUB 13800 

160 If R= 10 THEN GOSUE 1900; GosSUB 2000 
165 IF He O THEN GOSUB 2000 

170 FOR I= 1 TO 1000: NEXT I 

180 Xm USR{x) 

190 GOTO 50 

999 REN GENERATE LSD 4 

1000 POR A= 54000 TO 5412€ strep 32 
1010 POKE A, 1614:dELT A 

1020 RETURN 


r FP 


1099 REM GENBRATE LSD 2 
1700 FOR A= 54000 To 54002 
1110 POKES a,161: NEXT a 
1120 POKER 54034, 161 

1130 POR d= 54064 TO 54066 
1140 POKE 4,164; NEAT a 
1160 POKE 54096, 161 

1170 POR A= 54128 TO 54130 
1480 POKES 4,161; NEXT A 
1190 RETURN 

1199 REY GENERATE LSD 3 
1200 POR A» 54000 TO 54002 
1210 POKE A, 161: NEXT a 
1220 FOR A= 54064 TO 54066 
1240 FOKE 4,161: NEXT 4 
1250 POKE 54098, 161 

1260 YOR 4= 54128 TO 54130 
1270 POKE A, 1614: NEXT 4 
1280 RETURN 

1299 REM GENERATE LSD 4 


At this point | will give a. brief 
description of the BASIC program, ex- 
ptaining the unique features. This will 
give the user a better understanding of 
how the graphic characters can be utiliz- 
ed in other programs, such as games, 
clock programs, etc. In the BASIC pro- 
gram at line 30, a jump to subroutine at 
line2900 will iaad.a machine language 
subroutine in user memory. that will be 
used for an ultra-fast screen erase when 
needed by the Main Line BASIC pro- 
gram. The Machine Language object 
code for the fast screen erase routine is 
stored in DATA statements at lines 3000 
through 3030, 


This data is read with a READ state- 
ment and POKEd Into user memory at 
12264 decimal through 12287 decimal. 
This corresponds with 2FE8 Hex through 
2FFE Hex. The machine code routine 
when executed with the BASIC program 
will clear the last two pages of screen 
memory (that is, the bottom half of the 
Cip’s monitor screen). This was done so 
that the user could utilize the top haif for 
displaying a message and have it remain 
until the need to erase that half of the 
screen is desired. After the machine 
cade [s ioaded into user memory, a 
RETURN from subroutine will be ex- 
ecuted and the program will return to 
line 40, where the USR vector will be in- 
itialized to point to the beginning of the 
fast screen routine in user memory. The 
USR vector jocations In the CiP are 
located at 11 and 12 decimal or OB and 
OC Hex. At [Ine 50 a random number is 
generated and stored in the R variable. 
The statements at lines 55 and.56 insure 
that the random number will be only 0 
through 10. The statement at line 60 wil! 
execute the fast screen erase. This is the 
USR function of BASIC, which causes a 
jump to the USR Vector at 11 and 12, 
where the jump to the fast screen erase 
is located. After the fast screen erase 
routine has been executed and the Op 
code Hex 60 is reached in the machine 
code routine, a retum to BASIC will be 
executed and continue at line 65. The 
program forms line 65 through 165, is a 
table where the random number from the 
fandom number generator is compared 
to fixed constants. If the random number 
equals any of the constants, a jump to 
the subroutine that generates that 
number wili occur. At line 170, the FOR: 
NEXT loop will allow the last generated 
video display to be viewed for the period 
of time that was set in the loop. The 
statement in {Ine 180, calls up the fast 
screen erase machine code routine. The 
statement at line 190 forces a new pass 
through the mainline program. 


From the program fisting, you will 
see that the formation of the video 
graphics digits are developed in 
subroutines. These subroutines begin at 
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line 1000. There is a subroutine for each 1300 FOR A= 54000 TO 54064 STEP 32 


¢ the least significant digit and a 
subroutine for the next reel digit. To 1310 POKES A, 161: NEAT A 
develope the digit 10, we must use two {320 POR A= 54064 TO 54066 ~ 
of the lyr li a would also be 1330 POKE 4,161; NEXT & 
he case for any number greater than 10. 
- 2 7hé program is Sanaraion by REM 1340 POR A= 54002 TO 54130 STEP 52 
; statements. Each module will begin with 1350 POKE A, 161: NEXT A 
a REM statement that defines the func- 1360 RETURN 
tion of the subroutine, and If the reader 1399 REM GENERATE LSD 5 


analyses each module he will get a clear 
picture of how the numbers are 1400 FOR d= 54000 TO 54002 


generated and placed on the monitor 1410 POKE A, 161: NEXT A 
screen. 1420 FOR A= 54064 TO 54066 
1425 POKE 4,161: NEXT A 


Re ae a 


The program fisting beginning at 
line 3500, gives the object code listing 1430 FOR A= 54128 TO 54130 
for ie eon erase. This is the 1440 POKE A,161: NEAT A 
machine code that is loaded into user 
memory when the BASIC program in- 1650) FOES 2402001214) BORE: OF008e 164 
itializes the uset memory through the 1460 RETURN 
BASIC subroutine at line 2899. The 
BASIC program oe has the fast 1499 REM GENCRATE LSD 6 
screen erase routine loaded at 12264 to ‘ 
412287 decimal. This was loaded at the 1500 FOR A= 54000 TO 54002 
top of a 12k memory. If your C1P does 1910 FOKE A,16%: NE«aT A 
not have this much memory, you will 1520 FOR A= 56064 TO 54066 
have to change the program to work with 3 
the amount of memory that you may Lleida Salar 
have in your system. The program listing 1540 FOR A= 54128 to 54150" 

_ gives the necessary changes for either 4550 POKE A, 161;NEXT 2 

an 8K or 4K memory system. Those ; - 
changes are listed starting at line 3500. 1560 PORE 54032,161; POKE 54096,161: FOKE 54098, 161 
A word of caution must be conveyed at 1570 RETUKN 
this time. The user must set the memory 1599 na GENERATE LSD 7 
size of his machine to reflect the size of 1600 YOR A= 54000 TO 54002 
memory that will allow the machine = - yeaa "3 “Ea. Wr: 
code routine to be intered and protected. 1610 POKE A, 161: NBT A 
That is, the memory size must be set 1620 FOR A= 54002 TO 54150 STEF 32 
when bringing up BASIC to less than the 1630 POKE 4,161: NEXT A 
beginning of the machine code routine. 4640 RETURK 
If your system has only 4K of memory, . 
set the memory size to 4050 decimal. if 1699. REA GENERATE LSD 8 
your memory has 8K, set the memory 1700 POX A= 54000 TO 54128 STEP 32 
size to 8160. If you should have 12K, as 1710 POKs A, 164; NEXT A 
my memory does, then set the size to 
12263. Be sure that you change 1720 POR a= 54002 TO 54130 STEP 32 
subroutine beginning at 2899 for your 1730 PCKE A,161; NEXT A 
personal system depending on the 1740 FOR An 54001 TO 54129 STEP 64 
amount of memory your system has 4750 POKE A, 164: NEXT A 


i 
} 
t 
i 
t 
availabte. 
| tusi } have presented 1760 RETURE 
n conciusion, ce 
what ¢ think will help you with the pro- 1799 Re GENERATE LSD 3 
gramming techniques needed to- 4800 PO A= 54002 TO 54130 STEP 32 
understand the STi abel eae i 1810 PORE A,161: N&AT A 
- CiP's graphics capabilities, ane (ne u _ 
of BASIC as a too! to be utilized with the 1820 FOR a= 54000 TO 54002 
graphics capabilities of the CiP, or 1830 POKE A,161 3; HEXT A 
other Challenger computers. The 1840 FOR a= 54064 TO 54066 
developement of large graphics 1850 FOKE 4,161: NEXT A 


numbers is only one example of how the 
expanded graphics set of the C1P can be 1860 POK a= 54126 TO 54130 


used. The same techniques used in this 14870 POKE A, 161; NEXT A 

article can be utilized for more compiex 1800 POKE 54032, 161 

exploration of the graphics and BASIC 1990 RETURN 

programming functions to develope pro- 

grams such as games atc. in a future af- 1899 Roe GENEKATE SMD 1 ; 
ticle, 1 will further expand the example 1900 POR d= 53998 TO 54126 STEP 32 


rogram here to inciude a larger number 
bat and: have the C1P function as a 1910 POXS 4,161: NEXT A 
twelve hour clock running under a BASIC 1930 RETUNY 


program. Until then, good luck. 1999 REd GENSKATE LSD O 
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3030 DATA 141,240,47,96 
3500 REM KACHINE CODE FAST SCREEN ERASE 
- 3510 REA LOADS AT HE. 2FES TO 2¢eF 
3520 Rm 2PES a9 20 aO 04 a2 00 GD OO 2 £8 DO FA 
3530 REM Ex FO 2F 88 pO F4 a9 D2 8p) FO 2F 60 
5540 REx TYPE CONTROL C TO END 
3550 REM CHANGE LINB 2900 7] (FOR Re 4072 70 4095) POR A & 
. SYSTEM 
3560 REM CHANGE LINK 3000 0 3030 10 REFLECT THE NEXT LIS? 
PATA 169,32, 160,4, 162,0,157,0 
5010 DaTA 210,232,208,250,238,240 
5020 DATA 15, 136,208,244, 169,210 
3030 DATA 141,240, 15,496 
3580 REM THESE ARE POR aA Sv ctP 


2000 FOR A= 54000 TO 54002 

2010 :0Ke A, 16t: NEXT A 

2020 POR A= 94000 To 54128 STEP 32 
2030 POKE 4,161: NEAT 4 

2040 FOR a= 540U2 TO 54130 STEP 32 
2050 FOKE A,161: NEXT A 

2060 POKE 54129, 161 

2070 RATURN 

2399 REI PAST ERASE KOLTINE KACHINE CODE LOaD 
2960 FOR B= 12264 TO 12287 

2920 READ F: FOKE 8,F: NEAT R 
2930 RETURN 

3000 paTa 169,32, 160,4, 162,0, 157,0 
3010 DATA 210,232,208,250,238,240 
3020 DATA 47, .336,208,244, 169,210 


3590 REM CHANGE LINE 40 (40 pans 19,232: POXEB 12,15) 


A Large Digit Clock 


In parts one and two of this series 
we discussed the C1P and some of its 
features. To be specific, the polled 
keyboard and the C1P expanded graphics 
set. An explanation of how to use the poll- 
ed keyboard and graphics set in some 
programs written in Basic. The programs 
that were presented used only one of the 
many characters that are a part of the 256 
characters available in the C1P character 
generator ROM. This time | would like to 
continue with the Large Numbers genera- 
tion and lead up to the twelve hour clock 
that was promised last time. 


Since this is to be a clock program, | 
will describe this section of the program 
first. it may seem rather odd to you that 
the clock mainline program is buried in 
the program, but this is how the program 
evoived. Primarily most of the number 
generating routines were developed first 
due to the past part of this series. This is 
not the best way to write a program, but 
some programs do evolve in this manner. 


The clock mainiine routine was a 
separate program. and this portion will be 
described as a single unit that can be us- 
ed without the large graphic characters 
for some of the users that do not have the 
amount of memory required for the whole 
program. The clock with the numerais is 
extremely long. it occupies nearly eight K 
ot user memory. For those users that do 
not have enough memory to run the entire 
program ! hope that you will use the 
number generating routines in some of 
your own programs that would require 
such things as hit scores or other number 
disptays. : 


Some beginning criteria for a clock 
must be given at this point. Any ciock 


- that has a digital display must have a 


number set. The number set must have at 
least a minimum of four digits of display 
to qualify as a working clock. Aiso the 
hours and minutes must be separate en- 
tries. That is, we must have a means of 
separating the hours and minutes. !n ad- 
dition, we must also have a method of 
setting the clock to the right time before 
Starting the clock. Finally, we must up- 
date the time at some interval. This is 
usually at one-minute or one-second in- 
tervals. The clock should also have a 
period of day indicator, such as AM or 
PM. 


With this in mind, lets examine the 
clock portion of our main line Basic pro- 
gram routine that is located at Lines 4060 
through 4070. This part of the program 
will be described -in detail and the 
modifications that are required to make it 
independent from the rest of the program 
will be given. Looking at the beginning of 
Line 4000 we see that a GOSUB is ex- 
ecuted. The subroutine at line 2900 
through 3030 is the fast screen erase 
machine code memory load routine. This 
machine code routine will be called to 
clear the screen for every update of the 
display. The subdroutiae is used with both 
versions of the clock. An explanation of 
the subroutine was given in part two of 
this series and the seader is referred to 
this pant for a complete description 
(MICRO 19:61). 


When the program returns from the 
fast screen routine, the clock must be set 
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to the correct time. This is hours, minutes 
and seconds where you wish for your 
clock to start. When you hit a carriage 
return, the clock begins to run and will be 
updated on the next whole minute. The 
hours are contained in the variabie S. The 
minutes are contained in the variable R, 
and the seconds are contained in the 
variable Z. The variables are at lines 4004, 
4006 and 4007. The actual timer for the 
clock is a FOR-NEXT Joop established at 
lines 4008 and 4010. This loop should be 
adjusted to insure accurate timing of 
your clock. To have the clock run faster, 
decrease the value of the variable | at line 
4008. To decrease the clock rate, increase 
the vatue of the variable | at line 4008. 
After the loop at lines 4008 and 4010 has 
timed out, the program falls through to 
the next fine. At line 4041 the variable Z is 
checked to see if a complete minute has 
been reached (Z = 60). !f Z does not = 60 
then the timing Joop is re-established. 
When Z is equal to 60, or one minute, the 
minute counter at line 4013 is in- 
cremented. Next at line 4014, a GOSUB to 
line 4030 resets the second counter to 
zero, At line 4015 a GOSUB to line 4059 
WH! execute the fast screen erase routine 
and clear the monitor screen. Ouring this 
subroutine at lines 4059 through 4065, we 
will go and check to see what numerais 
are to be displayed from the hours and 
minutes look-up tabtes at lines 59 
through 390. It is in these tables that the 
variables S and R (hours and seconds) are 
determined and an equivalent numerical 
display is generated on the monitor 
screen. When the program returns to the 
clock mainline program at line 4016, the R 
variable is checked to see if 60 minutes 
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has been reached. If 60 minutes has not 
peen reached a3 compared at line 4016, 
then a new pass through the program Is 
executed. if 60 minutes has been reached 
(A = 60), then the hours counter will be in- 
cremented (variable S). Next, at line 4018 
a GOSUB to line 4032 will reset the 
minute counter and the screen is cleared. 
A new pass through the look-up tabie is 
executed and a new time update is 
displayed on the monitor screen. At line 
4019, the S variable or hours is checked to 
see if 13 hours has elapsed. We must 
display 12 hours and 59 minutes. !f the S. 
yariable does not equal 13, a new pass 
through the program is executed. if the 
variable S is equal to 13 or full hours 
counter, 2 GOSUB to line 4034 will cause 
the Z variable to be reset. At line 4035, the 
R. variable is reset to zero. At line 4036, 
the hours counter (S variable) is reset and 
a GOSUB to line 4059 will clear the 
monitor screen. The display is updated to 
4:00 o’clock and a new pass through the 
program is executed at line 4037. What all 
this says is that for each minute that the 
clock runs; there will be a correct time 
displayed. For every minute, there will be 
a new time-up date. 


As stated before, the clock routine 
can be used independent of the whole 
program. The reader can use this ex- 
planation of the routine and the separate 
program in Listing 2 as a separate pro- 
gtam. This listing differs from the routine 
just described in that is uses a PRINT 
statement to give the user a viewable 
readout. Also, this program wilt update 
the time every second. If you do not have 
sufficient memory for the complete 
numerical clock, please try the smailer 
version on your C1P. 


In the fast part of this series we 
discussed how the large numerals were 
generated. In fact, some of the large 
numeral routines are included in this arti- 
cle. At this point, we will continue with 
the graphics generation and discuss how 
these subroutines are used in the pro 
gram for our clock. The contents of Table 
1 lists the line numbers of the key 
subroutines begin. The reason that we 
tabulate these subroutines instead of 
identifying them in the Basic program is 
the fact that the Rem statements will oc- 
cupy memory, and we need to conserve in 
order to fit the program in 8K of user 
memory. 


Included with this article is a C1P 
video memory map that shows the com: 
plete video memory as related to the 
monitor screen. This memory Map tS tn 
decimal. The locations for the large 
numbers are shown, These digits will ap 
pear at these locations on the monitor 
screen. With this chart and the number 
subroutines in the program, you can write 
programs of your own that require any 
number displays. 
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Tabie 1: Numerical Clock routines 


Line 


60 te 385 Numerical look up tables 


1000 to 1020 Least aignificant digit One 
1100 to 1190 Least significant digit Two 
1200 to 1280 Least significant digit Three 
1300 to 1360 Least significant digit Four 
1400 to 1460 Least significant digit Five 
1500 to 1570 Least significant digit Six 
1600 to 1640 Least significant digit Seven 
1700 to 1760 Least significant digit Eight 
1800 to 1890 Least significant digit Nine 
2000 to 2070 Least significant digit Zero 


2900 to 3030 Fat screen ML load routine 
4000 to 4070 Clock main line program 


$000 to 5080 Second most digit Zero 
$100 to $120 Second most digit One 
5200 to $230 Second most digit Two 
$300 to 5340 Second most digit Three 
$400 to $425 Second most digit Four 
5500 to 5535 Second most digit Five 
$600 to 5635 Second most digit Six 
$700 to 5710 Colon separator for hours and minutes 
6000 to 6025 Third most digit Zero 
6100 to 6130 Third most digit One 
6200 to 6235 Third most digit Two 
6300 to 6335.Third most digit Three 
6400 to 6430 Third most digit Four 
6500 to 6535 Third most digit Five 
6600 to 6645 Third most digit Six 
6700 to 6720 Third most digit Seven 
6800 to 6835 Third most digit Eight 
6900 to 6935 Third most digit Nine 
7000 to 7010 Moat Significant digit One 


Table 2: Alarm option program changes 


22% = 63232 

3 POKE X #1,0: POKE X+3,0: POKE X,255: POKE x+ 2,0 
& POKE X+1,4: POKE X+ 3,4 

4% POKE X,0 

6 GOSUB 4000 

4003 INPUT ''SET ALARM'‘; B,C: DeC +2 
4010 NEXT I 

4011 Z29Z +1; GOSUB 8007 

4063 GOSUB 8005 

8000 REM ALARM TEST 

8005 IF BaS AND C=R THEN POKE X,1 

8006 RETURN 

8007 REM TUKN OFF ALARM PRESS 1 KEY 
8008 G=5$7088 

6009 POKE $30,1 

8010 POKEG, 127 ; 

8015 IF PEEX (G)*127 THEN POKE X,0 
8020 POKE 530,0 

8025 RETURN 


It must be expiained at this point 
that there are subroutines that generate 
the Least Significant Digits 0 through 9; 
the Second Most Digits 0 through 6; the 
Third Most Digits 0 through 9, and finally, 
the Most Significant Digit 1. The com- 
bination of these subroutines together 
will generate a display of the time. As an 
example, say the time 12:30 was contain- 
ed in the S and R variables, we wouid 
need to generate digits for four 
characters. These would be the Most 
Significant digit one; the Third Most digit 
two; the Second Most Digit three; and 
finally, the Least Significant Digit zero. If 
the variable S contained 12 and the 
variable R contained 30, when the pro- 
gram goes through to look up tables, 
variable R would be compared to 30. 
When 30 was found at Line 215, a GOSUS 
to Lines 2000 and 5300 would result in the 
generation of a Second Most digit 3 anda 
Least Significant digit 0 to be displayed 
on the screen. Also, when: the value for 
the variable S is found in the look-up table 
at Line 385, a GOSUB to Lines 6200 and 
7000 will cause the generation and 
display of the Most Significant digit 1 and 
the Third Most digit 2. From the example, 
it can be seen that when we are 
generating a digit dispiay there are usual- 
ly more than one of the subroutines used 
to create the graphics. 


In the last part of this series, | ex- 
plained how one example subroutine 
. worked to generate a large number 
graphic display. The demonstratian pro- 
gram in the fast part of this series con- 
tained subroutines to generate the Least 
Significant Digits that are a part of this 
article. Aithough I described one 
subroutine in the jast part, | will give a 
description of how one of the subroutines 
works in this article. The reader may not 
have the fast issue that contained the ar- 
ticle, so a description of the number 
subroutines will make this article a com- 
plete entry. . 

Lets take one subroutine that is used 
to generate the large numerals and briefly 
describe its operation. Take the graphics 
character that represents the numeral 4 
in the Least Significant digit location. 
This subroutine is located at Line 1000 
through 1020. First, we must define the 
locations on our C1P monitor screen that 
we wish to start to piace our character. In 
the subroutine we are using, the variable 
A as the video memory pointer. You can 
see that variable A was defined as video 
memory locations 54000 to 54128 
decimal. This sets up our boundaries in 
video memory where we wish to place our 
character. This statement forms part of a 
FOR-NEXT loop that will be used to load 
the character that creates the display on 
the monitor screen. Also note in the state- 
ment at Line 1000 we have used a func- 
tion called the STEP function. This func- 
tion in a staternent wilt cause the variable 


to be incremented by the amount contain- 


ed in the STEP value. In this instance we 
wish to increment the A variable by 32 for 


each pass through the loop in the state- 


ment line, At the next statement line, the 
decimal equivaient of a white square will 
be placed at decimal location 54000. This 
will be the first part of the data in video 
RAM that will make up our number 
character. At the next statement line the 
program returns to the first line where our 
FOR-NEXT loop began. 


The A variable will be incremented 
by 32, and the program will fall through 
the loop again. At the next statement Jine 
anothers square will be placed in video 
RAM and displayed on the monitor 
screen. This process will continue until 
the A variable has been incremented to 
the final value set in line 1000. This is 
64128 decimal. We will now have the 
graphics representation of the numeral 1 
displayed on the monitor screen. With 
this explanation of the subroutine for the 
graphics figure 1, you should be abie to 
analyze the remainder of the subroutines 
to understand them more clearly. 


| have written the program to dispiay 
the large numerals near the bottom left 
corner of the C1P’s monitor screen. If the 
user should wish these characters 
displayed at a different tocation, they can 
be relocated. This is not a simple task but 
can be done with the aid of.the video 
memory mae that is included as part of 
this article. From the memory map deter- 
mine the locations where you wish to 
have the characters displayed and 
change the decimal addresses to corres- 
pond to the new Iocations. |f you are go- 
ing to use the number routines for other 
programs, this may be necessary; but 
with the clock program as written, 
remember that the fast screen erase 
routine will clear onty the bottom half of 
the monitor screen. if you relocate the 
graphics characters, you will need to 
have your fast screen erase routine clear 
the jocation where you have located your 
display. 


This program is written in sub- 
routines as stated before. tn addition to 
the separate clock and subroutines for 
the numbers, the fast screen erase 
routine can be used in other programs 
that may require this feature. This could 
be for a rapid screen erase for animated 
games. The subroutines have many 
usages even if you cannot run the entire 
program on your machine. 


Basically, this articie was written for 
an OS! Chalienger C1P; but the programs 
will run on other OSI computers with 
some changes. | have not included these 
changes in this article because OSI 
systems are somewhat different. If you 
have SASIC, you can modify the program 
to suit your video output such as the 540 
in the C2-4P. In addition, a separate 
listing for an alarm option is inctuded for 
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those users who should have a PIA port in 
their Challengers. Piease refer to Table 2 
for the list of the program changes fe- 
quired for the aiarm option. The user will 
need a tone device to imptement this .op- 
tion. The alarm option uses a 6820 PIA 
located at F700 HEX. The A side of the. 
port is used and PAO is the specific port. 


When using either version of the 
clock, the user must set memory size to 
protect the machine code routine that is 
stored in user memory. When using the 
complete graphics and clock program, 
the user must set memory size to 8167. 
When using the shortened version, set 
memory size to 3840 decimal. When using 
the clock for either version, the clock tim- 
ing loop will have to be adjusted for your 
system to insure accuracy. The clock is 
tied to the Challenger Processor clock 
and differs depending on the program be- 
ing used. 


in conclusion, although the BASIC 
clock requires much memory and will not - 
have the accuracy of a hundred dollar 
quartz watch, it can be a fine 
demonstrator. The primary purpose of 
this article was to describe the C1P’s 
features and teach some programming 
techniques that could be used by the 
readers for other programs. This article 
and programs cover many of the features 
of BASIC and the Challenger CiP in 
general. | nope that { have hetped some 
readers and users of the OSI C1iP and 
other OSI systems to grasp a better 
understanding of BASIC and the graphics 
capabilities of these fine machines. In the 
next part of this series, | will show how to 
do some plotting and create ‘some 
animated characters using BASIC. Until 
then, good !uck!! 
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1464 FOR ASS400e@ TO S4ag2 STEP 1 4016 IF RX6éG THEN GOTO 4ae5 
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164 RETURN 4026 IF S=15 THEN 4634 
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4054 <= Seas PORE A. 161:HEXT A 
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Plotting and Moving Characters 


The ability to have characters and have 
them move in our game programs is a 
must. How do we accomplish this task? It 
is a simple task to implement. We do it 
with a technique called plotting. 


CiP Plotting Technique 


In order to have any character move on 
our C1iP’s Monitor screen, we must first 
know where we wish our character to 
start, the angular directions in which it is 
to move, and where the character’s move- 
ment will end. !f you will examine the ex: 
ample of the plotting diagram in Figure 1, 
you can see the angular directions in 
which the character can be made to move 
on the monitor screen. These angular 
directions are relative to any point on the 
screen, i.e., relative to a certain position 
- on the Video RAM. If, for example, the 
starting location were 54000 decimal, the 
zero point would be 54000 decimal and ail 
movement would be relative to that point. 


As stated in an earlier part of this 
series, we can cause a character to be 
placed on the screen of our CiP with a 
BASIC POKE statement. We move the 
character that has been placed on the 
screen with a BASIC FOR/NEXT foop. In 
the explanation of plotting and how to 
develope animated characters we wif use 
the functions of BASIC to develope our 
programs and to describe animation 
methods. 


To begin our explanation, let's use 
decimal location 54000 as an example 
again as a starting point. A BASIC pro- 
gram would use this decimal location as 
a variable content, For example, 10 A = 
54000. Now that we have a Starting point, 
we can move the graphics character in 
any direction shown in the Giagram in 
Figure 1. For example, if you wish the 
character to move in a vertical direction, 
with a BASIC subroutine we can get tne 
character displayed and moved. in order 
to explain how this proceedure works, 
please refer to the BASIC program 
subroutines in Listing 1, along with 
Figure 1. 


lf we wish to have an animated 
character (one that moves) we Must fist 
know the start, end, and path of the 
character, as stated before. The 
character must be made to appear at @ 
point along the path of angular move- 
ment. The character is then displayed for 
some duration of time. Next if ts erased 
from its present position and then 


displayed at a new position on the 
monitor screen. This process must be 
continued for the desired distance along 
the plotted path that we have chosen. 
These criteria can be executed with 
BASIC or Machine Language porgrams. 
Since we are primarily programming in 
BASIC. we will develop some BASIC 
routines to show how the character can 
be produced and moved on the CiP's 
monitor screen. 


The BASIC routine in section one of 
Listing 1 will be used to generate an 
animated character that will primarily 
move from near center screen downward 
to near the bottom of the screen. This 
subroutine begins at BASIC progran line 
5. Here the REM statement tells the user 
that this is a routine to generate the 
movement of a character downward. Line 
10 is the real beginning of the subroutine. 
At line 10 the A variable is loaded with the 
decimal beginning of the memory loca- 
tion where the character will first be 
displayed. Notice that this line forms part 
of a FOR/NEXT loop. Also notice that this 
loop wiil be incremented by a total of 32 
counts for every pass through the pro- 
gram. This is done with the STEP function 
of BASIC. The FOR/NEXT loop at line 10 
actually sets the limits of movement of 
the character. These limits are in the 
Video RAM between decimal 53776 and 
§4160, 


At line 20 we actually do the placement 
of the graphics character on the monitor 
screon. This character wit! be a square 
block that ls white on the screen. This is 
only one example of a character In the 
CiP's Character Generator ROM, There 
are over 150 of these special characters 
and all of these gaming characters are 
listed in the OSI Graphics Manual. lf you 
have the manual, you should study these 
elements and their decimai and Machine 
Code etement values. 


At ilna 30 in the BASIC subroutine 
modula another FOR/NEXT loop Js 
established. This is a dealy loop and its 
usa is to give tho viewer a sensation of 
movement. The character is displayed for 
8n amount of time In the delay loop. By 
the way, this is calied a nasted loop. if 
you can visualize this method as com- 
bared to how a motion picture projector 
works, then you can more easily unders- 
tand this discussion, 


At ling 40 we clear the screen of the 


previous character. This is done by stor- 
ing a blank at its present ‘location. 
Remember how a blank was stored in 
Video RAM. At tine 50 we get the next 
memory location where our next 
character must be placed and repeat the 
process over again. Our program will con- 
tinue to loop through the program until 
the A variable equais the greater decimal 
value in the FOR/NEXT loop at line 10. For 
everey pass through the loop A will incre- 
ment by 32. The reason is that we wish 
our characters to be one line down from 
the last character element. For your infor- 
mation the line length on the CiP is 32 
characters, This explains why we STEP 
our character by 32 in our FOR/NEXT loop 
at line 10 in the BASIC subroutine. Have 
you studied the plotting chart in Figure 1? 
If you have, you will know that +32 on 
the chart is directly vertically downward 
from our zero point. if we wanted to move 
our character vertically straight upward, 
we would use —32 in our FOR/NEXT loop. 
For example, FOR A= 54160 TO 53776 
STEP ~32, Remernber that all of the 
directions in our plotting chart in Fig. 1 
are to be used in a FOR/NEXT Joop, and 
the values that are pointed to are used in 
a step function in the loop. 


For an angular movement in any direc- 
tion,use the value in the chart to cause 
movernent in that direction. It must be 
understood that the decimal beginning 
and ending must be caluciated because 
for each pass through the loop with a 
step function, the variable will be tn- 
cremented by the amount in tne step 
value. 


Study the remainder of the modules in 
Listing 1, from our discussion you should 
be able to see just how these subroutines 
work. Load the programs into your C1P 
and watch the action on the screen. This 
will show you the results. The diagram in 
Figure 2 gives the complete memory map 
for a C1P. This is for a 25 by 25 character 
format. Use this diagram for all your plot- 
ting to find any location on the C1P 
monitor screen. 


Now that we have seen some examples 
of how a moving character is made to 
move on the C1P’s screen, let’s use some 
of these techniques to develop a program 
that has some moving character 
elements that form a game. Listing 2 
shows a game program that uses moving 
elements. These are: a starship and jJasar 
cannon shots directed at the starship. All 
the techniques that we have discussed, 


that give the sensation of motion, are us- 
ed in Listing 2. Please refer to this listing 
as we discuss the inner workings of the 
program's operation. 


The program is presented, as | have 
said, as a game. The starship moves 
across: mid-screen and the cannons are 
placed at each bottom corner, and at mid- 
bottom of the screen. The keyboard keys 
5,6, and 7 are used to fire the cannons. A 
hit score total is printed out at the top of 
the monitor screen for the player. 


This program is straight-forward and 
each module is identified by REM 
statements. This discussion will deal 
mainly with graphics and the keyboard 
routines, so please continue to refer to 
Listing 2. The remainder of the program 
should bea self-explanatory. 


The program from line 300 through 347 
forms the main line BASIC module. it is 
used to draw and move the starship 
across the screen. The polting routine for 
the keyboard is located from line 335 to 
line 344. If a 5,6, or 7 key is pressed, a 
GOSUB to a cannon shot routine will 
result in a shot at the starship. Key 5 
causes a shot from bottom right upward 
diagonally to top left of the screen. A 7 
key results in a shot from bottom left to 
top right. A 6 key results in a true vertical 
shot. 


The position of the starship is always . 


contained in the K variable. This location 
is always checked in each shot routing at 
lines 415, 462, and 525. If a hit occurs, the 
program jumps to line 600 where an ex- 
plosion of the starship wit! be displayed 
at the screen location contained in 
variable K. Next a hit score will be placed 
onthe screen. The hit count will be check- 
ed for 10 hits. If so the plaver will be in- 
formed that he has completed the exact 


number of hits and has won the game. If 


the player has jess than 10 hits, the pro- 
gram returns through RETURNSs to the ex- 
act main-line program at. line 300. 


This program uses more of the 
elements contained in the Character 
Generator ROM. These elements are the 
elements that are used to draw the star- 
ship. Their decimal equivalents are 9 and 
12, and are written into video memory 
with the POKE statement at line 310. 
After a delay at line 320, the starship is 
erased and placed at the next location in 
the FRO/NEXT loop from fine 300. The 
cannon shots are primarily POKEd to 
screen memory, displayed for some dura- 
tion of time and then erased. This pro- 
cess continues until the FOR/NEXT loop 
has been incremented to its maximum 
value. 
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Conclusion 


If you have followed all five parts of 
this series, | believe that you should now 
have sufficient knowledge of your C1P’s 
graphics capabilities. | hope that you now 
also have a better understanding of the 
polled keyboard, and how to use these 
capabilities with BASIC programming to 
produce real working programs that will 
be enjoyable to use. Hopefully you have 
learned with me through these efforts 
and | will see some of your programs 
published in the pages of MICRO in the 
near future. With that, I will conclude this 
series Of articles and | hope that these 
programs and ideas will be as much fun 
for you as you read and experiment, as 
they have been for me in the writing. 
Good luck with your programming and 
with your writing. 


SECTION 1) 

5. REM MOYE CHARACTER DOWN 

10 POR A = 53776 30 54160 ST¥P 32 
20 FOKE A, 164 

30 FOR B = 1 TO 50 : NRXT B 

50 NEXT & 


SECTION 2) 
60 BEM MOVE CHARACTER UP- 
70 POR A = 54160 .1O 53763 STRP- 32 
80 FOKE A, 161 
90 YOR B = 1 30 50; NEXT B 
100 POKER A , 32 
110 ERX? A 


SECTION 3 ) 

120 REM MOVB CHARACTsK RIGHT 
30 FOR A = 53776 10 53787 
140 POKS A, 161 

150 FOR B = 1 70 50; 
160 POKE B , 32 

170 HBAT A 


NEAT B 


SBCTION 4 ) 

180 REM MOVE CHARACTER LEPT 

190 POR A © 53776 TO 53763 STEF -1 
200 FOKB 4 161 

210 POR B = 1 70 50 : 
220 FOKE A , 32 

230 NRXT A 


NEiT B 


List 1 


218 


Rm al am a amie enemas ne AE ll 0 ye NL ARE eS AS a RRS: Foor wee. 


eee 








33 
34 30 
-1 +1 
+30 +34 
+31 
+32 
Figure 1: Plotting Directions for the 
C1P 
LIST1-S06 


1 REM CENCHSTRATION PROGRAM FOR ANIMATED ELEMENTS GN 
2 REM BY WILLIAM L. TAYLOR t2¢ 36137 osI ciP 
3 PRINT"STAR SHIF ATTACK” 

4 PRIHTIPRINT” DESTROY THE STARSHIFS WITH KEVS 5.6.7" 
S PRINT" VOU GET 10 SHGTS":FRINT 

8 FOR S=1 TO 1080G:NEXT 5 

18 L=2:GoToTSa 

299 REM ORAW STARSHIP BRNO KEVBORRO FOLLING ROUTINE 
3@0 FOR K=55762 TO Sors7 

BiG POKE K.S:POKE K+1,12 

328 FOR J=1 TQ SQINMEXT J 

336 FOKE K,S2:9FOKE K+1,32 

335 POKE SZe. 1:FOKE STOss. 127 

337 CxC+1 

342 IF PEEKCSPOS8>=253 THEM GOSUG 400 
343 IF PEEKYS7OSSs=251 THEN GOSUB Sao 
344 IF PEEKKS7@S@).=247 THEN GOSUB4SSE 
345 NEXT K 

34? GOTO 300 

349 REM CLEAR SCREEN 

35@ FOR T=-2% TO S2°FRINTIHEXT T 

368 GOTO 3a ; 

399 REM DRA RIGHT VERTICAL SHuT 

409 FOR TisS4i47 TO 53403 STEF -31 
410 FOKE T1,249 

415 IF Ti=k THEN GOSUB sGa 

420 FOR TZ=1 TO SINEXT T2 

425 FURE T1,32 

439 HEXT TI 

438 RETURH 

449 FEM DRAW LEFT VERTICAL, SHOT 

456 FOR T354171 TO S33P9 STEP -33 
460 POKE T3255 

462 IF T3=K THEH GOSUB é6GG 

463 FOR T4=1 To SiNexXT Ta 

464 FOKE 13,352 

465 NEXT TS 

478 FETURN 

475 POKE T4.52 

499 REM CRA VERTICAL SHOT 

500 FOR T5=S415S TO S3396G STEP-32 


OK 


LI5T4.508-S68 


Sa 
S2s 
SIO 
Aa 
boa ea 
23a 
S3F 
606 
616 
628 
6230 
648 
656 
666 
652 
665 
678 
630 
6920 
7a 
71a 
Oe 


FOR TS=54153 To S335a STEP-—az 
PUKE TS, 245 
IF TSsk THEM GOSUS sod 
FOR T?=1 TO StNEMT T? 
PORE 15,352 
HEXT TS 
C=O: RETURH 
FEM CHECK SHOT HIT DRAW EXPLOSION AND DISPLAY HITS 
E=O:U=5373 
FOKE U+E. 32 
FOR A=1 TO 1G:°POKE K,RAINEXT © 
Ber rit lr E20 THEH 610 
=20 THEN FCKE S345S,.72:PONE S3456,73:POKE 53457. 2: 
FOKE S2453, 3203 FORE S3459.Le47 Piapienes ements eee ee 
L=L+1 
IF L<19 THEN RETURK 
IF U=10 THEN PRINT" ALL TARGETS DESTROYED” 
FRINT” VOU HAVE SAVED THE UNIVERSE" 
PRINT" WANT TO FLAY AGAIN YES OR NO" 
INPUT Ris 
IF Ais="VES" THEN 1 
IF A1LS*"NO“ THEN END 
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Hypocycioids 


* 


OP mas Lae adn Sh Seah pate : 


urne’s original prog 


eA 





A modification to John Sher 


plots hypocycloids quite a bit faster, on the OSI, by rae Weehina:ea chest 
reducing the number of revolutions required. The Midland, MI 48640 


technique may be used on any micro. 





| had just added the extra 2K of 
memory to my Ohio Scientific 440 video 
board to implement the graphics option, 
and was wondering what to do with 
those 16,384 dots (128 x 128) staring 
out from my monitor. i happened to pick 
up the March 79 issue of MICRO and was 
intrigued by John Sherburne’s article on 
plotting hypocycioids. A hypocycioid, if 
you don't remember, is what you get 
when one Circle rolls inside another as in 
the “Spirograph” toy. | immediately ac- 
cepted the chatienge that if it can be 
done on a PET, j couid do it better on my 
micro. 


ee oe 


The original hypocycloid program suf- 
fered greatly from lack of speed since 
each point was calculated using four 
trigonometric functions. Approximately 
300 points per revolution were required. 
Even then, some gaps appeared in the 
resulting pattern. | was able to reduce 
the number of points calculated per 
revolution to 30 by drawing straight line 
segments between calculated points. 
This makes the resulting curves not 
quite as smooth, but very acceptable as 
the accompanying photos illustrate. The 
number appearing in the lower left cor- 
ner indicates the number of revolutions 
required to compiete the figure. 





Below is the subprogram I used to fill 
in the space between calculated points 
(X1,¥1) and (X2,¥2). A different pro- 
cedure is used depending wheiher the 
slope of the plotted Jine is nearer the X , 
axis or Y axis. Lines 1060-1085 and 
1160-1165 store the bit in memory and 
are specific to my graphics board. | 
wouid be happy to provide a copy of the } 
full program to anyone who is using the 

_ O'S 440 board with graphics. 


1000 IF Xt=X2 THEN 1100 

1010 A=(Y2-¥1)/(X2-X1) 

1015 iF ABS(A)>1 THEN 1100 

1020 BsY1-A¥X140.5 

1030 FOR X3=X2 TO Xt STEP SGN(X1~X2) 
1040 Y3=INT(B+A#X3) 

1060 Mz54272+16*#Y3+INT(X3/8) 

1065 POKEM, PEEK(M)ORS(X3AND7) 

1070 NEXTX3: RETURN 

1100 IF Yt=Y2 THEN RETURN 


1110 Az(X2-%1)/(¥2=¥1) ; aah 
1120 BzX1-A®Y1460.5 

1130 FOR Y¥3=Y2 TO Y1 STEP SGN(Y¥1-Y2) Fee eee Re 

1140 X3sINT(BsAfY3) 

1160 M=54272416#Y34INT(X3/8) 

1165 POKEM, PEEK(M)ORS(X3AND7) 

1170 NEXTY3 

1180 RETURN 
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If you want to know more about your OSI BASIC, infor- 
mation Is presented which details the use of RAM 
Scratch Pad Memory and shows where some of the 
most important Support Subroutines reside. 
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MICRO has published very Iittla on 
OS!'’s BASIC in ROM system. One cas 
only guess that fewer OS! owners aro iy 
clined to explore their machines ehu 
bend their functions to their own uses in 
contrast, pernaps, te owners of otto 
6502 systems. This is a pity because # 
contrast to what | read abou! PET. for as 
ample, the BASIC ROM’s anc he 
EPROM’s that support BASIC, sane 3 2 
polling, and the MONITO? are 4 i ait : 
accessed by PEEK of throug’ ts 
MONITOR. 


thes [ 


This note may stimulate 0 
BASIC in ROM owners to try 35" 
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MICRO, number 6, pas 
“PARTIAL LIST OF PET gle 
MEMORY”, by Gary A. Cree” 


WERE T gopcied ihe BASIC inter- 
preter foe fet OLb and PET, a principle 
GPE RR oeaeey foo eats that there shoutd 
fea ate g hier actly between the two 
tetio ss foe foough OSI uses a more 
jo 7 bee Cattetie LO system without 
bree Og eet weds 


Tete Ltessecents the essence of this 
Pot ty os pattacot to the PET table, 
The ta ns easeetalty tha same as 
Bre ts & erect for the use of 
tig tage tt ger Che nal 

fe OY. § RS Of trean with tho flow 
tate oo #h oo $Y aod the high byte in 
ac gto es Fur e t 


WPbd. Eto on teAst of memory loca- 


1. gar 


“# MMe lt 8 ang follows the 
; 7 fhm as ct waate maditicg- 
pa vee o£ The table is not 
“eh OT Te best of my 
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Finally, in MICRO, number 11, page 
37, Don Rindsberg presented an im- 
pressive BASIC renumbering program. | 
have not yet converted the program to 
OSI because a BASIC renumbering 
Capability is not one of my favorite 
needs. However, for OS! owners who 
would like to “roll your own” following 
Mr. Rindsberg, Table 2 is presented as a 
Substitution for his Table 1 on page 38 
that lists the BASIC subroutines needed 
in his program. The subroutines in Table 
2 can, of course, be used for other pur- 
poses. $B95E is an excellent Hex to 
Declinat converter that can be called 
with a simple machine language pro- 
gram. Similarly, $477F can be the basis 
for Decimal to Hex conversion. $A8C3 is 
a general purpose message printing 
routine that is easily incorporated into 
any program. Finally, $A24D makes it 
relatively simple to modify BASIC pro- 
grams under computer control. 
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IND(OT} 


IND(06) 
IND(O8) 
IND(OB) 
M(OD) 
M(OE) 
M(OF) 
M(41-12) 


M(13-5A) 
IND{74) 


IND(79) 


IND(7B) 
IND{7D) 


IND(7F) 
= IND(81) 
IND(83) 
IND(85) 
M(87-88) 
M(89-BA) 
IND(8B) 
M(8D-8E) 
IND(8F) 
IND(91) 


M(93-94) 
M(BC-D3) 


IND(C3) 


M(AF-B0) 
M(FB) 


3 M(100-107) 


M(4FF) 
M(200-20E) 


(212) 
M(213-216) 
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Table 7 


A Partial List of OS! BASIC 
in ROM Scratch Pad Memory 


(Ref. MICRO, No. 6, Pgs. 49 - 50) 


Initially, address of cold start ($BD11). 
Replaced by warm start ($A274). 

USR INVAR address. 

USR OUTVAR address. 

USR program address. 

Number of NULL’S selected. 

Terminal character count. 

BASIC terminal width. 

Arguments of statements such as PEEK, 
POKE, GOTO, GOSUB, tine numbers, etc. 
Input buffer. 

Scratch pad address for garbage collec- 
tion, line insertion, etc. 

Address of beginning of BASIC code. 
($0301) 

Address of beginning of Variable Table. 
Address of first array entry in Variable 
Table. If no arrays, end of Variable Table. 
Address of end of Variable Table. 
Lowest string address. 

Scratch pad string address. 

Address, plus one, of highest allocated 
memory. 

Present BASIC line number. 

Line number at BREAK. | 3 
Pointer to BASIC code for CONT. 

Line number for present DATA statement. 
Address of next DATA statement. 
Address of next value after comma in pre- 
sent DATA statement. 

ASCH code for present variable. 
Subroutine: Points through code one 
byte at a time, RTS with code value in A 
and carry clear if ASC(O - 9); otherwise, 
carry set. ReturnA = Olifendof line. ig- 
nores spaces. 


Code location pointer for above 
subroutine. 

USR input variable storage. 

MONITOR keyboard control flag. 


( = O for keyboard). 


Storage of conversion of floating point - 


number to ASCIil. 

Top of BASIC stack. 

Temporary storage for CR = simulator 
subroutine ($BF2D). 

CTRL C flag. 

( =$01 if CRTL C off). 

Temporary storage, keyboard polling pro- 
gram (#FD00). 
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$A24C 


$A24D 


$A77F 


$B7E8 


$B408 


$BS6E 


$A274 
$A8C3 


$B95E 
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Table 2 


OS! BASIC Routines Needed for 
BASIC Renumbering 
(Ref. MICRO, No. 11, Pg. 38) 


Print an error message from the message 
table. Enter with X containing the location of 
the message relative to $A164. Message ter- 
minator is ASCII having bit 7 on. 


BASIC line insertion routing. Enter with tine 
assembled in the line buffer $0013-$005A with 
00 as line terminator. Also, character count 
must be in $005D and the line number(hex) at 
$0011/12. 


Evaluate an expression whose beginning ad- 
dress is in $00C3/C4. .Use this subroutine to 
convert from ASCli to binary, with the result 
appearing in the fleating accumulator: 
SOOAC/AD/AE/AF. 

Convert fixed number in $OOADIAE to floating 
number. Enter with the result appearing in 
the floating accumulator: SOOAC/AD/AE/AF. 
Convery binary value, such as fine number, in 
floating accumulator to two-byte fixed 
number and piace in $0011/12. 

Convert floating number at $00AC/AD/AE/AF 
to ASCII and piace in string starting at $0101, 
preceded by a space or minus sign at $0100 
and terminated by 00. 

BASIC warm start. Prints “OK”. 


Prints message. Enter with ADH in Y, ADL in 
A. Message is ASCil string ending with 00. 
Print the decimal integer whose hex value is 
in registers A and X, for example, a line 
number. 
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Structured BASIC Editor and Pre-processor 


* 


ay ee 





Enter, list, modify and reseque 





ts 


nce BASIC programs with 


this versatile pre-processor for the OSI Challenger. Here 
is one editor that you can modify because it is written 
in BASIC. What’s more, you can modify it in structured 
BASIC because the structured BASIC syntax is imple- 


mented as a bonus. 


mf 


This program is a line editor and pre- 
processor which converts a structured 
BASIC program into executable BASIC 
statements. It is written in Microsoft 
BASIC and takes up about 10K of mem.- 
ory. Using only string operations, tt 
changes iF THEN ELSE, DO WHILE, 
CASE, REPEAT UNITL, and REPEAT 
FOREVER structures into their equiva- 
lent forms. 


Besides these constructs, it also allows 
the use of subroutine names. The editor 
portion of the program can add lines, 
delete single lines, delete blocks of 
lines, modify existing tines, print out a 
single line, print out a block of lines, 
print out the complete text. and te 
sequence all of the Jines. Tabic lis a frst 
of editor commands. 





The editor works by first reading in a 
sinng and comparing this string to a list 
of commands (see Figure 1). tf it 
matches the string toa command, it then 
branches to the appropriate routine. 
Without a match, the program assumes 
ihat the string is a tine of text. It next 
compares each character to a pound 
sign and a backwards slash. These 
characters are immediately changed to 
a comma or colton, respectively. Since 
BASIC does not accept commas or 
coions in an input string, this is a neces- 
sary Inconvenience. 


After this, the program tries to parse out 
the fine number and checks for at least 
one non-numeric character after the line 
Number. A missing fine number initiates 
an error message. Thus, an legal com- 


Table | — Editor Command Summary 


Renumbers all lines tn multiples in ten. 


X is avalid line number. Prints out only line number X. 


X is a valid line number, and Y can be any number. 


Prints out aff lines trom X to Y. There must be at least 


Same restrictions as LIST X. Deletes only line 
Same restrictions a5 LIST X Y. Deletes ali tines from 


Same restrictions a6 LIST X. Aliows you to modify 


jine number X. Program asks for a stop character and 


Has the effect of clearing the text by breaking links. 


RESEQ — 
LIST — Prints out entire text. 
LISTX — ) | 
The space between LIST and X ts optional. 
LISTXY — 
one non-numernc character between X and Y. 
DELX — 
number X. 
DELXY — 
X to Y. 
MODX — iS 
repetition 
NEW —_ 
BASIC — Command to stadt pre processing 


ere aap et ee SET Hr 


Robert Abrahamson 
5533 25th Avenue 
Kenosha, WI 53140 


mand would cause a message stating 
that one forgot the line number. On the 
other hand, a line number without follow- 
ing text would be interpreted as a re- 
quest to delete that fine number. 


Upon finding a line number and text, it 
strips the line number from the text and 
stores the line number, separately, in a 
doubly linked circular list with a head 
node at an index of zero (see Figure 3). 


The preprocessor alters the text re- 
ceived by the editor and returns controt 
to the editor when processing is finished 
or an error is detected. Fizst the pre- 
processor (see Figure 2) resequences 
the line numbers, insuring enough room 
to add fines later. The next step is to 
parse out the first token in the first line. 
This token is then compared with “SUB- 
ROUTINE." A match tells the program 
that this is a statement which declares a 
subroutine; to save the subroutine name 
and line number in the subroutine name 
table. 


Matching with CASE, THEN, DO, RE- 
PEAT, ELSE, or a semi-colon requires 
the program to parse out the arithmetic 
expression, if it exists, and store it, 
along with a structure type code and fine 
index, on the stack. A match with “END” 
causes a record to be popped from the 
stack, and a branch to a routine which 
converts that type of structure into 
standard BASIC statements. 


If no match is found for any of these 
keywords, each character thereafter is 
compared with the ampersand, which 
is reserved for use only as the first 
character in a subroutine name. Finding 
an ampersand, the program parses out 
the subroutine name and stores it in the 
subroutine call table, along with fine 
index, line fength, and start and stop 
positions of the name. This same pro- 
cedure is then repeated for every line of 
text. After finishing this, the subroutine 
call table is read, and every subroutine 
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name in the text is changed to a line 1 REMe ewe errr eres e senna reese ose se eee eae neeereseeeeeeetiter 
number. This completes the  pre- 2 REMeoos PRE-PROCESSOR FO CONVERT STRUCTURED BASIC TO eescces 
processing. 3 REMeeos Basic eeveces 

4 REMecee BY ROBERT ASRAHAMSON seesnee 
There are a few things to keep in mind 5S REMeceee 4 may 79 seacees 
when using this pre-processor. You 6 REMaececeva ences reese eRe eeeee dees eee Des eeeereeeseesnaneeeecen 
should be very careful when coding 18 DIM 1$( 106) LLC 181) SAL{ 181) oLNC 187) 2SC8( 28) 9ST( 2004) 
GOTO statements, because the line 26 OFM SO$(28) »SUC 28) eARS( 18) eSRC 18) 91 NC 18) 
numbers are resequenced before pro- JO REMooe ENITIATE AVAILABLE POOL OF NODES seece 
cessing. The structured input text is 40 FORT =ITOOSERL CL Ete 1s NEXT) 


altered, and so the structured text for ali SO RL( 100) =BtaV=dsReE( 8) =G2Lb (8) =6 
practical purposes is lost. As for 68 INPUT S$ 

using the structured statements, foliow- TA REMeee DECODE COMMANDS eoece 
ing the examples in the printout should 88 {FLEFTS(S$53) ="NEW* THEN 

help. Remember that in all of the struc- 98 IFLEFTS(S$+3) ="DEL® THENS 60 
tured statements spaces are necessary 186 1FLEFTS(S$*3)=*MOD*THENS EG 


118 TFLEFTS(CSS ed} "LST" THENT3¢e 
between words, and spaces musi not be 
used within an ariiirectic or logical ex- 128 IFLEFTS(S$+5) ="*RESEQ*® THENGOSUB3 702 GOTOGS 


pression. This is because the program 138 IFLEFTS(S$*5) ="9AS1C® THENI796 


uses the space, colon, and end of line er pe ASSUME LENE OF TEXT ceeve 

to identify an expression or word ending. 164 Neesveisen ies UB 458 

Multiple structured statements per line 

cannot be used because the program 178 PRENT*OKs WHERE'S THE LINE NUMBER?® 


2 186 GOT06¢8 
sees only the first one. 19@ 1FLG>I IHEN220 


This pre-processor is relatively easy to 260 GOSUBG64B: 1 FGN2d THENGE 
use with a cassette interface. First enter 218 GOSUB1226: GOTO6e 
= the structured program using the editor, 22@ SS=RIGHTS(S$»LG~-1) 
then convert it to BASIC with the Basic 238 REMooe LOCATE WHERE T0 ADD EN NEW LINE eoceee 
command. When you see the message 248 GNSLL(@) 
Staling that pre-processing is finished, 250 LFGNSOTRENAN=81G0T0348 
type in “LIST” but do not hit return. Turn 255 1FLNOLN(GN) THENAN=GNIGO0T0340 
on your cassette, and then hit return. 268 EFLN<LN(RL(6)) THENAN=G2G01T0346 
You now have the program on tape and 276 GN=98 
can load it like any other program. 288 GNFRL(GN) 2 EF GN=0 THEN329 


298 FFLNZLN( GN) THENAN=LL( GN) 2G60T0339 
368 EFLNOLNCGNJANDENCKLNCRL( GR) THENANZGNIGOIOI340 
316 6010288 


326 PRINT®E CAN'T FIND A SPOT FOR THE NEW LINEo*3G0T068 
336 GOSuUa1226 


348 GOSUB 1468 
INPUT LINE 





358 IFGN=@THENPRINT*OUT OF TEXT SPACE": GOT063 
366 G60SUS 12783601068 

378 REM 

388 REMeeeRESEQUENCE ROUTINE eeaee 
398 REX 

409 GNEOSUN=18 

41@ GN=RL{ GN) 

428 1FGN=OTHENPRENTIRETURN 

438 LNC GN) =LNILN=LNe19 

448 GOT0418 

45% RE 

460 REMese FIND START OF LINE NUMBER® PARSE IT OUT esccs 
472 REMeee INPUTS; SSZSTRING TO PARSE 

483 REMeee QUIPUIS; PstzS¥ART AND END OF LINE NUNBER 






PERFORM 
COMMAND 











ADD IN COMMA ate REMaee LN =LINE NUMBER 
AND COLONS shy ee LG =LENGTH OF S$ 


$2@ LG=LEN(S$) 

525 UFX>LGTIHENPsO:RETURN 

$38 FORP=xTOLG 

548 trA=ASC(MEDS(SSePs1)) 

556 tt 1 FA>=48ANDA CHS7THENSSS 

56@ NEXITP 

S78 Ps@zsRETURN 

588 FORI =P TOLG 

$9@ stasaSC(MIDS(SSet+4)) 

606 tC1FA<A8ORA>STIHEN! st -1:2G0T063¢ 







LINK LINE 
WITH REST 







OF THE LINES 610 NEXTI 
628 {21-1 
639 LN=VAL(MIDS(SSeP et -Pet) tRETURN 
640 REM 
658 REMeos SUBROUTINE TO FIEND LINE NUMBER eacce 
660 REMece | NPUT LNZLINE NUMSER sense 
Figure 1: Editor Flow Chart 678 REMees OUTPUT GNEIANDEX eeoee 
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REM 
6N=¢8 
GNZRLCGN) 82 FGNaa THENRETURN 
IFLNZUN( GN) THENRETURK 
GOTOTIS 
REM 
REMeoee LIST ROUTINE eoece 
REM 
Gos ue 45a 
I FPSOTHENS 26 
GOSUBE 4D 
1 FGN=@TMENPRENT?2 GOTOSA 
X=1¢48GOSUSS201 1 FP sO THENPRINTLNC GN) 1 TS( ON) 1GOTO6S 
PRENTENC GN): 18( GN) tGN=RL CGN) 
IFLNC GN) <*LNANDGN<>8 THENSG 1 
6GOT069 
GN=8 
GN=RL(GN)!1 FGN2@ THENPRINTIGOI06@ 
PRINTLNC GN): T8( GN) 
6010838 
REM 
a DELETE COMMAND PROCEDURE sence 
P 
GOS U8 458 
{FP <>@THEN92¢ 
PRINT? WHERE'S THE LENE NUMSER27° 1 GOTO6E 
GOS Us 649 
LFGNZOTHENPRINT*LINE HOT FOUND#160T068 
KEbO13GOSUB5202 | FRSATHENGOSURT228¢6610958 
GI=RL(GN)1560SUB 12201 6N261 
I FUNC GN) <=LNANDGN<ODTMENIAI 
PRENT® DELETED": 607068 
REM 
REMeee MODIFY COMMAND PROCEOURE evoce 
REM 
608u8459 
IFPSATHENPRINT!NO LINE NUMAER* FOOTORE 
GOSUBF 4G 
LFGNZOTRENPRINTONOT FOUNDE GOIN ES 
PRENTENC GN): TEC GN) 
PRINT*™STOP CHARACTERS 3 2 YNPUTSTE 
PRINT®REPETI SIGE sb NPUTF 
PRINTUNC GN); 
FORPSITOLEN{ T$(GN)) 
LIPRINTMIOSC TSC GN) Pe t}s 
SLEPMEDS( TSC GN) FPO 1) HSTSTMENF FF | 
te FF<2THENTI29 - 
NEX TP 
INPUTSTS 
SS=LEFISCTS( GN) PP} eSTS 
GOSUB1I2ZG2TS(GN)=S5 
GOT0800 
REM 
REMeee SUIRGUTI ANE GETNOOE GH FROM POOL ccoace 
REM 
IFAVC>DTHENT2 18 
PRINT™OUS OF NODES*IGNEOIRETUEN 


686 
696 
708 
718 
726 
738 
748 
758 
769 
778 
788 
798 
880 
861 
882 
818 
82¢ 
636 
848 
850 
860 
87é 
8b¢ 
498 
980 
918 
— 926 
936 
948 
941 
942 
958 
968 
978 
989 
99¢ 
1880 
1818 
1926 
1838 
31048 
1056 
1866 
1678 
1888 
1898 
1166 
1118 
V12h 
1128 
114¢ 
115¢ 
~ 1168 
1178 
1188 
1198 
1268 






ARITHHETIC STRUCTURE 
EXPRESSION TYPE CODE 


1HCQ) arsca) | s¢Q) | 


STACK 
RECORD 






INDEX 





NPR ON 






LEFT LINE TEXT 


WUMBER 


Fre oc Cc) 


CIRCULAR DOUBLE LINKED LIST WITH HEAD NODE AT I=0 





LINE OF 
TEXT 





KAME OF 
SUBKOUTINE 


START POS. 
OF NAME 


END POS. 
OF HAME 


LINE 
LENGTH 


LINE 
INDEX 


[srie.a [ene] arse 


SC POINTS TO THE LAST TABLE ENTRY 


ST(SC,1) 





SUBROUTINE 
CALL TABLE 





1274 
1228 
1238 
1249 
1258 
1266 
127¢@ 
1288 
1298 
1368 
1318 
1328 
133¢ 
1348 
1350 
1368 


GNSAVEAVERL( AV) ERE TURN 

REM . 

REMeee SUSROUTINE DELETE wiOE GY Fede LIST cosee 
REM 

RL(LLCGN) )SALCGND PLLC REC SSDP ALL (IND 

RL( GN) SAVIAVEGNIERE TUS 

ae 1a aw $C tp tel «6 
REMeea SUBROUTINE add NOCE ¢ : w- f 
RE 

ALCGN) ZALCANDEELE 
ALCAN) SGNSUNC GN) al 
REM 

REMeee SUBROUTIN 
REM 

LGOSLENESS) 
FOREZITOLG 


A aevee 


swyeaven ccf. (dsdieee 
wilSCGNJ evar be (Lae 


ete OR mR AMET 


et 


e apo I” CCORPALSTEL SOS 10 FEST eves 









WAME OF 
SUBROUTINE 


LINE 
NUMBER 


$D$(SD) SU(SD) 
SD POINTS TO THE LAST TABLE ENTRY 


SUBROUTINE 
DEFINITION 
OR WAME 
TABLE 












1378 
1388 
1398 
1488 
141@ 
1428 
1432 
1448 
1458 
1460 
1478 
1489 
1498 
1508 
1518 
1528 
1838 
1648 
1858 
1568 
1574 
1588 
15908 
1622 
1618 
1628 
1638 
1648 
1658 
1668 
1670 
1684 
1698 
1780 
1718 
1728 
1738 
1748 
1788 
1768 
1778 
1788 
179¢ 
1889 
16 19 
1828 
1838 
1848 
185¢ 
1868 
1878 
1888 
1890 
1968 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2808 
2016 
2928 
2038 
2043 
2656 
2866 
2078 
2688 
2698 
2186 


“ly ate., ns 
TREN EE eS REE a: 9 TNT PF AA A RT I PS, TE EY MERI t rae 


SIE FMI OSCSS elo tTP=SeMTHEASTS=" 9" 160701408 
tELFRIDSCSSef oe TI =®NBTHENS PSa8893GGTC 1498 
2360701436 

trSTS=LEFIS(SSe#t-3)oSTS 

Trl FLGat THENS T$aS1S4*+RIGHIS(SSsLG-1) 


23S99=$1$ 

NEXTI 

RETURN 

REM 

REMece PARSE SUBROUTINE sence 

REMeese INPUTS: SS=STRING TO PARSE 
REMeace PTESYART POSITION 
REMees CUIPUTS: LG=LENGTW OF S$ 
REMece PT=SSTART OF TOKEN 
REMaee P2=END OF TOKEN + 1 
REMeee TKS=TGKEN 
LGSLENCSS)rTK$s84eeeee 


fFMEOSCSS$sP 193) 5" @THENPI=P1¢92G0TO01548 
FORP2=P1TOLG 

Tr TPSHMiGS(S$eP291) 

stlLFTP$=" *THEN1619 

SRIF TPS=" 2" aNOP 25° TIMENTE19 

StTFYPS$=4s" THENTE 10 

NEXTP2 

TKS=MIDS(SSeP19P2-P 1} 

RETURN 

RER 

REKHeeeSUSROUTINGE PUSH ONTO STACK 

REMeoe INPUTS: TKSZARITHHMETIC EXPRESSION 


REUses SR=STRUCTURE TYPE CODE 
RERees iN=|HOEX 
Q=O0¢11 PF FOX IGTHENPRINT®STACK OVERFLOW ERROR®tSTOP 


ARSCO)STKSESRCO)=SRIEENC QO) 21K 


RETURK 

REK a2 = 
REMeeeSUBROUTENE POP OFF OF STACK 
REHeseOQUTPUTS;: ITKS=SARITHMETIC EXPRESSION 
REM ses SR=STRUCTURE TYPE CODE 
REHeoe INE NDEX 

(FOSS THENPREINT®STACK UNDERFLOW ERROR®tSTOP 
TKHSZARS(O)ESR=ESR(O)SEN=INCO) 

Oz20-TRETURN 

REF 

REMeoe CONVERT STRUCTURED 10 BASIC eecoe 
REM 

668 Ua3 78 

NL2O3SO=@2S$CaO20292 GS="GOTO#*tGyS="REMM 
G2S="9THEMBMEGISHBLFS 

NLERL CNL OEP FNL OTHERS 158 
SSzISCNL}8P1=1260S8U8 1458 
LFIKS=*SUBROUTINE" THEN 1898 

60101968 

PI=P2160SUB 1458 

LFLEF TSC TKS s t)=9 28 THENIS36 

PRINT®ERROR FN SUBROUTINE NAME® NO A” < 
PREXTLACNL IS TSCNL) EGOTORS 

TSONL)=GIS*TSCNL )2¢SO0=S0%7 
LESD>#GIHENPRINT® CUS OF SUB TASLE SPACE*3GOTCES 
$OS(SO)=TKS2SUCSO) HL RCNL) 260101852 
IFIKS="9DO"THENIS8S 

601620 48 

P1=P2260SU8B 1458 

LFIKS="8WHILE* THEN2A 12 





2146 
2128 


92138 


PRINTPERROR 1N DOO SHILE STATEMENT SYNTOX"2G0T0192 C82 769 
P12P2760$U8 1456 2778 
SR=1t EN=NL 3 GOSUB 1630 2788 
GOT018 58 798 
4FIKSS4REPEAT® THENZO68 B28 88 
60102158 g28 10 
P1=P2160SU8145@ 2620 


(FIKES®UNTI LS THENZ 118 

LF IKMS=*5 FOREVER® THEM2 128 

PRINT®ERRGR IN REPEAT STRUCTURE SYNTAX*®260T01928 
PNENLIESR29t TKS 2#"9 260702136 
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P ¥=P2260SU8 1458 

SR222 1, N2NL 
00SU816308TSC( NL) s613¢1SC NL} 
60103854 

PFTHSs*CASE* THEN 178 

60102228 

TSCNLD=G1S*TSC NL) 

INSNLESRadt KET" 

G0SU38 146308601018 58 

TF IK $3: ®THENZ 249 

60102278 

P1=P22G60SU8 1450 

SR=$2 |) NeNbL2 90S U8 1638 

60101858 

LFIKSS* THEN*® THEN2299 

60102376 

P1=P217605U8 1459 

TFTK $2900" THENZ329 

PRINT*ERROR IN IF- 

THEN OO STATEMENT SYNTAX®2GOTO3920 
NMSLLONL FP 1243SSSFSCNM) SGOSUB 1459 
PETKS <>" FS THENNL hI 60702318 
P1=P23G60S UB 1458 

SRer6: | N=NKIGOSUB 1630 

605 UB 1858 

fFIKSS*®ELSE® THEN2390 

GOTO2429 

SRITTINSNLE TKSS9"#5G0SUB1638 
TSCNL}=G1S+T SC NL) 

60101858 

LFIMS="END® THENZ 448 

607102478 
tFO>GTHENGOSUB 17192 GUT02 458 
PRINE*TOO MANY END STATEMENTSESGOTOEO 
ON SR GOTO 25782272092678 929 7092626229884 3842 
FORP IZP2TOLG 

TEL FHIOSCSS$9P 491) 224 THENZS 18 

NEX IP 1 

GOT018Sé 

GOS UB 14S¢ 

$C2zSC+1 

[FSCOZBTHENPRENT® OUT OF SUB CALL SPACE*HGOFG!: 
STCSCeV)=PItSTCSCed}eP2rST(SC sa) =t6 
STCSCs2) SNL2SCSCSC)=TKS 

60102478 

RE 

REHese CONVERT OO/WHILE STRUCTURE esece 
REK 

ENSLNCNL DS OWSLNC EN) 
TSCNLJ=GIS*¢TECNL) 

TSC IN) SG3S%IMS4+G62$4S TRE( OKO 12) 
LN=OWe 12 SSzGSeoS TREC EN} SANZEN 
G608U31160:605U8127¢ 
LAZTEN~12SS=G68S4STRS( OW) TANSLECANL ) 
G0$ UB 11663 605U8 12783607018 58 

REM 

REMcee CONVERT REPEAT FOREVER STRUCTURE seeas 
REM 

TSCNL) S6S*STRSCLNCIN)) 


r 60101850 
‘REM 


REMesoe CONVERT REPEAT UNTIL STRUCTURE sees 
REM 

ENSLN(NL) 2 OWZLNC IN) 

TSCNL )=GIS+TK$eG2$4S TRS(ENS2) 
LNSEN* 18 SS=G6SeSTRS( OW) SANSNL 
G0$U81169:60SU8127¢ 
LNZEN*2¢SS$=G382 ANZGN 
60$U91168:G60SuUBt27¢8 

GO1018 5a 

REM 

REMees CONVERT CASE STRUCTURE esecce 
REM 

ED=LNONLDSSTALNC IN) SPC=ED 

TSC NLD =GTS*+ TSC NL) 

LN=S te trS$sGSeSIRSCPC)raANneIN 
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2880 GOSU811681665uU91278 

2898 TSCIN) 2G3Se TK S662 545 1RE(5 1018) 

2998 TESRCO) c>STHEN2 958 

2938 LNEST-12S 8268S FSSC EDP EANRELO IAD 

2926 GOSUB11681GOSUA 12 78 

2938 GOSUBT7IARPCES 3S 1eL A(t 4) 

2942 GOTO287¢a 

2950 GOSUSTTIALIFSRC>ETHENPRINTTCASE ERRORFSNLZENSGOTOI92E 
2968 GOTO1e5e 

2978 PRINT#CASE ERROR thi RENIGOTOI9 2S 

298@ REM 

2998 REMeae CONVERT TF/THEN 00 SIRUCTURE eeeee 

3808 REM 

O18 TSCRECEND) 68S TASCENCNL) DE TSCNL) SG18¢TSCNL) 
3823 TECINISISC IND +G2HOSTREC ENC INI S20) 

3039 GOTO1852 

3848 REM 

3050 REWeee CONVERT CF TREN ELSE STRUCTURE eeses 

3868 REW 

3078 EDZLNCKLOTSC NL) eGEEOTSCNL PEEL EUNC END 

3O8B LNZEL-TSSSrGOROSTRIC EDS AMBLELC EN) 

389A GOSUST1EGIGOSUL 1278 

31€6@ GOSUB IP 

3110 LFESRC>OETMENPRINTOECE THEN ELSE ERROR#ENL SINE GOTOI92E 
3128 FRCPL CEN} D EGROSTRECEL) 

3138 FSCINDTESC IND G2SeS TREC UNC IN} O28) 

3148 GOTO19S8 

3158 REM 

3168 REMeee SUBSTITUTE SURBERS FOR SUBROUTINE NAMES soeoe 
3170 REM 

3388 LESCeP THE NdI2e 

3198 EFSOSATHENPRINT®PERROR=NO SUBROUTINES DEFINED9 160103328 
3200 FORESITOSC 

3210 rr FOR IS119S0 

3220 srarteSCe(t deSO8{ V) IMENS266 

3230 rtNenty 

3240 tr PRINTS EPCOR-SUBROUTENE #3 SC8C1)2"% NOT CEFINED® 
3259 1269F033 10 

3268 reShes( Sth eZ ALG ENC SS) 

3278 StR aL Ge STE SAVER VES TC eto kre exSiC le tyoF 

F288 CSIMTEL EF ISS Fey -~ Te S TREC SUC) } 

3298 PEL EPP CEL GIMENING ETA GERI OM1S0 9891 6 P261) 

cRid BESO Te SEO Rreeeees | 

331@ NEWT 

2326 FRENTE ENG CF PRE-HMEOCESSINGS EPRI NTIGOTO6S 


RUN 7 Lest 
7°19 REM EXAMPLE OF CO eHILE STELITVEE 1@ REMe ee EXAMPLE GF IF THEN DO STRUCTURE 
2 28 REM 28 REN 
298 OO WHILE XcrBAnoKcret aries? 38 LF nore 
? 48 FIRST STATEMENT }1 THEN DO 
4 $8 SECOND STATEMENT 4g FIRST STATEMENT 
see ? 68 LAST STATEMENT s@ SECOND STATEMENT 
7@ €NO . €2 LAST STATEMENT 
7 WE 
? List 1? EO 
16 REM EXaRPLE OF SO emitft Stem tee 
4 ay UM rergangrerdenslere 2 BUSI CeseoeLis? 
48 FIRST STATENEST YO REWeecENAMPLE OF IF THEN DO STRUCTURE 
56 SECOND Starevcnf Pa | RE 
3 Last STarewen! 34°F Ke>OTNEN So 
6a 40 GOlO 36 
78 «END Se FERST STATEMENT 
ée SECOND STATEMENT 
2 3asic 79 N TH STATEMENT 
a6 LAST SESTEMENT 
END OF PRE-PROCESSING 90 REX END 
1b RER ExamPre OF CP wert TET OE Pcest 
2a REM fevetare ab i sen EXQNPLE OF 1F IMEW ELSE STRUCTURE 
ypyergeaslere ts 
j¢ at : 1# (fF NUMSERSOTHEN S@ 
3 6 Fiest grateeest 40 GOTO 63 
ae secono stareseet 38 PRINT® THE WUMIER 1S ZERO® 
&3 Lass statests! : tl a9 
" ELSE 
69 GoTo 34 re PRINTE THE NUM 
70 REK ENO ba REW END E NUMBER [S$ NON-ZERQ* 
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7 LIST 
1@ REM EXAMPLE OF REPEAT UNTIL STAUCTURE 
26 REM 
38° REPEAT UNTEL A28 




















de FIRST STATEMENTISECOND STATEMENT 
sé N-1 TH SSATEMENT 
6@ & TH STATEMENT RESEQUENCE 
Té =END GET LINE 
2 Basic PARSE FIRST 


WORD 
END OF PRE-PROCESSEING 


? LIST 

1@ REM EXAMPLE OF REPEAT UNTIL STRUCTURE 
29° «RES 

36 REM REPEAT UNTIL &2@ 





ENTER NAME & 
LINE ¢ IN 
DEFN TABLE 





48 FIRST STATEMENTSSECONO STATEMENT 
$8 N-1 TH STATEMENT 
68 N 1K STATEMENT 
70 VFAZOTHEN 72 
71 GOTO 3¢ 
72 REM PUSH EXPR, 
INDEX & TYPE 
ONTO STACK 
7? List 
10 REM EXAMPLE USING SUBROUTINES 
20 REM 


38 «GOSUS CENPUTEGOSUBECUTPUT 
48 «GOSUS OUTPUT 

58 STOP 

68 REM NOTE THAT LINE $8 15 NOT RECESSARY 
78) «=REM 

88 SUBROUTINE SI NPUT 

98 BOOY OF SUB 

188 RETURN 

11@ OREM 

128 = SUCROUTINE OUTPUT 

132 aGOY OF SUB 2OUTPUT 
148) -RETURK 





POP RECORD 
AND CONVERT 
STRUCTURE 





SEARCH FOR 
"&" ON THE 
LINE 
7 BASIC 


END OF PRE-PROCESSING 


? List 

1@ REM EX@¥PLE USING SUBROUTINES 
26 «REM 

3@ sOSUB abtGOSUS 126 

49 «6G0SUB 6128 













5e $toPp 

60 REM NOTE THAT LINE 38 1S NOT NECESSARY 

7@ REM 

88 REK SUBROUTINE INPUT STORE NAME & CONVERT 

98 ao0oY OF SUB LINE # IN NAMES TO #S 
108 RETURN SUBR TABLE W/ SUB CALL 
118 REM & DEF TABLE 


128 REM SUBROUTINE A0UTPUT 
138 BOoyY OF SUB 128 





149 RETURN 
RETURN 
TO EDITOR < 
7 LIST ae : ; 
18° «REM EXAMPLE OF REPEAT FOREVER STRUC TUR 
29 REM : i Figure 2: Pre-Processor Flow Chart 
30 REPEAT FOREVER 
4a FIRST STS FEMENT ? L181 
sa eneen nee seenese 19 RE* EXGMPLE OF CASE STRUCTURE® YOU CAN MaVE aS MANY CONDITIONS 
68 LAST STATEMENT 29 REM AS YOU @ANTe THERE mUST BE &T LEAST ONES 
7a =O END (REMEMQER THAT ENO CONCLUDES EXCH 353) pew 
4g CASE 
7? Basic 58 3 X28 
a ATEMENT 1 
END OF PRE-PROCESSING ody i ns ae 
8¢ STATEMENT WN 
2 L1ST : 98 3 Xa>8 
10 REM EXAMPLE OF REPEAT FOREVER STRUCTURE 1e¢ STATEMENT 1A 
26 REM 160 77 7 FO 
3@ REM REPEAT FOREVER TATEMENT P 
49 FIRST STATEMENT ba H hel : 
sa YUL TERETE) 140 STATEHENT 2 
6a LAST STATEMENT 15¢ STATEMENT® LAST 
78 GOTO 34 168 ENO 
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streamlining the C2-4P 





Here are three modifications you can make to your OSI dese LCase 
C2-4P to raise its speed, increase the cassette ee cca 
throughput, and add reverse video to the display. Merges 
a PP ph a ce 


tam concerned by the paucity of articles A frequency counter is a big help, if not moved from Pin 8 to Pins 9-10-11 of the 
on OS! computers in MICRO and hope _— essential. Since the tone frequencies iC at D4. | installed a switch near the 
that this will reverse the trend. { feel that should remain at 1200 and 2400 Hz, an keyboard with short, direct small wires, 
the Challenger 2-4P running speed and —s extra_ divider is needed. The unused but find that | could have left the wiring 
ease of modification more than offset its half of the 7474 already in the interface —at “reversed” with no loss. 
shortcomings. | will describe three mod:- works nicely, or you can install a 74163 

ficiations | have made, mainly, raising in the convenient prototyping vacant * Conclusions 

the CPU clock rate, raising the cassetta Space, and get several baud rates for 

data rate, and reversing the video printers and the like. Rate selection can Doubling the CPU clock rate and hence 


presentation. ba conveniently brought to a switch — the speed of the C2-4P is quite easy to 
mounted to the left of the keyboard. do. The main risk is that some 2114 

Ralsing the CPU Clock Rate Figure 1 shows the circuit using the type RAM chips may be too siow. The 

1474, data rate in the cassette interface can 

My computer is happily working with a = || have found “reversed” video to be be doubled to 600 baud, but only with 
clock frequency a little under 2 MHz much easter to viow for extended some effort and decrease in reliabitity; 
(1.9648 actual, 1.96608 nominal) in place = penods. Also, the black “reversed” 1200 baud does not work. Reversing the 


of half that, which is the way it was de- Characters Nave less apparent intensity video to display black characters on 
livered. The CPU ciock is taken from the vartation, tnat is, they look evener, The white is relatively simple and the re- 
video timing chain, which uses a crystal faversed vided connection is indicated versed video format is preferred by 


oscillator near 12 MHz, a divide by threa in the schematics, but there is no pro- everyone. Cassette speed selection and 
and then a series of binary dividers te = vis1om Made tn the printed wiring, so that normai-reverse video are conveniently 
form 15,360 and 60 Hz sync pulses. It if is Mecessary to cut a printed con- brought to switches installed near the 


was only necessary to move the CPU = ductor. The junction of R 11 and R 23 is keyboard. 
clock takeoff one stage higher in the 
timing chain, To do this, move the 
jumper wire coming from bus pin #18 off 
IC #E4 pin #13, and onto pin #14. if you 
intend to make this change, use a smail, 
low power, preferably grounded solder. 
ing iron, as recommended foravlC work, FROM 
Another word of caution: make a tang. U13-555 
thorough shakedown run of sevara! PIN 3 
operational programs ‘ook:ng — for : 
dropped bits from memory. ! did thts 

since 1 have two RAM chips marked 45y 
“550” (presumably not fast encugh to 
qualify as 450 nsec.), but there was ats 
lutely no hint of dropped bile instead, 









7476 U1 
PIN 1&6 


TO 6850 


| have very snappy video display vpets #06 Ra 
tion, slightly fast keyboard feprat, ed. tt 

best of all, running times cui in hat A 

machine language LIFE program wir RATE 

dates a full screen of 1792 celis 14 tres ae 


asecond! 
Doubling the Bit Rate 


i successfully doubled the bit rate of my 
cassette interface from 30 Ase : 
after speeding up my CPU I fee? s 


7474 CIRCUIT 


tried 1200 baud; while it soemes ty hee 

at erm’ 
properly, the load progam “ee” sae 
choke up on very long 154 {0 i : a r mae 
ter) lines sometimes and mist a a Y 23 
and next line. Th. 555 aoe ; - 
quency is doubled trom eh a eee a 
by substitutiong a 0.01 cic Gah sies 
the 0.022 and then adjusti"g = © 
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A Real-Time Clock for OSI Disk Systems 





Did you know that your OSI disk-based system has most 
of the hardware you need for a realtime clock already 
built in? Here is information on how to use it. 





For most personal and business 
applications, the need for keeping track 
of time Is either not very great or can be 
handied by special software routines for 
particular applications. Where micro- 
computers are involved in process con- 
trol operations, however, such as In the 
real-time contro! of faboratory ex- 
periments, precise timekeeping is a 
must. Here the initiation and sequencing 
of most computer-controlled events 
must be heid in tight lock-step with a 
real time clock. 


Owners of Ohio Scientific Challenger 
It and ft} disk-based systems may not be 
aware that provision for a real-time clack 
already exists on their 470 disk con- 
troller board. The bottom middle section 





of this board contains the PC folis to 
mount three 74390 decade counter [C’s. 
These divide tha on-board 1 MHz crystai 
clock to provide pulses ranging from 1 to 
100,000 per second, selectable at the 
user's option. 


Timing pulses may be fed into the NMI 
or IRQ lines of the OS! bus (pins 2 or 3} 
where the 6502 will see them as interrupt 
signals. The software to handle an 
interrupt-driven, time keeping routine 
must have been loaded into memory 
prior to turning the clock on, or it may be 
permanently located in PROM at a con- 
venient memory address. 


One example of how the hardware 
may be implemented is shown in Figure 
1. A 0.1 Hz clock pulse from the third 





PIA-PORT B 
BIT “p 
lO fl l2 6 I4 
+5 
Figure? 
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74390 is fed into beth inputs of a two- 
input nand gate (7400) after passing 
through a switch located on the front 
panel. The 7400 may be conveniently 
located in the prototyping area just 
below the three 74390’s on the 470 
board. 


The second input to the two nand 
gates is taken from bit 0" of a 6821 PIA 
located on the 500 or 510 CPU board. The 
outputs of the two 7400 gates are fed to 
the NMI! bus line and a front pane! LED, 
respectively. The brightly flashing LED 
serves as a reminder that the clock is 
running, following turning the switch 
“on” and setting bit 0" high. 


The actual interrupt handling and 
clock routines have been written in 
machine language, as shown, where 
they have been assembled to Start at 
$6900 (26880). Of course, relocation of 
these routines, as well as the clock 
counters, is entirely optional. Be sure, 
however, that they are jocated above the 
workspace occupied by BASIC or other 
applications programs. 


A BASIC demonstration program in- 
corporating the clock is aiso shown. 
tines 50-70 set up the PIA on the CPU 
board (63232) so that ports A and B are 
configured as inputs and outputs, 
respectively. Since OSI’s PROM monitor 
vectors to $0130 on receipt of an NM! in- 
terrupt, lines 90-100 POKE a jump to the 
start of the interrupt handling routine. 


Next, in lines 120-140, the machine 
language object code is read as data 
and POKEd into high memory. The 
decima! equivalents of the object code 
are represented as DATA in lines 
9010-9110. Lines 200-220 now set the 
clock counter locations to '0"” and we 
are ready to turn the clock switch “ON”. 


Once this is accomplished, the clock 
is under program and/or keyboard con- 
trol via POKEs to the PIA PORT BE, bit 
"0." Applications programs inserted at 
line 300 may use the clock by PEEKing at 
the appropriate ciock counter tocations. 


TEAS RET: 
bias PC IS TN EE TE EE RL a I ee Pe RS ET YET 


ed 


6946 
6947 
6949 
694C 
6946 
694F 
6951 
6954 
6955 
6956 


6928 
693B 
693C 
693E 
6940 
6543 


eo Te ee : weer a 


OE 


7B 
01 
7B 


10 
36 


TA 


01 
TA 


60 
25 
TA 
79 


o1 
73 


60 
14 
79 
78 


01 
78 


2u 
03 
78 


69 


69 
69 


69 
69 


69 


69 
69 


69 


69 


69 


69 


69 


si ee re an 


HOURS # $6978 
MIN € $6979 
SECS $697h 
FSEC § $6978 
ORG $6900 
START PHA 
TXA 
PHA 
TYA 
PHA 
JSR CLOCK 
PLA 
TAY 
PLA 
TAX 
PLA 
RTI 
CLOCK SEI 
SED 
CLe 
LDA FSEC 
ADCIM $01 
STA FSEC 
SEC 
SBCIM $0010 
BNE FAD 
STA FSEC 
LDA SECS 
cLe 
ADCIM $01 
STA SECS 
SEC 
SBCIM $0060 
BNE EKD 
STA SECS 
LDA MIN 
CLC 
ADCIM $01 
STA MIK 
SEC 
SBCIM $0060 
BNE EKD 
STA MIN 
LDA HOURS 
CLC 
ADCIM $01 
STA HOURS 
SEC 
SBCIM $24 
BHE ERD 
STA HOURS 
END CLD 
Cli 
RTS 


eres 
cuneate ra = IN 


ee oe Oe 


‘8 
ri 
Mw 
ty 
Bt | 
66 
ye 
a6 
#6 
$06 
410 
$20 
436 
ide 
136 
sae 
176 
180 
ité 
268 
z1¢ 
226 
234 
246 
238 
246 
274 
226 
rat) 
20¢ 
336 
aoa 
166 
ort 


PRINTIPRINTSREAL-TINE CLOCK FOR DISK-BASED OSI SYSTENS* 
PRINTIPRIMTOROBERT TF. KIMIZ, ROCHESTER, MEW TORK” 
PRINTEPRIMT RUNS CNDER OS] OPERATING STSTEM 08-453,¥.).6° 
REA coe SEL UP PIASPORT A=INPUT, PORT BeDUTPUT eversesesos 
Beg3IZIVRCA FLA ADIRESS CF 500 GA SIG CPU BOARD 

PONE Tel, OcPOXE Fe3, CrP ONE X86 

PORE He2, 2SScPOKE WL, a rPOXE K+}, AuPOKE X#2,0 

RUK e200 SCT UP CLOCK ROUTINE Seetecccesscsasovessearecases 
OCR wmL VECTORS TO 01391304) 

ECA GEFOO(TAOROD START OF CLOCK ROUTINE 

POKE 304, 74:P0KE JOS, O:POKE 306,105 

RLM eee READ IM RAC CORE AG DATA Cosvecessasessossaecces 
FOk CLK=24905 TO 209k4 

ALAS AACIPOKE CLU,MACCHEXT CLK 

REA ove CLOCK COUNTER LOCATIENS 9002000999046800609009966 
ROM COF7OII7 OCS AHOURS 

PIR GCAFIPCI700 be MIMUTES 

REM DHPPRL27002 SECONDS 

RIM CAPZOLI7OCT DO TERTHS 

REAR ene POKE RESET INTO COUNTER LOCATIONS sessesseoseses 
POR Ci#27600 TO 27003 

POKE Ci OsWENT Ch 

Ria ooo TURM ENE CLOCK SVITCH 10 “OR saesessesesorssoess 
PREMTIPRIMT fue THE CLOCK SWITCH 16 “ON*...° 

PRIMI IREN PRESS °C’, RETURN’ "SIWPUT AB 

TE at<>*6°? THER 255 

REM ooo PORE START INTO CLOCK GATE @oecensessocsisonters 
Pore 192, 

PRINT SPRIMTCCLOCK LED SHOULD HOU DE BLINKING" 

PER OCORSEROOEOEEELESHOSEHDFODESECSOESEDENDINGOFOODFOSOS 
BER USER'S PROGRAM CaN BE FRSERTED NEKE 

REM TO USE CLOCK, PEEK AT COUNTER LOCATIONS 

REM CHATS KEH HE TEKSTO TSE LES SO ST ERESESESODSESOCE OSE LS 
f KEM coo nAC CODE BATA FOR CLOCK ROUTINE seceeccessecsze 


$O1G BATA 72,130,72,152,72,32,14, 185 

$826 BATA 108,068, 166,170, 104,454,120 

FO3O BalA 26,973,623, 705,105,9,041,123 

FR4G SATA 163,54,233, 106, 208,54,141,123, 105 

POSE BATA 173,122,105,24,105,0,141, 422 

9960 FAIA 165,56, 253,60, 208,37,141,122 

$070 BAYH 105,173,121, 903, 24,163,8,941 

9O00 CATA 121,165,36,233, 66,768,260, 141 

VOFO BATA 121,905,173,120,105,24,505,1 

PHOS PATA 145,120,105,56,233,24,208,3 

VITO BATA 147,120,165, 256, %6 

PSIG ROK ese TURN “OFFS THE CLOCK esesecsovestosenessesesese 
EIS FOKE et ,6 
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How Do You Connect Peripherals 
to Your Superboard I! 





The OS! Superboard has a wealth of VO ports, but often 
the effective use of them is 
reader’. Here is some concise information on the con- 


“1 eft as an exercise for the 


figuration and use of the 1/O ports. 





Since | wrote “A Close Look at the 
Superboard I!", MICRO 11:15, | have 
received several calls and letters asking 
for more information concerning inter- 
facing the Superboard {{ to various 
peripherals — printers, memory boards 
and so on. Because ot the continuing 
lack of information available from OSI, 
the manufacturer of the Superboard and 
the Challenger 1P, I have decided that it 
would be good to give some basic and 
rather general pointers on the use of the 
Superboard ports. 


Since there are many different 
peripherals (understatement of the cen- 
tury) and since each one has its own 
requirements, | cannot be very specific 
about your particular device. Instead, | 
hope to describe the signals available 
on the Superboard in some detail, so 
that you wil! at least know something 
about its interfacing possibilities. 


The J2 Port 


There are four ports on the Super- 
board. Three of them are 12-pin Molex 
connectors and one of them is a 40-pin 
DIP socket. They are numbered J1 
through J4. | shail begin with J2, since 
you are already using that one to inter- 
face your video monitor and your 
cassette. You will find a listing of the pin 
outs for J2 in Figure 1. Pins 7 through 10 
are used for the cassette. Pins 11 and 12 
are used for the video output. 


| assume that you understand the 
basic use of these pins; and so, | will on- 
ly mention that the signals generated for 
the cassette come from an on-board in- 
terface consisting of a Motorola 6850 
ACIA and a couple of flip flops (U64). The 
audio input goes through an RCA 3130 
which triggers a monostable one-shot 
and sets or resets a flip flop. This signal 
is then fed to the 6850. 


The signals at the 6850 are designated 
as RxData and TxData. The 6850 also 
has two contro! signals which are not 


eee 
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used by the cassette interface but might 
be useful to your peripheral. They are 
designated as RTS and CTS on the 
schematics. 


Finally, there are two separate clocks 
which drive the 6850: TxCLK and RxCLK. 
These clocks set the baud rate at which 
the 6850 operates. For precise in forma- 
tion on the 6850, | suggest that you geta 
copy of the manufacturer's spec sheet 
on this ACIA. Your dealer should have it. 
{ mention all of this simply because 
these six signals are present as TTL 
signals on J2, pins 1 through 6. If your 
peripheral requires TTL level serial data, 
then you will connect it to these pins. 


But there is more to it than just con- 
necting your peripheral’s cable to the 
right pins on J2. My Superboard If came 
with several parts missing. You will need 
to install a 7417 at U68 and a 741514 at 
U67. You will also have to install the 220 
and 390 ohm resistors at R38 through 
R4g. 


Next, notice that the RxData and CTS 
signals coming in on pins 1 and 3 
respectively are called RxData3 and 
CTS3 after they come from U67. They are 
then routed to jumper locations W10 {the 
upper W10 to the right of Q2 in the 
schematic sheet 6) and W11. The reason 
for this is that you don’t want input com- 
ing from two of three different sources 
going to the 6850. 


| recommend that you install a DP3T 
(double pole three throw) switch so that 
you can switch the RxData line going to 
the 6850 between RxDatat, which is the 
cassette input; RxData3, which is the 
TTL leve! input from J2; and the RS-232 
input which will be described shortly. 
The other pole of this switch can be 
used to switch CTS appropriately. To in- 
stall this switch you only have to cut the 
trace connecting the AxData tine to Rx- 
Datat at W10. 


With this switch installed, you can 
switch lines between three sources of in- 
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put: the cassette, your peripheral on TTL 
level lines at J2, and some other 
peripheral that uses RS-232 on J3. 


One more change may be needed at 
jumper location WS, also on sheet six of 
the schematic. Here, the TxCLK is wired 
to the RxCLK. To separate them, you 
merely have to cut the diagonal trace 
connecting them and install another 
switch to switch the RxCLK line on the 
6850 between the TxCLK line and the Rx- 
CLK input. | recommend, however, that 
you not make this modification unless 
you need separate clocks for your 
peripheral. If your peripheral is pretty 
stable and close to 300 baud, you can 
probably get by as is. But if you have a 
peripheral that has a clock rate different 
from 300 baud, you will need to make 
this modification. 


You may now ask what the RTS and 
CTS signals are used for. If your 
peripheral is a printer, it may send outa 
busy signal whenever it is not ready to 
receive another character. This signal 
should be active high. It should be con- 
nected to the CTS on the 6850 — thatis, 
it should be connected to J2 pin 3. You 
will have to switch W11 properly, since 
the CTS goes through this junction. You 
may also have a TTL line which controls’ 
the power on/off on your peripheral. 
Maybe you would like to control the 
cassette motor. You can do this with the 
RTS signal. It is a signal provided by the 
6850 under software control; that is, 
your software, since OSI doesn’t sup- 
port this function. 


Because it is fed through a 7417 buffer 
which is capable of sinking 30 
milliamps, you can use it to drive a small 
reed relay. | purchased just such a relay, 
which operates on 5 volts at about 20 
mitliamps, and have used it to turn my 
cassette on and off. See Figure 2 fora 
schematic used to connect a relay to the 
RTS signal. 


Now all! the connections are made, but 
how do you instruct the computer to 
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transmit and receive these signals? 
Remember that the cassette is aiso con. 
nected to the 6850; and so, as far as soft- 
ware is concerned, the peripherai wilt 
work just like the cassette. Whatever 
you write to your Cassette wil! go to the 
TxData line and to your peripneral. You 
read your peripheral just as you woutd 
read from the cassette (after you switch 
W10 over). 


Let us suppose that you have a printer 
connected to the TxData line and that it 
sends a busy signal back over the CTS 
fine when it is working. Whenever you 
give the command to “SAVE" in BASIC, 
this will activate the printer just as it 
does the cassette, so that any 
characters output by BASIC will be sent 
to both printer and cassetta. if either of 
them is turned on, it wilt print or record 
the data sent. And how can one tel! 
whether the printer is busy or not? You 
can't without writing some of your own 
software. 


You see, Microsoft BASIC doas not 
= actually do any HO; it merely jumps out 
to the I/O routine provided by Of! in the 
monitor. There are four routines that 
BASIC jumps to for /O: one which inputs 
a character, one which ouiputs a 
character, one which is executed 
whenever the LOAD command 1s given, 
and one which is executed whenever the 
SAVE command is given. BAS!IC jumps 
to the following addresses which have 
instructions as shown: 


Input FFEB JMPI $0238 
Output FFEE JMPI SOTA 
Load FFF4 JMPI SO2IE 
Save FFF7 JMPi $0729 


The monitor stores the addresses of 
the input, output, load. and “are 
routines at the iocations $9718, $0 7A, 
$021E, and $0220 respectively every tite 
the BREAK key is pressed. This tates 
BASIC transfer control to these toutes 
when it needs W/O. 
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The output routine, located at $FF69, 
jumps to the CAT simulator routine at 
$OF2D which outputs a charactor to the 
screan and than checks the save flag at 
$0205. Hf ihe save fiag is 0 it returns. Uf 
the save flag is non-zero, it outputs the 
character to the 6850. If this character 
was @ Cafiage return (that 1s, $0D) then 
if also sends cut 10 nulis ($00). 


The load routine, located at SFFI6, 
seta the save fiag to 1. When you give 
the SAVE command, BASIC jumps to the 
save fouling which sets the save flag. 
Thsn, whenever you output any 
charactor, BASIC jumps to the output 
routine whictt sends the character not 
only to the CRT, bul also to the 6850. 
This will sond st to tha cassette and aiso 
to your printer. if you don't turn on your 
causetie, the character will only be 
phinted by the punter. 


- But t atelf haven't described haw you 
know when the printer is busy. You can 
PEEK at the GAO control status register 
lo seo whether the CTS bit is low. Then 
you wil know the the printer is ready. 
Bul this is not a very good way to do it, 
since you would have to do such PEEK- 
ing pron to every pret command! The 
better way is to write a short output 
roulrne which checks this bit for itself. 


The 6856 occupins two address loca- 
tinns $FOO0 end $FOO1. The first of 
thease is tha contel register of the 6850 
eras, by wating and roading this address, 
one can $end and receive control 
signals $F OG1 is the data register and, 
ty witng of tracing ins address, one 
tankendardiecene data from the 6850. 
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The short output routine shown here 
ilustrates how one might check for a 
printer busy signal. The listing includes 
two small programs that turn the RTS 
signal off and on. The Jatter might be 
employed to write a SAVE routine that 
could be called from BASIC and would 
turn the cassette or printer on 
automatically. Remember that you will 
have to put the addresses of your I/O 
routines in locations $0218, $021A, 
$021£ and $0220 after each time you 
depress the BREAK key. 


The J3 Port 


The main purpose for J3 is to interface 
peripherals which require RS-232 
signals. As can be seen in Figure 1, pins 
2 and 3 are the data out and in pins. Pin7 
provides a negative voltage for the 
RS-232 interface. To use this, however, 
you will have to open the ground at 
Jumper W410, the lower one under Q1. 
Even more than this, you will have to in- 
stall all the hardware for the RS-232 
signal level generation; that is, Q1 and 
Q2 and their associated resistors and 
diode. Once again you must set up W10 
and W1i with the proper switch, as 
described previously, so that you can 
switch between the cassette and your 
peripheral. | believe that the description 
for J2 was sufficient to get you going on 
the software you might need to use this 
port. 


The J4 Port 


tn the OS{ manual on the Superboard, 
J4 is described as a “joystick” and 
“noise” port. The noise is made by turn- 
ing on and off four of the keyboard 
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Figure 1: Superboard I/O Ports 


J1 
Pin Signal 
ae ed 
2 NMI! 
3 DD 
4 BDO 
5 BD1 
6 BD2 
7 BD3 
8 GND 
9 GND 
10 GND 
11 unused 
: 12 A2 
13 Al 
14 AQ 
15 A3 
16 A4 
; 17 AS 
18 A6 
19 A7 
20 A8 
21 AQ 
22 A10 
23 Alt 
24 A12 
25 A113 
26 At14 
27 A15 
28 GND 
29 GND 
30 GND 
_ 31 02 
32 RIW 
33 BD7 
34 BD6 
35 BD5 
36 BD4 
37 GND 
38 GND 
39 GND 
40 GND 
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J2 


Signal 
RxData 
RxCLkK 
crs 
TxData 
TxCLK 
RTS 

Mic .05 volt 
GND 
AUX 0.5 volt 
Audio in 
GND 
Video out 


J3 


Signal 
GND 
RS232 out 
RS232 in 
RxData 
RxDatal 
RxData2 
-V in for RS232 interface 
unused 
CTS 
CTS2 
unused 
unused 


J4 


Signal 
R1 

R7 

C1 

C2 
C3 

4 

C5 
C6 
C7 

R6 
GND 
Noise 
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latches. These are coupled through 
resistors and a capacitor to pin 12 of J4. 
The main problem is that the resistors 
are not installed, nor are their values 
given. | have not experimented enough 
with these to determine what values 
would work best to give four bit analog 
output. 


The main reason | have not done this 
experimentation is that 1 have not 
thought the “noise” would be very 
useful because it is coupled to the 
keyboard. For this reason, whenever the 
keyboard input routine is called, a tone 
is generated by a loop in that routine 
which sets and resets the keyboard lat- 
ches. 


If you wanted to produce some music, 
you could do so by choosing proper 
values for these resistors and then 
writing a small program to turn on and 
off these latches by writing to address 
$DFO0. i would advise instailing a switch 
between the output of pin 12 and your 
amplifier since you will want to turn off 
this noise whenever you are not 
generating some music or gaming 
sound effects. The keyboard routine’s 
continuous tone is rather annoying after 
a while! 


If you want a beeper to signal various 
conditions audibly, then ! recommend 
that you use the RTS output at J2. It 
comes from a heavy buffer which could 
be connected through a 100 ohm 
resistor and a small speaker to the 5 volt 
line. When this RTS signal is turned on 
and off at the proper rate, it would make 
a nice beeper without the need for the 
amplifier that the output at J4 pin 12 re- 
quires. Also, there would be no annoying 
continuous tone. 


The other pins on J4 are quite useful 
because they are connected directly to 
the keyboard matrix. The graphics 
manual has a short description of how 
to deactivate the CTRL-C routine and 
how to check for a key depressed. If you 
were to connect lines 1 through 11 on J4 
to some switches, you could use the pro- 
cedure to determine whether the swit- 
ches were closed. In this way, one might 
simulate a joystick. 


By using four switches you could in- 
dicate eight directions. North, east, 
south and west could be indicated when 
exactly one switch was closed — the 
switch in that particular direction on 
your joystick. Northeast, southeast, 
southwest and northwest could be in- 
dicated by two adjacent switches being 
closed at the same time. By this means 
you could move a point on the screen in 
any of eight directions. 


Another very good use for these lines 
would be to add a numeric keypad in 
paraliel with the keyboard. To do so, you 
need only wire ine switches on the 
keypad so they are in parailel with the 
corresponding keys on the keyboard as 
shown in the schematic, sheet 12. See 
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Figure 4 for a diagram of these switches. 
By doing this and writing a short BASIC 
program, you could imitate a very power- 
ful calculator. 


The Jt Port 


This port is what OSt uses for expan- 
sion. It has all the data and address 
jines in addition to several of the control 
lines that the 6502 produces. | sug- 
gested in my previous article that this 
socket could be connected to a KIM type 
connector to make a KIM expansion 
port. That is more or less true but, as you 
will see from checking the signals 
available on J1 and the required signals 
on the KIM expansion port, there are a 
few missing. The most important ones 
are there, and it just may be that the 
ones you need to operate your 
peripheral memory board or whatever 
are present. 


Pin 3, the DD line, needs some ex- 
planation. This line is an incoming 
signal that is used to contro! the data 
buffers U6 and U7. This line must be 
driven by the R/W signal, so_| suggest 
that you connect both the signal 
(that you get from U21 pin 6) and the line 
from J1 pin 3 to the R/W pin on the Kil 
expansion connector. 


PRINT 
CRI 
SFATUS 
DATA 
SAVE LG 


WAIT 


WALT] 


REALLY 
RUN 


CASCHE 


CASTS 
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i think a 40 wire ribbon cable with a 
DIP plug on the end of it would be the 
best thing to make the connection from 
Ji to the KIM connector. Of course, 
some of the wires won't be used; and so, 
you might be able to pull some of the 
unused wires out and solder them to the 
points on the Superboard where you are 
going to get the missing signals. 


The missing signals can be found at 
the following places: RW on U2t pin 6 
as mentioned above, 02 on U21 pin 4, 

on the high (non-ground) side of the 
BREAK key, VCC where the red 5 volt 
supply tine enters the board, VSS any 
place along the edge of the board where 
the ground plane is, SYNC on U8 pin 7, 
and 01 on US pin 3. If you need the ADY 
signal, you have to make a change on 
the Superboard. Open the shori trace 
coming from U8 pin 2, which is the ROY 
line on the 6502, and pul a 4.7K pull up 
resistor in the opening you have made. 
This will enable any peripheral that 
needs to use the RDY line to pull it low. 
Alter Installing the resistor, you can wire 
the RDY {Ine to U8 pin 2. 


There are also RO, K6, SST OUT, 
RAMIRIW, and PLL TEST lines on the 
KIM expansion connector, but you won't 
be able to get these from the Super- 
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board. | doubt that any of the peripherals 
you might be interested in will require 
them since they are rather peculiar to 
the KIM. 


This method of directly wiring a KIM 
socket to the appropriate signals on the 
Superboard will give you a workable KiM 
expansion connector even though it may 
look a little messy since you have to run 
wires to several points on the Super- 
board. If you plan to use several boards 
simultaneously, you wii] want to make 


-your connections to a KIM compatible 


motherboard. 


You may ask if all this wiring is worth 
the effort, since OSI sells a610 expander 
board which plugs directly into the J1 
socket and which will then connect to 
the OSI 48-pin bus. | think that it is 
because | like to work with hardware and 
software together. OSt doesn’t offer 
everything that | need, and their price is 
somewhat high for what | want. You may 
wish to investigate just what OSI offers 
in the way of peripherals before you 
make any of these changes and addi- 
tions to your Superboard. In any case, | 
hope that you now understand a little 
more about how your Superboard works 
and how you might go about connecting 
some peripherals to it. 


ORG (Wherever you want it) 

£ QU ¢8F 2D 

EQU F000 

£QU $F O01 

ECU $0205 

JSR CRI OUTPUT TO CRT 

PHA SAVE CHARACTER 

LDA SAVFLG CHECK SAVE FLAG 

BE RIN IF O NO 6850 OUTPUT 

LDA STATUS WAIT FOR 

LSRA CHARACTER 

LSRA TO BE TRANSMITTED 

BCL WALT 

LA STATUS WAIT FOR 

ANDIK = $96 PRINTER 

BE WAIT] READY 

PLA WHEN READY 

CTA TATA CUIPUT DATA 

RIS . 

tram $5} 

CUN STATUS 

EES. 

tEAM | 91) 

“TA STATUS 

a Figure 3 
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presented — including a Double Disassembler. This pro- 
gram gives a lot of information about each byte of 
memory, not just the opcode. Several other Superboard 


features are discussed. 





! selected the Superboard {I for use 
as an intelligent terminal in a PDP-I! 
system. It enables the designer of a 
distributed processing system to take a 
number of liberties due to the speed and 
power of each distributed branch. 
Before this multi-processor system can 
come into full operation, a number of 
things need to be discovered about the 
internal workings of the Superboard. 
This article describes some of the tools, 
techniques and discoveries found on the 
road to the goal. | hope you find them as 
useful as | have. 


In order to really gain an under- 
standing of the inner workings, a 
disassembier or something simitar will 
be required, as the monitor leaves a Jot 
to be desired. The listing in figure 1 uses 
about 3.6K of memory, i.e. you need at 
least 5K to run it. It is a combination 
mnemonic fister and intelligent 
disassembler. The leftmost column will 
always print amnemonic, thusly treating 
each and every instruction as though it 
were only one byte in length. The 
rightmost column attempts to decipher 
whether the instruction is one, two, or 
three bytes in length and differentiate its 
print to distinguish op-codes from their 
operands. Columns two and three are 
the address and op-code in decimal form 
to help when using PEEK and POKE at 
later times. The fourth column prints any 
valid ASCil characters that it finds to 
help with the recognition of text or 
buried cues when the disassermbler 
“gets confused” and has to ré-sync 
itself or might need some heip. 


The reason | mention manual re- 
sync is that one soon grows weary of 
seeing “resync???77?" time and time 
again when the program is running 
through a giant table of either string 
data or numeric data. Of course it will Te- 
sync...but why waste the paper? On to 
columns five and six; these have the ad- 
dress and op-code in hexidecimal format 
to help when looking in books (which are 
nearly all in hex now). The rightmost and 
seventh column is what it is al! about. 


The seventh column is the in- 
teliigent column. It attempts to convey 
to you its interpretation of what it’s 
reading out of memory. It does not rese- 
quence the order of bytes for printing 
when locking at a muiti-byte instruction 
as many disassemblers do. I didn’t deem 
it necessary at the time. To illustrate my 
point, look at illustration 2. The JSR at 
hex 0222 has AB directly following it and 
CD two bytes later. A. fittle human 
translation saves much software. H!- 
lustration 2 is a nonsense program, 
there only to show you what it looks like 
when it runs and how it runs. Hex lines 
0228 to 022C show what happens when 
the program runs into something it 
doesn’t recognize; the string prompt 
“CARP?". The response is always the 
same: it prints the first line it didn’t 
recognize followed by the row of ques- 
tion marks and then four more lines 
without Uying to assign an “intelligent” 
op-code or do anything else except get 
ready to re-sync (or try) on the fifth byte 
after the initial unlock. If this byte also 
lacks a valid mnemonic the process is 
repeated until it finally drops out and 
finds one. 

After you start the program, it will 
ask you for the addresses of the lowest 
byte and the highest byte that you want 
it to try to disassemble. This must be in- 

put in decimal form as the program has 
no provisions for a hexidecimal to 
decimal converter. The next thing that 
we'll do is examine the program to help 
you to see how it works and where the 
various routines are. Lines 100 through 
730 comprise the data table. Each data 
statement holds the information to 
decode four different instructions of 
6502 op-codes and also “fillers” to tell 
the program when a non-existant in-- 
struction is found. The format is 
“MNEMONIC’, NUMBER OF BYTES for 
that instruction. If it is a non-existant in- 
struction then the data statement for it 
will read: “?"',9. Since as far as t know 
there aren't any nine byte 6502 instruc- 
tions, it sticks out quite well amidst a 
forest of ones, twos, and threes. 
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Now it's time for the fun part. Line 
1020 inputs the address range to be 
worked on. Lines 1040 and 1050 print the 
header. Line 1070 sets the major loop 
which cycles through the op-codes one 
byte at a time. 1100 to 1120 cause the 
data table to be scanned until the cor- 
rect op-code is found. The second state- 
ment in line 1120 tells the program the 
total number of lines to print without 
mnemonics when it gets out of sync. 
1130 to 1150 print the leftmost four col- 
umns. 1220 to 1260 control the 
program's intelligence and teil it when 
and when not to try and print a 
mnemonic in the rightmost column. 


A GOSUB 1500 with 0 to 15 in BH will 
return the hexadecimal equivalent in H$. 
GOSUB 1400 with 0 to 255 in D returns 
the hex equivalent in ($. GOSUB 1390 
with 0 to 65535 in R returns 0000 to FFFF 
(hex) in J$. These last three routines are 
“quick and dirty” but may be of some 
use to you at a later time. The data table 
is easily moditied to allow for future ex- 
pansion. Standard Rockwell/Sybex 
mnemonics are used except for the use 
of hyphens as opposed to commas {the 
data statements wouldn't Jike these too 
wall 1 fear). 


Numeric To Video Conversion 


This short BASIC routine will enable 
you to print numeric variables on your 
video monitor while your software is 
busy generating real-time graphics. See 
figure (3). The opeeration is not overly 
complex. First the program clears the 
screen positions which are going to 
have new characters placed there. This 
is done by POKEing bianks there with a 
FOR-NEXT loop. Fhe number that you 
are going to display is first converted to 
a string with the STR$ function. The 
length of the resultant string is found 
with the LEN function. MID$ is used with 
a FOR-NEXT loop to dissect the string 
into individual characters which are con- 
verted to the correct values to be POK’d 
into the screen memory with the ASC 
function. 
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Ineut lowthish addresses of block to be listeditBecinal? 5467565 


MNE A-TEC O-DEC ASCII A-HEX G-HEX MNECif valid) 
JSR 546 32 0222 20 JSR 
? $47 171 0223 AB ‘ER AB KEK 
cup 548 205 0224 co RkK CD BKK 
JSR 549 32 0225 20 JSR 
? 550 18 0226 12 *ae 12 £KR 
? 551 52 4 0227 34 KEK 34 KKK 
? —_ 552 67 c 0228 43 ? 
REsSync PPP PPP PI PEI PET PPVOP TET ILPLIPEPEPEPEEP TELE PI PPPPPPPPLEPPPRVRP 
EOR-I-x 553 65 a 0229 41 eee 41 KEK 
? 554 82 R 022A 52 Kk 52 KKK 
BUC . 555 80 P 022k 50 eee 50 eeEK 
? 556 63 ? 022C aF ke SF bKE 
BRK 557 rs) 022D 00 BRK 
PHA 558 72 H 022E 48 PHA 
TXA 559 138 022F 8A TXA 
CMP-IHM 560 201 0230 cy CHP-IMM 
? 561 67 c 0231 43 *KK 43 KKK 
BNE 562 208 0232 no BNE 
SBC~0-P-X 563 245 0233 FS axxX FS £aR 
Nor 564 234 0234 EA NoP 
NOP 565 234 0235 EA NOP 

Figure 2 


50000 FORD=BTOB+11 ¥CSTEPCIPOKED: 32fNEXTDLAS<STRS (Ad SEELEN(AS) 
50010 FORF=BTOB+(E-1) SCSTEPC$ POKEF FASC (MIDO (AS? (F~B40)/Ce1)) INEXTF 


S0020 RETURN 
OK 
Figure 


3 


100 FORD=532407054271IPOKED?) 321NEXTD 


110 8#33776 
120 A@RNIN(2)*107(RND(4)¥10) 
130 C<};G0S5UB50000 


140 FORC*34TO3OSTEP-1!GOSUD50000tNEXTC 


150 Ce-1!GOSUB5C000 


160 FORC=-34T0~-30: GOSUBSOO0O3NEXTC 


170 BO0TO120 
OK 


Figuze 4 


The disptay is a fixed format which 
uses the 12 screen positions: the man- 
tissa sign, 6 digits of mantissa with a 
decimal point, exponent sign and two 
digits of exponent. Or + 0.0COO00E + 00. 


Beware of blank characters when ex- 
amining strings for video conversion! 12 
screen positions ARE required! It is im- 
portant to remember that when the 
number is pushed into the display the 
starting video address will always be the 
mantissa sign position. This can be any 
screen address but beware of overlapp- 
ing when you try and print off the edge of 
the screen. The number to be displayed 
need not always be displayed in a left to 


right fashion. By changing the video in- 
crementing factor many print angles 
become possible. Here is a listing in a 
clock fashion with the mantissa sign at 
the starting video address. 


Kekk kkk 
o'clock 31* 


kakeenakeekee 
*1 o'clock-31 *« 7 

*2 o'clock—30 *® 8 o'clock 30% 
*3 o'clock 1 * 9 o'’clock—1 * 
*4 o'clock 34 #10 o'’clock-34% 
*5 o'clock 33 «11 o’clock~33% 
*6 o'clock 32 #12 o’clock—32« 
KKK KKK KEKKKKEKK SE 


we A rt IG a at rh aA TARA ie SY fA LP Naa Ronn sums sages © pe ng ee 


To run thi$ routine place the 
number which you wish merged to the 
display in register A. Load the starting 
video address in register B. Put the video 
incrementing factor in registerC. Gosuy 
50000. Once A, B, and C are loaded they 
remain intact after program execution. 


A picture is worth a thousand words 
(2K bytes?). Load and run the program in 
figure (4) to see both how ali the dif. 
ferent display angles look and what hap- 
pens when a scientific notation display 
is Caused to overlap the edge of the 
display when run at a steep angle. Make 
sure you load figure (3) or it will try ang 
call a non-existant subroutine. 


“On-Screen Expose’ 


Did you know that there is a 
graphics/contro! character that you can 
print on the screen by just pressing two 
keys? There is! Control G will create the 
character that you see when you try to 
type in a line that’s a bit too long. You 
can type it into a string just like it was a 
Jetter or symbol. As an added bonus, if 
you have a printer tied in, it will ring its 
bell...instant prompt. 


| have one more thing of interest for 
you before I return to bury myself in my 
favorite world of semiconductors and 
soitware. The location (in page zero) of 
the on screen text begins at 19 decimal 
and continues up to 90 decimal which 
always contains a zero when examined. 
Therefore 71 bytes can be defined, the 
72nd is a zero. To see what | mean do the 
following in command mode: 


i) Press Return (to make sure 
everything is terminated). 

2) Hold down the space bar untit the 
screen starts to show the control G 
characters mentioned earlier. 

3)Press Return (this clears the on 
screen text internally). 

4) Type 
perfectly:FORS = 19T090:?CHRS$ 
(PEEK(S));:NEXTS. 

5) Press Return. 


Now do you see what | mean? Hap- 
py computing, that’s all for now. Would 
anyone want to hear about a Superboard 
speedup? Almost 2MHZ or double speed 
and it doesn’t alter the /O baud rates, 
however, none of the OSI RAM chips 
could cut the mustard. If you want an ar- 
ticle on this, write! Bye. 
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Case of the Missing Tape Counter 





The lack of a tape counter on the PET cassette tape unit 
has led to hours of frustration. The technique presented 
here provides a fairly automatic method of focating your 


files on the PET cassetta. 


The PET has an exceltent file manage 
ment system. Unfortunately, since the 
PET does not have a tape counter, ac- 
cess to any file or program other than 
the first requires either an uncanny 
“touch” to find a file by using FAST 
FORWARD or an infinite amount of pe 
tience weiting for the file managemect 
system to find the program at 17% 
inches/second. The obvious salution 13 
1o use a large number of C-10 of C5 
cassettes. Of course, this solution 1 
costly and requires one to Store a lace 
number of tapes. 


Fortunately, the PET does have e@ ree! 
time clock and the ability to start a 
stop the cassette motor via BASIC PORE 
commands. These two capabilit:es, Com 
bined with the use of constant length 
files, allow ready access to any prog/ am 
or file on auser created taps. 


The use of constant length fies wnptata 
that every file or program on ery 
cassette has the sarne space A Bt ed 
to it regardless of how long te a tot 
program is. This means that sore of the 
tape on the cassette will nol acted: be 
used, but the method is much Curae eo 
use than using C-5/C-10 casse‘ies hy 


each progranvdata file. 


After experimenting, we fours fs" ® 


maximum FAST FORWARD _ a i its 
seconds is adequate to stc'e - a4 “ : 

te to be stores rt ‘ 
program capabie t ee 


8K memory. Of course. thet ; : 
beginning of the tape. As 78 te 2B 
vances, more tape 1s actua ys eis e" 
Still, A C-90 cassette acee Mot 
imately 13 large programs of" 8 
stored and accessed via tha" 8 7 
cess time to the last tf pore 
cassette is approximately tee fate 


i rect + @* 
The program shown ig Cette Be 
planatory and easy to enie 


rd 


pee 
ell 


Useze of this mathod requires that the. 
program be seved as the first program on 
crery cassette To use the program, 
pfees GE TAUN After the program {8 
loated ant cun, OO NOT press STOP/ 
CECT on the cassette drive. The pro- 
Cran wll ingquite which drive you aré us- 
ing Cr O- boiler Ag 
tnTEMCASLLTTE 1OR2 


After you enter (he number only, the pro- 
Gia wil present @ Cateiog of all tiles or 
srcgrams on inat tape. Dummy names 


will be Hated for unused tile tocations 
take 

Pe TARE Y 

$k RAM 2 


Atthough & G9 cassette will hotd 13 
prog ess, we have chosen to use only 
ter 


Nort, the grogrem will ask if you wish to 
teed iif tac ae geogram oy displaying: 
ip ho Ct CHE ATE PROGRAMI/FILE - 
BORE 


The grog eo will thon ask which file you 
je oft eat or weté by dinplaying: 
wee FOREGO RAMIFILE -LE.1,2,... 


oye, bese entered a number greater 
ther Troe roa tine will display: 

eo F by O and HIT RETURN 

Weed BEADE 


‘ie c+ ogee wt ship the previous step 
tp wth Soe Progranvtie number 4 
toe #2 tb tat oe atresdy in the cor- 
4h Eterg if yes entee Ato read @ 
coo em The peograrmn will advance 
4 caw fo we COMreCt position, stop, 
rae +. & 
7" OF EOECTANOLOADAS 


ay 


t wt: 


Aro 8 fe if oyees simply load the 


ate eS gees arm im the usual manner, 
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Simitarly, if you entered C to create a 
new filte/program, the tape will advance 
to the selected portion of the tape, stop, 
and display: 

HIT STOP/EJECT 

TAPE IS NOW READY TO SAVE NEW 

PROGRAMIFILE 


Now, you can save any program. If you 
wish to use descriptive names for your 
programs or files, just reload this pro- 
gram, change the names in the appro- 
priate data statement, and resave the 
program as the first file on the cassette. 


Since the length of a file aliocation is 
determined by time in seconds (the 
number 10 in line 300 of the program), 
the user may change this riumber to 
accomodate any length file. Also, since 
each program occupies a unique well- 
defined location and the length allocated 
is for a maximum length file, there is no 
problem replacing one file/program with 
another. 


We use this method on all our tapes. We 
also use the program as a subroutine in 
programs requiring access to other files, 
i.e., a recipe program. The use of the PET 
cassette drives becomes simple, quick, 
and enjoyable, and presents a solution 
to the case of the missing tape counter 
mystery. 


IE NE I A i AN i Minato yl: TR aI ECan stm As EE ae tre Sta ie den AE Ee ag ee me etiam 


10 REM THIS PROGRAM ALLOWS THE PET USER TO 

20 REM ACCURATELY POSITION HIS CASSETTE FILES 
30 REM BY USING THE FAST FORWARD FUNCTION OF 
40 REM THE TAPE DRIVE. 


50 REM 
60 REM 

70 PRINT " *** PROGRAM / FILE LOCATOR *#«" 

80 PRINT 

90 INPUT "ENTER CASSETTE 1 OR 2"3CA 

100 READ x 

110 DIM C$(X) 

120 FOR I = 1 TO x 

130 REAOC$(1) 

140 PRINTC$(I) 

150 NEXT I. 

160 PRINT: INPUT "READ OR CREATE PROGRAM / FILE -- R OR C"sR$ 
170 INPUT "WHICH PROGRAM / FILE ~-I.E. 1,2,..."sWP 

180 IF WP = 1 THEN 240 

190 REM STATEMENTS 200 AND 210 INITIALIZE THE MOTOR OFF 
200 IF CA = 1 THEN POKE 59411, 61 


210 
= 220 
230 
240 
250 
260 
270 
280 
290 
300 
510 
320 
330 
340 
350 
360 
270 
380 
390 
406 
410 
420 
200 
510 
520 
530 
540 
550 
560 
270 
280 
390 
600 


IF CA = 2 THEN POKE 59456, 223 

PRINT "PRESS F.FWD AND HIT RETURN WHEN READY" 

REM STATEMENT 240 WAITS FOR RETURN TO BE DEPRESSED 
GET Al$:IF Al$ = "" THEN 249 

REM STATEMENTS 260 AND 270 TURN ON SELECTED MOTOR 
IF CA = ] THEN POKE 59411,53 

IF CA = 2 THEN POKE 59456, 207 

T = TI 

REM STATEMENT 300 WAITS FOR TAPE TO ADVANCE TO SELECTED FILE 
IF TI<T+(10*60*(WP-1)) THEN 300 

REM STATEMENTS 320 AND 330 TURN THE MOTOR OFF 

IF CA = 1 THEN POKE 59411,61 

IF CA = 2 THEN POKE 59456, 223 

PRINT 

IF R$ = "R" THEN PRINT "HIT STOP/EJECT AND LOAD AS USUAL" 
PRINT: IF R$ = "R* THEN 500 

If R$ = "C* THEN PRINT “HIT STOP/EJECT" 

PRINT "TAPE IS NOW READY TO SAVE NEW PROGRAM/F ILE" 
REM CHANGE NUMBER IN STATEMENT 500 TO CHANGE THE MAX 
REM NUMBER OF PROGRAMS PER CASSETTE 

REM CHANGE NAMES IN STATEMENTS 510 THRU 600 

REM TO YOUR PROGRAM NAMES 

DATA 10 

DATA "PROGRAM 1" 

DATA "PROGRAM 2" 

DATA "PROGRAM 3" 

DATA "PROGRAM 4" 

DATA "PROGRAM 5" 

DATA “PROGRAM 6" 

DATA "PROGRAM 7" 

DATA “PROGRAM 8" 

DATA "PROGRAM 9" 

DATA “PROGRAM 10" 


1000 END 


ES 
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Relocating PET BASIC 


Programs 


NL ET LE EE 
Some impertant details are presented about the 
organization of PET BASIC and a technique is provided 
to permit BASIC programs to be shifted to different 


memory locations. 





Have you ever wanted to time share 
with your PET? How about ROM routines 
in BASIC? You can do both of these and 
more by writing ‘shifted’’ BASIC pro- 
grams and redirecting PET’s monitor. 
First, !’m going to very briefly describe 
where PET stores BASIC programs and 
where the important pointers are 
located. Then, tli tell you how to ENTER 
and RUN BASiCprograms antwhere in 
PET’s lower 32K of memory. Finatly, V'H 
give you a practical! example. 


initiatization 


When PET’s monitor initiatizes 
memory, either with power on or by ex- 
ecuting SYS(64824), a bunch of things 
happen. PET writes decimal 36 (24 HEX 
or screen symbol $) into each memory 
location. After each location is written 
the same location is read. PET thus ac- 
tively determines its contigous memory 
size by finding the first non-36 location. 
Since the lower page (decimat 0 to 1032) 
is used as a scratch pad, PET starts its 
memory check at decimal 1024. Memory 
size is stored in 134, 135, as two bytes. 
The first byte is !ow and the second byte 
is high, standard 6502 format. After 
determining memory size, PET initializes 
its BASIC program memory to ready it 
for a BASIC program. Table 1 gives these 
values. Just why these location hold 
what they do requires a detailed descrip- 
tion of how PET BASIC works. Such a 
description is too long for this article. 


But, this peculiar pattern Is necessary. 


Scratch Pad Usege 


The scratch pad memory also has 
some other important values. As I men- 
tioned above, memory size was stored in 
134, 135. Now six additional values are 
inserted. These values are called 
pointers. They point to locations in the 
program memory where the monitor 
goes during BASIC execution and/or pro- 
gram entry. These pointers are BASIC 
start address, simple variables star ad- 
dress, array variables start address, 
available space start address, top of str- 
ings and bottom of strings. Let’s see just 
where these pointers are stored and 
what their initial values are. The BASIC 
pointer, which is stored in memory loca- 
tion 122, 123, is initialized to 1025. This 
pointer tells the monitor where to start 
storing and reading BASIC program 
statemenis. The simple variables 
pointer, which is stored in memory loca- 
tion 124, 125, is initialized to 1028. This 
pointer tells the moniter where the sim- 
ple variables start. The array variables 
pointer, which is stored in memory !uca- 
tions 126, 127, is also initiatized to 1026. 
This pointer is always equal to the sim- 
ple variables oointer until an array 
variable is DIMensioned. It performs a 
similiar function to that of the simple 
variables pointer. The available space 
pointer, stored in memory locations 128, 
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129, is initialized to 1028. Top and bot- 
tom of string variable pointers are stored 
in memory locations 132, 133, and 130, 
131 respectively. Strings are stored top 
down while both simple and array 
variables are stored bottom up. Figure 1 
shows how PET’s monitor arranges the 
BASIC program and variables in 
memory. To store a BASIC program in a 
different place in memory we have to 
change the values of these pointers. 
Let's assume for a moment that these 
seven pointers have been changes. This 
will force the monitor to try to store a 
program, entered from the keyboard, ina 
location defined by pointer values. 
However, there is one more thing which 
must be done. The area which has been 
defined by the seven pointers must be 
initialized as shown in table 1, Once that 
has been done everything is ready. The 
program is entered in the normal 
fashion. When completed, the pregram 
can be executed without any further ad- 
justments. It can be RUN or reLOADed 
as long as P&T isn't turned off. Pro- 
grams entered this way aren’t in the nor- 
mal place for a BASIC program. 


Saving Shifted Programs 


Saving a shifted program isn’t as 
straightfoward as you might wish. For 
those lucky enough to have Version 2 
ROMs it’s easy. Ali you have to do is call 
the machine language monitor and 
SAVE the program like you would SAVE 
a machine language program. The rest 
of us have to resort to tricking the PET. 





PAB ee ct mea Mates on 


When SAVE is used from the keyboard 
the routine initializes one of the cassette 
buffer pointers to 1024. POKEing the 
Starting address of the shifted program 
doesn’t work {and finding this out 
delayed this article several months-I was 
SAVING all of memory from 1024 up)! 
Fortunately there is a way around this 
problem. IN ‘‘Cornmodore PET Users 
Club Newsletter", Vol. 1, issue 4&5 there 
is a program which demonstrates just 
what we need to trick the PET. Table 2 
lists the required lines. By using SYS to 
access the SAVE routine we can bypass 
the initialization. The listed code can be 
used either as direct commands or as 
part of a program. 


How it Works 


Line 1 sets the first address for 
cassette #1. Lines 2 and 3 set the high(B) 
and low (A) bytes of the start address. 
Lines 4 and 5 set, in a similiar fashion, 
set the end address to the vaiue of the 
simple variables start address. This ad- 
dress Is the same as the end of the 
BASIC program. Line 6 calls the SAVE 
routine. There is one disadvantage-this 
simple approach Jeaves the program 
name undefined. "$$$" or“ “is assign- 
ed as the file name. Shifted programs 
can be LOADed, and VERIFIED just like 
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Figure 1: Pet Mamary Miap and Pointer Locations 


regular BASIC programs. However, if the 
monitors has reinitialized memory, any at- 
tempt to LIST or RUN a shifted program 
will fail. If a shifted program has been 
SAVEd, PET turned off and back on, and 
the shifted program is reLOADed it stilt 
cannot be LISTed or RUN. 


How come? } did just say it would 
RUN when entered from the keyboard. 
Wel, it's those seven pointers. When 
PET SAVEs a program, any program, it 


Memory Location 


Base 10 Hex 
1024 400 
1025 401 
1026 402 
1027 403 
1028 404 
1029 405 
1030 406 
1031 407 
4032 408 
1033 409 
1034 40A 
1035 408 
1036 40C 
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Stores an image of the program as it ap- 
pears in RAM. However, not all of the 
pointer values are stored on the tape. 
Since PET uses a compiled (not really 
complled tike FORTRAN but actually 
compacted) listing, it must aiso store 
the forward chain addresses along with 
the compacted code. Each BASIC state- 
ment has a forward chain address. This 
forward chain address points to the for- 
ward chain address of the next BASIC 
Statement. Therefore, the program must 
be stored in exactly the same memory 
Jocation from which it originally came. 
Forward cahin addressing is absolute 
rather than relative. If PET has reinitializ- 
ed its pointers, the BASIC pointer is 
pointing to the normal BASIC location. 
Upon loading a BASIC program tape 
under keyboard control the SV, AV, AS 
registers are taaded with data from the 
tape. Unfortunately, the monitor 
assumes BASIC programs will always 
Start at 1025. Therefore when PET is ask- 
ed to RUN or LIST, the monitor wil! start 
looking at 1025. It won't find a program. 
To use a shifted program after it has 
been LOADed back into the PET the 
BASIC pointer must be changed. 


There are several ways to do this. 
One can simply POKE the correct values 
into the pointer memory locations. This 
works, but if you make a mistake the 
PET will “go away” when you try to RUN 
the program. With version | ROMs the 
only thing you can do is turn the PET off. 
There may be a good side to this ap- 
proach; it can be used as a neat way to 
protect a program. Without some clever 
PEEKing at RAM and without understan- 
ding how to set the pointers based upon 
that PEEKing, the program won't run. 
Another approach is to have a machine 
Janguags program do the required in- 
itialization. With this approach several 
shifted programs can be RUN at once. 
To cail a specific program you can use 
the USER (X) or SYS commands. The 
machine language program does the 
rest. I'll give an example of a simple 
routine like this in the last section. 


Value 

Base 10 Hex 
0 0 
0 0 
0 0 
36 24 
73 49 
0 0 
139 8B 
0 0 
0 0 
0 0 
0 0 
0 0 
36 24 


Table 1: Pet BASIC Initialization Values 
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149 SYSB3152: 


REM ROM SAUE ROUT IRE 


READY. 


Figure 2 


Shifted programming has several 
advantages but there are also some pit- 
falls. I'm sure that | haven't found them 
all. sil tell you about those that I've 
fallen into, and Murphy will find some 
new ones for you. As a first example, 
let's take the case where shifted pro- 
grams are loaded in under keyboard con- 
trol. When this is done, all memory 
above 1024 is reinitialized. Any shifted 
programs already in memory are 36'd 
out. The only way to prevent this is to ad- 
just the top of memory pointer so that it 
points below the existing shifted pro- 
grams. This must be done before atemp- 
ting to LOAD from the keyboard. Shifted 
(or normal) programs LOADed under pro- 
gram control do not 36 out memory. But 
the first part of memory may be set up to 
receive BASIC. In addition, pointers 
aren't changed. 


Another pitfall is the tendency for 
PET to “go away”. Any error in pointer 
setup will usually cause this problem. St 
is the rule rather than the exception. Ver- 
sion 2 ROMs are rumored to allow a 
warm reset. Unfortunately, they aren't 
available for the old 8K PETs yet. 


A third pitfall is really just the result 
of careless programming. The available 
space within any program should be 
reduced as much as possible. Program 
space includes variable and string 
space. Although my PET has 16K of 
memory (half in BETS), I've found it easy 
to over-run memory or to overlap pro- 
grams. If multiple BASIC programs are 
to coexist, a memory map and some 
planning are necessary. i don;t have a 
dynamic adjustment routine. Perhaps 
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someone familiar with the PET montior 
could adapt its program adjustment 
software. It works on normai programs 
and it sure is fast. PET uses the routine 
whenever new lines are added or old 
lines deleted. If variable pointers are the 
same for all programs and if assignment 
statements are used to initialize all pro- 
grams, then several programs might be 
able to share the variable working area. | 
haven't tried a lot of this, but it does 
work in simple cases. This technique will 
aliow FORTRAN like passed variable 
subroutines, support BLOCK type 
statements and conserve a tot of 
memory. 


So much for the pitfalls, here’s 
some of the good news. The shifted pro- 
gram technique can be used for BASIC 
programs to coexist with Commoadore’s 
tape machine language monitor. Sure, 
you'll be able to buy a new set of ROMs 
that have the monitor—someday. But 
you can have nearly the same thing now. 
You may need an additional routine to 
transfer the bottom of page one (0A-22 
hex) memory back and forth between 
machine language monitor and BASIC 
usage. Both BASIC and the machine 
language monitor want this part of 
memory for scratch pad. 


What else can be done with shifted 
BASIC programs? ROM BASIC pro- 
grams, truly modular development, 
library routines, and lots more. Now that 
BASIC programs can be placed wherever 
you want them, your imagination is the 
only limit. 





MOVE IT: Relocating PET Source Programs 
and Object Code 


ee 
A useful program need not perform the entire task. If ten 


percent of the total coding effort achieves ninety-nine 
percent of the desired result, perhaps manual interven- 


MICRO readers probably know that 
when a PET program is saved on 
cassette tape it normally loads back Into 
the same area of memory. Several times 
recently | wished that was not the case 
because | found the need to relocate in- 
formation already saved. 


For example, | originally assigned 
source code for an assembler to what 
later turned out to be an inconvenient 
area of memory. Being naturally lazy, | 
had no desire to retype the long source 
program Into the newly assigned 
memory region. Let the PET move it, ! 
said—~and it did. This article tells how. 





tion will be more efficient than additional programming. 
ee el 


information one might wish to 
relocate falls into three categories. ! 
have already mentioned ASCII source 
code which would require no modifica- 
tions after being moved. The next 
category also requires no extra work. 
BASIC programs which you might want 
to append, relocate, or relocate, do in- 
deed have address links which need to 
be modified. Fortunately for us the PET 
He routines which do this automatical- 
y. 


Finally, machine language programs 
are not always located where they do the 
most good and it could become 
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necessary to move them to more useful 
areas. In this case many changes pro- 
bably will be necessary. Instructions 
which use absolute addressing modes 
and indexed pointers are the principle 
culprits. Finding the necessary changes 
can be difficult without a source listing 
of the original program. 


The first method t considered to move 
programs (the first step in relocation) 
was a modified program from the First 
Book of KIM (MOVEIT, p. 127). | rejected 
this approach for a number of reasons, 
but mainly because ! was convinced the 
PET had the routines aiready built in. An 


article by Jim Butterfield (bless his 
bones) in the PET User's Notes {Vo}. 2, 
#1, p. 7} gave me the concept | needed to 
have the PET operating system help ré- 
jocate code already saved on tape. 


This method has the decided advant- 
age of not requiring the old memory 
locations to be present. A program 
originally tocated at hex 6000 and saved 
on tape in another PET can be loaded In- 
to an 8K machine at hex 400 if desired. 


After placing the machine language 
program in a new area of memory, it is 
necessary to make various address 
changes. These modifications can be 
made with a machine language program. 
See The First Book of KIM, p. 130, for an 
example. Since | feel more comfortable 
working In BASIC, | developed a simple 
BASIC program to do most of the ad- 
dress modifications. 


The program is not perfect, so any re- 
maining changes or corrections need to 
be done with a monitor program. | 
deliberately used an easy-to-write 
(slightly flawed) program in combination 
with manual! correction, instead of spen- 
ding lots of tlme writing an elegant pro- 
gram which did everything. | felt this ap- 
proach gave the best results because 
the total time to accomplish a task is 
what really counts. 


In summary, the relocating method 
discussed here can be broken down into 
three essential steps: 


41. Loading the information on the 
cassette tape into the new area of 
memory. 


106 00 OD O4 OA 00 YE 28 31 
1C08 30 33 00 00 00 AY 
1010 27 8D ag (ic] 8D 1C 
1018 02 AQ fiE] 85 7D A 6B 85 
1€20 7G AQ 43 85 21 DO 12 A9 
ic28 42 85 21 DB 4A 68 85 IE 
1030 68 85 1D 68 85 IC 68 85 
1C38 1B 68 69 FF 85 19 68 69 
1cho FF 85 iA BA 86 1F 58 20 
1C48 F2 16 AG 21 AD 2A 20 22 
1050 JE AQ 52 85 OD DO 2B AY 
1058 00 85 CA 85 OD 85 OA 20 
1C60 F2 iC AQ 2E 20 D2 FF AS 
1068 20 EO 02 FO 04 EO 03 DO 
1C70 06 20 3A 1E, 20 37 iE 20 
1078 90 1E C9 2£ FO F9 C9 20 
1C80 FO FS A2 07 OD O02 [1D] DO 
1088 OF AS 20 85 OF 86 20 BD 
1¢90 OA 48 BD 12 48 60 
1092 CA 10 E9 AQ 3F 20 D2 FF 
ICAO 4C 57 1C 38 AS 13 ES 11 
1CA8 85 OB AS 14 E5 12 AB 05 
1CBO OB 60 A5 11 85 19 AS 12 
1CB8 85 14 60 85 21 AO 00 20 
1CCO 3A 1E BI 11 20 13 1E 20 
1cc8 F7 1¢ C6 21 DO Ft 60 20 
1CDO 5E JE 90 Ob A2 00 81 11 
1cb8 C1 11 FO 05 68 68 HC 9B 
1CEO 1¢ 20 F7 1¢ C6 21 60 AY 
1CE8 1B 85 11 AQ OO 85 12 AY 
ICFO 05 60 AQ OD 4C D2 FF £6 
1CF8 11 DO 06 E6 12 DO 02 E6 
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2. Running a BASIC program which 
makes most of the address 
changes. 


3. Manually correcting errors, using a 
monitor program, and making other 
necessary changes missed by the 
simple minded BASIC program. 


As an example, ! have picked what ! 
hope is a useful exercise: relocating 
Commodore’s machine tanguage moni- 
tor. It is important to have available 
monitors which are tocated in different 
areas of memory. When we want to 
modify low areas of memory, it Is 
necessary to use a monitor in high 
memory, and vice versa. 


Furthermore, the top of memory Is 
consistently changing as PET owners 
add extra memory. It is a decided disad- 
vantage to be stuck with only a low 
monitor, as supplied by Commodore. 
The latest PET’s have a monitor in ROM, 


{EAS AQ 23 85 F9 20 5E IE 29 
1EBOQ 20 CF FF C9 2C FO 55 C9 
1ECO OD FO OB EO 10 FO FI 95 
1EC8 23 E6 EE £8 DO EA AD5 20 
4£D0' C906 DO CB A2 OO BE OB 
1ED8 02 AS F1 DO 03 4C 9B 1c 
1EEO C9 03 BO F9 20 67 F6 20 
4EE8 3B F8 20 FF F3 A5 EE FO 
1EFO 08 20 95 F4 DO 08 AC 9B 
1EF8 1C 20 AE F5 FO FB 20 4D 


1D00 OA 60 3A 3B 52 4D 47 58 


1D08 AC 53 
1D10 [fE 1B] C1 Bi 2C SE D7 FD 
Location 
Original Modified Original 
0447 1047 20F204 
0484 i084 DD0205 
0414 1014 A904 
0511 1D11 06 
O73E 1F3E C906 
NOTES 
(1) 
program. 
(2) 
with the monitor. 
(3) 
must be changed. 
(4) 
(5) 


1D 18 
1D20 
1D28 
1D30 
1D38 
1D4O0 
1D48 
1D50 
1D58 
1D60 
1D68 
1D70 
1D78 
1D80 
1D88 
tD90 
1D98 
1DA0 
1DA8 
1DB0 
1DB8 
1DCO 
1pc8 
1DDO 
1DD8 
1DEO 
1DE8 
1DFO 
1DF8 


1F00 
1F08 
1F 10 
1F 18 
1F20 
1F28 
1F30 
1F38 
1F 40 
1F4A8 
1F50 
1F58 
1F60 
1F68 


Object Code 


Modified 


20F21C 
DD021D 
A910 

JE 
C912 


gE 
oe 
59 
06 
37 
b2 
F2 


1E 


E7 
90 
SF 
90 
4A 
DO 
2A 


A2 


37 lz 


BB 


9B ic 


90 
DO 
90 


iE 


20 
20 
20 
48 
ic 


F6 
13 
ES 
141 
CF 
FO 
1E 
A5 
FO 


20 20 


31 
20 
20 


Source Code 
and Notes 


JSR CRLF (1) 
CMP CMDS, X (2) 
LDA # BRKE (3) 
BYT 228 (4) 
CMP #6 (5) 


Jump table value (address of command) has to be relocated. 


hex 20. Changed back manually with the monitor. 
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Absolute address identified and changed by BASIC MODIFY 
Address not changed by BASIC prograrn. Changed manually 


High order byte of address of the break vector stored at $21C 


Code which was erroneously changed because of preceeding 





but the general ideas presented here will 
still be useful to owners of those 
machines in other applications. 


The article by Jim Buttertiaid showed 
a procedure which loaded the tape into 
the screen memory area. | wanted to 
move the monitor program {o the top of 
memory, 8K in my PET. This procedure is 
shown In Figure 1. Step 2 ioads the tape 
header. | used the monitor program, in 
Jow memory, to modify the tape address 
from the header in steps 4 and 5. Moving 
the program on tape to the new arna of 
memory occurs in step 7. After protec- 
ting the program, step 8, it is necossary 
to make address modifications belore 
the program can be run successfully. 


Most of the address modifications 
can be made with the BASIC program. 
The program looks for JSR (hex 20/dec 
32) and JMP (hex 4C/dec 76) values in the 
new memory locations. The majority of 
changes necessary were in those two in- 
structions alone. When the program 
finds dec 32 or dec 76 followed by a loca- 
tion in pages 4 through 7 (where the 
original program was located), it modi- 
fies the page number to the relocated 
values, 28 through 31 respectively. This 
program is quite a bit slower than a 
machine lanquage version, but it certaln- 
ly runs faster than | could type tn the 
changes. 


Since the BASIC program has flaws, it 
is important to check for errors. The 
relocated monitor program contained 
two unnecessary changes which ware 
easy to fird and change back. | manually 
corrected these errors using 4 1ow Moni: 
tor and looked for other locations which 
needed to be changed. All instructions 
besides JSR and JMP that have an ab- 
solute addressing mode referring to 
relocated addres3es must be mouihed, 
Much harder to find are tabie vaiues and 
page zero references. A source hating OF 
disassembier output listing '5 assentbal, 


| had the advantage of having the 
source code for the monitor PET Usar 
Manual, p. 100) and changes werp eave 
to identify. However, have successiuily 
relocated code with just a¢ Sas keh be 
ed listing and 0° Comins OF 
mnemonic variable names. A faw ee 
amples of what to look {Gr are SHOWN IN 


Figure 2. 


The-trickiest part o! retocating in. 
volves indirect instructions We natu: 
tion itself does not have ie be hs ia 
but the numbers storey ay ae 0 
pointers may have '© be. ERAS : ‘ 
the code, there M3y ee ie 
like LDA $05/ STA $25. * e 


. a 1 
have to be changed 10 LOA atG: 


STA 


toa we 


Typical Changes While Relocating Monitor Program 
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5 HEM MODIFY PROGRAM (FLAWED) 
6 KEM 1K LOCATIONS SEARCHED 


7 REM HARVEY B. HERMAN 


8 N=O 
40 FOR I=0 TO 1023 


15 REM DEC 7168 IS HEX 1C00 


20 L=7 168+] 


30 A=PEEK(L): B=PEEK(L+2) 
32 & 76 ARE HEX 20 
DEC/HEX 4,5,6 & 7 SEARCHED 


35 REM DEC 
36 REM PGS. 


4O IF As32 AND B=4 THEN GOSUB 
50 IF A232 AND B=5 THEN GOSUB 
60 IF A=32 AND B=6 THEN GOSUB 
70 IF As32 AND B=7 THEN GOSUB 
80 IF A=76 AND B=4 THEN GOSUB 


90 IF A=76 AND B=5 THEN GOSUB 


*Oo0 IF 


Az76 AND B=6 THEN GOSUB 


(SSR) & 4C (JMP) 


1000 
4000 
1000 
1000 
1000 
1000 
3000 


110 IF As76 AND B=7 THEN GOSUB 1000 


120 NEXT 1 


125 PRINT "LOCATIONS MODIFIED =";N 


130 STOP 


999 REM MODIFIED TO DEC 24/HEX 18 HIGHER 


1006 POKE L+2,B+24 
1005 N=N+1 
1010 RETURN 


tE00 SA 4C 8B C2 A2 01 DO 02 
1E08 A2 0, BS 10 48 BS 11 20 
1E10 13 16 68 48 BA HA HA YA 
1E18 20 26 JE AA 68 29 OF 20 
1520 2B iE 48 8A 20 D2 FF 68 
1£28 4C D2 FF 18 69 06 69 FO 
1E30 $0 02 69 06 69 3A 60 20 
1238 3A 1E AS 20 HC D2 FF A2 
1E4O 02 B5 10 4B BS 12 95 10 
1E4B 68 95 12 CA DO F3 60 20 
1E50 SE 1E 90 02 85 12 20 5E 
1E58 YE $0 02 85 11 60 AD 00 
1E60 85 OF 20 90 IE C9 20 DO 
3£58 09 20 $0 IE C9 20 DO OE 
1E70 18 60 20 85 IB OA OA OA 
1878 OA 8&5 OF 20 90 TE 20 85 
1£8O JF O5 OF 38 60 C9 3A 08 
tEG8 29 OF 28 90 G2 69 08 60 
1E90 20 CF FF C9 OD DO F8 68 
1£98 68 4c 57 1c 
1ZA0 90 1E AQ 00 &5 EE 85 FA 


$35. The monitor program did not con- 
tsin examples of these instructions. 


. Ahoy listing of the relocated monitor 
13 Shown in Figure 3. All functions have 
bean checked and appear to be working. 
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The BASIC modify program changed 72 
locations (2 of which were in error). | 
have underlined the correct changes and 
put an asterisk beside the corrected er- 
rors. Fourteen locations needed to be 
changed manually, and these have beer 
boxed. By my count, more than 3/4 of the 
changes were made by the BASIC pro- 
gram. | was satisfied, but others may 
wish to write a more comprehensive 
utility. 


Once properly moved and relocated, 
the monitor can be run (SYS 7183) and 
saved on tape (S 01, 1000, 1F6B). The 
break vector is set automaticaily on 
entering the program. After the first run, 
tne program can be restarted with SYS 
1024 which is easier to remember. That 
trick takes advantage of the zero (BRK) 
first byte in every BASIC program. 


Moving and relocating programs can 
be fun as well as useful. In some 
respects it's like a game or puzzie. | 
believe this is the aspect that appeals to 
me. | would enjoy hearing from other 
PETters about their success or failures 
in relocating programs (SASE for reply). 
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A Machine Language Screen Print Program 
for the Old (or New) PET 





bol eee 


A program is presented which gives the user control over 


Printing from the old PET screen. The commented Kenneth Finn 
assembly language program provides information on Little Old Farm 


oe . ; Bedford, NY 
printing and can be used as a Starting point for other aa “ene 


print utilities. 


After waiting almost a year, | finaily SYS82 
received the dot matrix, friction feed mSo20 
Printer for the Commodore PET. The 
printer piugs right into the IEEE port and 


will print all the PET graphics as welt as 033A Initialize 
upper and lower case letters. avs 
and open file 
When I received the printer, 1 also got 
es : 
y Increment line 
counter 


some very scanty documentation. What | 
learned from it is that you can print in 
your programs by using PRINT# 
Statements after OPEN-ing the file. | also 
learned that you could set up the printer 
as the primary device by using the follow- 
This is fine to have the printer print print; NO est 


ing code: 


OPEN 4,4,0 : CMD 4 










everything that would be on the screen CR. 22 lines 
but still not very good if you just want to O Get Character Ner screep 
print some things. 7 
offset if letter YES 
What | needed was a short program ~PRINT- 


that would print what was on the screen 
when | wanted it printed. This dictated a 
machine language program stored in the 
second cassette buffer that | could cali 
with a SYS826 when | wanted anything 
printed. After some trepidation and a lot 
of help from other pragrams, the follow- 
ing is the result. It cari reside in the se- 
cond cassette buffer and will print the top 
22 lines of the screen at 40 characters 
per line when you want it. 


Increment Index 
Incremented Char, count 





Print C.R, 
close file 
RETURN 


nnn 








@33R AS ee LDR #$09 
. Oa3c 8b 56 Gz TA $ G256 Printer Secondary Address 
@33F 80 FE 83 STA ¢€ @3FE Screen Line Counter 
@S42 Sit FF os STA € @3FF Character counter 
@345 55 DA STA $ DA Index Lo-Byte 
@34F AS Gl LIM #30) 
O343 sn Sz os STA $ 8262 GPIB File Length 
Q@34C AS gaa LDA 8 #$e4 
@34E Sf 42 G2 STA $$ Gaz Logical File # 
@351 $0 at ge STR F B24c Device Number 
W354 AS o4 Lik +#$84 
M356 26 Ca FF Ise $ Ferg Open File (i.e. Open 4,4,0) 
B359 AS Se LUA #256 
G35F 35 DB STA $ DE Index Hi-Byte 
O35 AL FF es (tr 8 86$§ BSFF 
@s6q 69 pe CaP #22 40 Characters per line, test 
Gse2z DN i4 BNE ¢ @37s (GO) 
Missed EF FE G3 img $ @SFE Increment Line Counter 
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aaer AD FE | UT 6¥§ BFE 
WS6R CF 1s Che ggid 22 lines/screen test 
ase FE Ze Beg o¢ BO9) (END) 
A@36— AD Ge Lim #80 
Marae BU Fr os STA € GBF 
@2F3 A ou. Cum #$oD C.R. in ASCII 
as75 24 sb Fe Sk § F230 Print #4,C.R. 
asr7s 8 (GO)cuc 
@379 Ae ae Lis ##00 Se tentdiishesien 3 
BS37B Al LA LDR «6S. xO Get next character via indirect addr. 
Asrh Ca 1 Cp egy Test for Letter 
ygafro ole We BPL ¥ @3E3 
ert 69 40 Ann $40 Offset for Pet screen to ASCII 
Bses sa su Fe ISR ¢ F236 Print #4 
@3s86 £6 Dx int ¢ DA Increment index Lo-byte 
3S 4 AS bh ¢ exec Branch if not zero 
re ze TE nae $ DR Increment Index Hi-byte 
Bast: =e me tS INC $ asee Increment Character counter 
AEE 1 Cr _ RPL ¥ asatl Return for next character 
G291 AY OD (enapdA 480d __ oo 
HS33 s6 se Fe JsR € F2eou - 
a@s36 AS ad LR | -##04 
~ 9398 e0 CC FF joe € FFOC eae 4 
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. az AS G4 SD 42 G2 Su .: 0382/48 23 38 FZ ES DA DO G2 
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. 8S DE AD FF a3 09 25 .: @392|aD 2a 36 Fe AD 4 28 CL 
: iq GE Fe O3 AD FE Os .: @398)FF 6a EA EA ER EA EA EA 
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80 Life for the PET 


A 60 x 
Have you ever wished that your PET display was bigger, 
especially when playing the Game of LIFE? Here is a 
method of providing a moveable window that permits 
you to examine any portion of an area that is: 

‘Larger than Life’. 
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Werner Kolbe 
Hardstr. 77 
CH 5432 Neuenhof 
Switzerland 


When you have played some time 
with the 25 x 40 LIFE by Or Cawita, you 
will find that the area 15 [99 Sinan {ere 
many patterns to expand. Theretore t 
decided to write a program whieh grees 
them more space. As # stu wea teed to 
use the nice round CHRS:31) dots aS can 
symbols, | decided to show ory a aoe 
tion of the whole area on the screen | =< 
screen is practically use} asa Seat e 
window which can be shilfed ia 3 dune 
tions by the number keys 1 tod re $ 18 
used to bring it back into tne centas 


ec A RTT TET A TAS RET AOR TN TERE EO rs, 


Program Description 


The BASIC part of the program does 
ihe following. Line 0 sets the memory 
punters to prevent BASIC from destroy- 
ing the machine code and io restore the 
“end of BASIC” pointer in dec 124, 125. 
Tnen in sub. 100, a short explanation, is 
given. The cells are set on the screen in 
the input mode with AS, where AS is not 
used. Lire 4 to 10 do the shifting of the 
acteen versus the Life area. The pointer 
PA which determines the displayed sec- 
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tion is changed by the pokes into 2940, 
2941. Line 3 again raises the memory 
pointer and lifts the “end of BASIC” 
pointer over the end of the machine 
code. Thus it is possible to save the 
whole program including machine code 
by a simple SAVE. 


The machine program starts at the 
tocation hex OA80. The memory used as 
Life-area starts at 0C51 and ends at 
1F11. All necessary pointers are located 
in the BASIC input buffer from 0029 to 





NS ror ei A eae re 


ee 


ae IE daw cea y 


OO3F. They are initialized with the 
subroutine INIT from TBL2 starting at 
OB6A. The pointer P9 points {indexed by 
Y) to the place which is currently in- 
vestigated. The pointers Pi to P8 point 
to the neighboring places. PA points to 
the upper left corner of the displayed 
section and PS to the start of the screen. 
CNT is a page counter. 


Cells are represented by bit 7 of the 
memory. The ceils for the next genera- 
tion are stored in bit 6. Subroutine 
CLEAR sets everything to zero. Then in 
NE the screen is inspected and if a 51 is 
found, bit 7 is set in the associated 
memory place. Subroutine INPDEX in- 
creases the pointers PS by dec 40 and 
PA by dec 80 if one row has gone 
through (Y running). By storing hex 34 
respectively hex 3C into E811 the screen 
is switched off resp. on again to avoid 
‘snow’. After START the new genera- 
tion is computed. The number of 
neighbors is counted by inspection of 
the neighboring places and decreasing 
X if bit 7 is set. If the life condition is 
found for the next generation, bit 6 is set 
in the memory place. When one page is 
worked through, all high values of the 
pointers Pi to P9 are incremented. The 


Se ae ME ale ZI 37 nee ay TL a te er be rage 


pages are counted by CNT. With 
RESTORE, the old generation is pushed 
out by a left shift, and the new one 
comes from bit 6 into bit 7. Since there 
does not exist an indirect addressing for 
the ASL command, } had to use the ab- 
solute indexed to increment the argu- 
ment directly. Finally, TSCR throws the 
cells on the screen with 51’s if bit 7 is set 
and 20's (blanks) else. The RTS returns 
the control back to BASIC. For one 
generation the programs needs about 
1/2 second. The speed may be slowed 
down by a waiting loop tn BASIC. 


Combining BASIC and Machine Code 


If you have entered the machine 
code, type in NEW (but don’t switch off) 
and enter the BASIC code. Jf you have 
finished, find out the actual values of the 
“end of BASIC” pointer in dec 124 and 
125 by PEEK commands. If they differ 
from 216 resp.6, the pokes in tine 0 must 
be changed. Before a run, this POKE 
must contain the actual value of the 
pointer, after the last change in the 
BASIC program. 


To save everything on tape enter: 
POKE 124, 130: POKE 125, 11: CLR and 


Listing 7 


POKEL 35,10: POXEL 24, 216: FOKE1 25, 006: CLR: GOSUB1OO 
SYS27 30: CETAGs IFAS=""THENL 





then SAVE ‘LIFE 60°80". With the POKE, 
the “end of BASIC" pointer is ratsed 
beyond the end of the machine code and 
thus with the save, both program parts 
are combined. When running the pro- 
gram, line 0 restores the old values of 
the pointer. The program can be loaded 
and run like any other program. Only if 
changes are made in BASIC, line 0 must 
be updated. 


IFA$=" "TIEN INFUT AG: SYS2691:G0TOL 
IP AS=" E"THENPOKEL 35, 32: FOKEL 24,131: POKEL 25,11: END 
IFAG=" 5" THENOX=0: 0Y=6 
A=VAL( AG) :OX=OX+0X( A} s OY=O0Y+0Y¥( A) 
IFOX>20THENOX=20 
TFOX< -20THENOX=—20 
IFO Y218 THENO Y=18 
IFOY<-1STHENOY=-18 
10 P=4533+OX+0Y* 80: FHeINT( P/255) s FL=P-Fil*® 256: POKEZ940, FL: POKE2941, PH 
11 POKE515,255:GOTO1 
100 PRIUD" chededed *#* LIFE 60X80 *** cdededcdeded 
LOL FOKE2940,181:POKE2941,17 
102 FORA=O0TO9 :READOX( A) ,OY( A) : NEXT 
104 PRINT cdcdcdFUT THE CELLS WITH '@' ON THE SCREEN, 
106 FRINT’cdSTART VITH 'KET.', STOP WITH 'SFACE'. 
107 FRINT'cdEND WITH 'E'. 
108 PRIND"cdMOVE THE WINDOW VITH 1 TO 9 
caTHE 5 CENTERS IT. 
109 FRINT"edcdcdrvsFRESS ANY KEY. 
110 ceTa$: IFAG=""GOTO110 
111 FRINT' chedededcdcdcdededed": INFUTAS +: SYS2688 : RETURN 
120 DATAO, 0,25 =2,0,—-2 4-2 4-2,240,0,0,-2,0,2,2,0,2,-2,2 
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rva = Reverse 


ed = Cursor down ch = Clear-iiome 
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TOD 


INPTS 
LP4 


REST 


INIT 


OB CLEAR 


LBE& 


TBL2 





LDA (F5),Y¥ 
BPL 01 


DEX 
LDA (P6),Y 
BPL 01 


DEX 
LDA (P7),¥ 
BPL O01 


DEX 

LDA (P8),Y 
BFL O01 

DEX 

TXA 

BPL TOD 
CMP=FE 
BEQ LBN 
BMI TOD 
LDA (P9) me 4 
BPL TOD 
LDA=40 

ORA (FP9),Y 
STA (P9),¥ 
DEY 

BNE LP3 
LDX=12 


INC TBL-1,X 


DEX 
DEX 
BNE LP4 
DEC CNT 
BRL LP3 


LDA=12 
STA CNT 


LDY=17 


LDX TBL2-1,¥ 
STX TBL-1,¥ 


DEY 
BNE LB7 
RTS 


JSR INIT 
INC CNT 
LDA=00 

STA {P1),¥ 
DEY 

BNE LBO 
INC P1H 
DEC cnt 
BPL LBS 
RTS 


TBL 
0029 00 
002A OC 
002B Ol 
002C oC 
CO2D 8602 
OO2E oC 
GO2F 50 
0030) 06=— Ot 
0031 3852 
0032 oC 
0033 AO 
0034 OC 
0035 Al 
0036 
0037 Az 
0038 oc 
0039 51 
003A OC 
0O3B BS 
003c)—Ooo_ll 
003D 
OOJE 
003F 
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PLL 
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P3L 
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PAL 
P4H 
PSL 
PSH 
P6L 
P6H 
PTL 
PTH 
PSL 
P8H 
POL 
POH 
PAL 
PAH 
PSL 
PSH 
CNT 


speecn Processor for the PET 


Ce ee EE 





A speech processor unit samples audio 
waveforms and digitizes the input signal. 
Digitized speech can be stored, catalog- 
ed, processed as discrete data, and out- 
put through a D/A converter. The output 
speech quality rivals that of a CB radio. 





Within the past year a low cost speech 
processor unit has appeared on the 
market. This device designed for the 
computer hobbyist can be used in a 
variety of applications from voice aug- 
mentation to computer games to direct 
computer-to-phone modem implementa- 
tions. 


This article will briefly describe the 
device and how the unit can be inter- 
faced to a PET computer. A software 
driver program capable of storing the 
digitized sound, playing it back, saving 
the processed information on cassette 
files, and then reloading it will also be 
presented. The article will conclude with 
an iflustration of how this device might 
be used with a home cornputer system. 


The Speech Processor Unit 


The speech procesor unit used in this 
article is the DATA-BOY™ Speech Pro- 
cessor developed by Mimic Electronics 
Gompany. This processor is an extreme- 
ly low-cost audio signa! processing sys- 
tem designed for the hobbyist. The 
speech processor is essentially a 
speech “digitizer which uses a proprie- 
tary signal processing technique to con- 
vert the human voice into a single bit 
stream, and vice versa. “Digitized” 
speech is typically thought of as speech 
which has been sampled with an analog- 
to-digital form, and then reconverted to 
anatog form by a digital-to analog (D/A) 
converter. 


By using certain characteristics of the 
speech waveform, especially the fact 
that the amplitude componerts tend to 
decrease with increasing frequency, the 
resolution of the A/D and D/A converters 
required can be decreased from, say, 8 
bits down to a single bit while main- 
taining intelligibility. When this bit 
stream is sampled at a rate of 8000 
samples per second, highly intelligible 
speech can be obtained. The speech 
quality is close to that which is given by 
a CB radio. 


Speech Processor Interface 


Figure 1 describes the components 
necessary to support the speech pro- 
cessor and its interface with the PET 
Computer. To digitize and then repro- 
duce speech the speech processor unit 
requires the use of an additional 


speaker, microphone and power supply. 
The speech processor unit is designed 
on a 3 inch by 5 inch printed circuit 
board. The author's unit was built into a 
9 by 5% inch box which also contained 
the power supply. The simple power sup- 
ply design was taken directly from the 
users manual provided with the speech 
processing unit. 


In addition to the interfaces shown in 
Figure 1, the author added two addi- 
tional features to his untt. To determine 
when the squelch threshold level was ex- 
ceeded one side of a tight emitting diode 
was connected to the DATA READY fine. 
The other side of the LED was con- 
nected to the +5 volt supply through a 
300 ohm registor. When the squelch 
threshold leve! is exceeded the DATA 
READY line goes low and LED glows. 


A computer bypass switch was also 
added to the author’s unit. This switch 
allows the TO COMPUTER and FROM 
COMPUTER lines to be directly Inter- 
connected or interfaced to the com- 
puter. This feature allows the speech 
processor system to be tested indepen- 
dent of the computer. It also allows the 
user to demonstrate the difference in in- 
telligibility produced by the computers 
quanitization effects. 


The Speech Processor Unit is inter- 
connected to the PET Computer by three 
lines. Each line is accompanied by a 
ground to provide some degree of shield- 
ing. The TO COMPUTER line is con- 
nected to PAO (Pin C} on the USER Con- 
nector. This line will be sampled by the 
processor at the proper data rate to 
quanitize the input data stream. The 
digital output data stream will be return- 
ed to the speech processor unit on the 
tine marked FROM COMPUTER. This line 
is attached to PA7 {Pin L) on the USER 
Connector. A third line termed the DATA 
READY line is used to indicate if the in- 
put signal level exceeds the threshold 
established in the speech processor 
unit. The DATA READY line is connected 
to PA1 {Pin BD) on the PET USER Connec- 
tor, 


Software Description 
The software used to drive the speech 
processor device fs written in two parts: 


A User Interface Program written in 
BASIC and a palr of Speech Processor to 
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Computer Interface Programs written in 
machine language. The User Interface 
Program Is designed to allow the user to 
interact easily with the speech pro- 
cessor. This program provides four user 
options: RECORD, PLAYBACK, SAVE 
and LOAD. 


The RECORD Program calls one of the 
machine language interface programs 
which samples the state of the speech 
processor bit stream and stores the 
sampled input data into sequential loca- 
tions of buffer memory. 


The PLAYBACK process is the direct 
counterpart of the RECORD process. In 
this mode each word in the buffer 
memory is unpacked and returned to the 
speech processor to reproduce the 
speech data examined during the RE- 
CORD sequence. The PLAYBACK pro- 
cess like the RECORD process calls a 
supporting machine language prograrn. 


The SAVE routine is a data flie storage 
program which allows the user to save 
all or some portion of the recorded data 
on tape for later use. 


The LOAD routine is a data file 
retrieval program which allows digital 
date files stored on tape by the SAVE 
program to be restored into the com- 
puters memory. Both the SAVE and 
LOAD routines allow the user to design- 
ate the beginning and ending address of 
the data to be manipulated. With this 
facility data words stored in memory can 
be saved and rearranged in order to 
build a data base where the beginning of 
each utterance or sound is uniquely 
defined. 


An illustration of tha memory map 
organization used to support the speech 
processor unit is shown in Figure 2. 
From this map it can be seen that the 
machine language programs required to 
support the BASIC programs are stored 
in tape buffer #2. tn order to establish 
sufficient buffer memory to store the 
digitized speech Information, a cap was 
placed on the BASIC program. By forc- 
Ing the BASIC Interpreter into thinking it 
is operating with a 4K memory limita- 
tion, the upper 4K of memory can be us- 
ed for storing the recorded digitized 
speech. A small number of bytes in zero 
page working storage are used for pass- 


0010: REM *® SIMPLE VOICE PROCESSOR PRCGRAM ®® 
0020: REM 

0030: REM BY CHARLIE R. HUSBANDS 

oo4o: REM 

0050: PRINT" 

0060: PRINT"**#®VOICE PROCESSOR PROGRAM#*& 
0070: PRINT 

0080: POKE 135,12 

0090: DATA 469,00, 141,67,232, 133,54, 133 
0100: DATA 56, 168, 169,08, 133,55, 169,12 
0110: DATA 133,58, 169, 12, 133,57, 169, 30 
0120: DATA 133,59,78,79,232, 28,54, 198 
0130: DATA 55, 165,55,240, 11, 165,58,170 
0140: DATA 202, 138,208,252,234,76, 84,03 
0150: DATA 234, 165,54, 145,56,230, 200, 169 
0160: DATA 08, 133,55, 152,208, 220, 230,57 
0170: DATA 165,57,197,59,208,212,96,00 
0180: DATA 169,255, 141,67,232, 169,00, 133 


0190: DATA 56, 168, 169,08, 133,55, 169, 12 
0200: DATA +33,58,169,12,133,57, 169, 39 LOOP 1 
0210: DATA 133,59,177,56, 141,79, 232, 234 
0220: DATA 165,58,170,202, 138,208,252,234 
0230: DATA 198,55, 165,55,240,07, 14,79 PLACE IN LSB OF DATAWD 
0240: DATA 232,234,76, 162,03,200, 177,56 

1s 

BITCNT 
= 0? 










SQUELCH - Set up USER port as 
an input and read USER value. 








INIT! - Set up USER port as an 
{nput. DATAWD = GO. Init data 
pointer to $0C00 and end point 
to $i1E00. BITCNT = 8. DELAYC 
zs 12. 













0250: DATA 141,79,232, 169,08, 133,55, 152 
0260: DATA 208,222, 230,57,165,57, 197,59 
0270: DATA 208,214,96,234,234,234, 234,234 DELAY 
0280: DATA 169,00, 141,67,232,173,79,232 

~ 0290: DATA 36,60,208,244,76,58,03,234 
0300: Ax826 
0310: FOR I=1 TO 168 
0320: READ D3 
0330: FOKE 4,D% 
0340: AsA+1 
0350: NEXT I 
0360: PRINTUERESREHERSPSESTEE REPS ERERE HEE 
0370: PRINT" PRESS R FOR RECORD* 
0380: PRINT" PRESS P FOR PLAYBACK" 
0390: PRINT" PRESS S FOR SAVE" YES 
0400: PRINT" PRESS L FOR LOAD" 
0310: PRINTUSERERSRERNORSUETOPRED ECC CRORES RETURN 
0420: GET C$:IF C$="" COTO 420 
0430: IF C$="k" GOTO 600 
O4WO: IF C$="P" GOTO 700 
0450: IF C$="S" GOTO 600 
O460: IF C$="L" GOTO 900 


YES STRG1 


Store completed DATAWD into 
next buffer location and set 
BITCNT = 8. 






0470: GOTO 420 Figure 3: Speech processor flowchart 
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Figure 2: Speech processcr memory map 
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ing variables between the machine 
language prugrams and their BASIC 
counterparts. 


The Record Program 


The RECORD process is entered by 
pressing “R”. This action causes the 
pointing vector corresponding to the 
beginning address of the RECORD 
machine language program to be placed 
into locations 1 and 2. A value of 02 is 
also placed In decimal location 60, 
which is the squelch mask value to be 
used in the machine language routine. 
The machine language program is then 
entered by executing the USR Instruc- 
tion. 


A flow diagram of the RECORD Pro- 
gram is shown in Figure 3 and a machine 
language listing of the process is also 
given. After initialization, the program 
loops waiting for the DATA READY line 
to go low. This action occurs when the 
amplitude of the vaice level exceeds the 
squelch threshold set on the speech pro- 
cessor board. Once the squelch level is 
sensed, the program proceeds and the 
record program initialization com- 
mences. 


A machine language listing of the 
SQUELCH Process is shown. If the user 
wishes not to implement the squelch 
test, the values in line 610 of the pro- 
gram can be changed to: 

610 POKE 01,58 : POKE 02,03 
and the record program will be entered 
directly. 


After initialization the record process 
beings. The value of TO COMPUTER line 
is sampled at PAO of the user’s port and 
stored into the LSB of the buffer location 
DATAWD. A counter (BITCNT) is then 
tested to see if 8 samples have been 
sensed. If 8 samples have not yet been 
sensed, DATAWD is shifted left one 
place and a delay loop is executed 
before the value of the next bit is sampl- 
ed. When a full byte of data has been 
received, the byte is stored away in the 
next rnemory location. The vatues of 
DATAWD and BITCNT are reinitialized. A 
short delay loop is executed and the pro- 
cess is repeated. 


At the time that DATAWD is stored 
away the location into which ti is being 
stored is checked against an upper 
bound pointer in memory. When the two 
address correspond, the process has 
run out of available buffer space for the 
record process and the machine 
language routine returns contro! to the 
BASIC program. Complation of the RE- 
CORD process is Indicated by the line 
“RECORD PROCESS COMPLETED” ap- 
pearing on the display screen. 


Playback Program 


The PLAYBACK program is entered by 
pressing “P’. This action forces the 
pointing vector corresponding to the 


beginning address of the playback 
machine language program to be placed 
into locations 1 and 2. The machine 
language program is then entered by the 
execution of the USR instruction. A flow 
diagram of the PLAYBACK program is 
shown in Figure 4. A machine language 
listing of the PLAYBACK program is also 
given. 

The PLAYBACK program repeats the 
same basic process developed in the re- 
cord process. As each new byte is 
retrieved from the buffar memory, the 
state of the most significant bit is out- 
putted to the speech processor unit. 
After a finite delay, the DATAWD is 
shifted left one position and the state of 
the new MSB is sent to the speech pro- 
cessor, When aijl the bits have been ex- 
amined, the next byte in buffer memory 
is retrieved. When all of the bytes in the 
data buffer memory have been examin- 
ed, the PLAYBACK process is completed 
and .the message “PLAYBACK PRO- 
CESS COMPLETED” appears on the 
monitor screen. 


Save Process 


The SAVE process is a BASIC pro- 
gram written to allow the user to dump 
portions of the buffer memory on tape 
for Jater use. The process is entered by 
pressing “S”. A prompting message 
asks the user to enter the desired star- 
ting address and ending address in buf- 
fer memory to be saved. The contents of 
the memory locations between the two 
selected locations is then written on 
tape and upon completion of this opera- 
tion the message “SAVE PROCESS 
COMPLETED” appears on the monitor. 


Load Process 


The LOAD program is also a BASIC 
routine designed to load into memory a 
tape prepared by the SAVE program. To 
enter the LOAD process the user 
presses the “L” key. A message will 
prompt the user to enter the starting and 
ending address of the data file to be 
stored. When the LOAD process is com- 
pleted the message ‘‘LOAD PROCESS 
COMPLETED” will appear on the screen. 


Typical Application 


For an illustration of how these pro- 
grams might be employed, let's assume 
the user wants to have his computer 
automatically dial up telephone numbers. 
Using the speech processor and the RE- 
CORD process, each dual tone multiple 
frequency (DTMF) output is recorded 
from a standard touch tone selephone. 
As each tone js recorded, a data file can 
be written using the SAVE program. The 
starting jocating for each tone would be 
the beginning of buffer memory. The en- 
ding address could be set at the beginn- 
ing of memory plus, say 200 bytes. After 
all ten tones have been recorded, the 
data files collected by the SAVE pro- 
gram can be stacked consecutively on 


600 REM,.RECORD MODE...... 

610 POKE 01,210: POKE 02,0 

615 POKE 60,02 

620 LET X*USR(R) 

630 PRINT" RECORD PROCESS COMPLETED" 
640 GOTO 420 : 
700 REM,, PLAYBACK MODE,..... 

710 POKE 01,130: POKE 02,03 

720 LET K=USR(R) 


730 PRINT" PLAYBACK PROCESS COMPLETED" 


740 GOTO 420 


800 PRINT'**SAVE PROCESS INITATED" 
805 INPUT’ FILE NAME"; NS 

810 INPUT INPUT STARTING ADDRESS"; 5 
820 INPUT" INPUT ENDING ADDRESS"; E 
825 POKE 243,122: POKE 244,02 

830 OPEN 1,1,1,N$ 

840 FOR 10 to (E-S) 

850 PRINT #1, PEEK(S+I) 

860 NEXT I 

870 CLOSE 1 


880 PRINT'**SAVE PROCESS COMPLETED**" 


890 GOTO 420 


900 PRINT''**LOAD PROCESS INI TATED" 
905 INPUT" FILE NAME"; NS 


910 INPUT" INPUT STARTING ADDRESS"; S$ 


920 INPUT" LNPUT ENDING ADDRESS"; E 
925 POKE 243,122:POKE 244,02 

930 OPEN 1,1,0,N$ 

940 FOR I=0 to (E-S) 

950 INPUT #1,A 

960 POKE(S+I),A 

970 NEXT I 

980 CLOSE 1 


990 PRINT'**LOAD PROCESS COMPLETED**”" 


995 GoTo 420 
1000 END 


200 byte boundaries using the LOAD 
program. We would now have a data base 
in buffer storage with each tone starting 
and ending on a known boundary. 


In order to now dial any number, a 
small BASIC program would be required 
to call the PLAYBACK program with fhe 
appropriate starting boundary and en- 
ding boundary addresses in the required 
sequence. The resulting tones devel- 
oped through the speech processor 
would then be acoustically coupled to 
the telephone to complete the process. 


Conclusions 


This paper was designed to illustrate 
how a low cost speech processor might 
be_interfaced with a PET Computer. 
However, the same machine language 
software could be used to interface tne 
device to any 6502 based processor with 
only slight modifications. The use of 
BASIC in this application provided an 
easy method of mechanizing the man- 
machine interface. The application of 
voice or sound feedback in computing is 
almost Ilmitiess and it is hoped that this 
article illustrates one method of achlev- 
ing this goal. re 
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UDAIM 
STA 
STA 
STA 
TAY 
LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 
LSR 
ROL 
DEC 
LDA 
BEQ 
LDA 
TAX 
DEX 
TXA 
BNE 
NOP 
JMP 
NOP 
LDA 
STAIY 
NOP 
INY 
LDAIM 
STA 
TYA 
BNE 
INC 
LDA 
CMP 
BNE 
RTS 
NOP 


ORG 
LDAIM 
STA 
LDA 


$0036 
$0037 
$0038 
$O03A 
$0035 
$003C 
$E845 
$ES4P 
$033A 
$00 
PADD 
DATAWD 
WDB 


$08 
BITCNT 
$0c 
DLYCNT 
$0c 
WDB 
$1E 
ENDBUF 
PAD 
DATAWD 
BITCHT 
BITCNT 
STRG1 
DLYCNT 


DLY1 


LOOP} 


DATAWD 
WDB 


$08 
BITCNT 


LOOP 1 
WDB 
WO 
ENDBUF 
LOOP t 


$03D2 
$00 
PADD 
PAD 


SET UP DIRECTION REG 
AS AN INPUT 
DATAWD = 0 


BITCNT = 8 
DLYCNT = 12 
+01 WDB+1t = 12 
ENDBUF = $1E 


PICK UP DATA BIT 
STORE IN LSB OF DATAWD 


DELAY FOR 8KRZ RATE 


+03 


+0) 
+01 
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O3DA 24 3C BIT 
O3DC DO F4 BNE 
O3DE 4C 3A 03 JMP 
03E1 EA NOP 
0382 ORG 
0382 AQ FF INIT2 LDAIM 
0384 8D 43 £8 STA 
0387 A9 00 LDAIM 
0389 85 38 STA 
0385 As TAY 
038C ag 08 LDAIM 
O38E 85 37 STA 
0390 AQ OC LDAIM 
0392 85 3A STA 
0394 Ag OC LDAIM 
0396 85 39 STA 
0398 AQ 1E LDAIM 
039A 85 35 STA 
039C 81 38 LDALY 
O39E 8D 4F E8 STA 
O3A1 EA NOP 
O3A42 AS 3A DLY2 LDA 
O3A4N AA TAX 
O3A5 CA DEX 
O3A6 8A TXA 
03A7 DO FC BNE 
O3A9 EA NOP 
O3AA C6 37 LOOP2 DEC 
O3AC AS 37 LDA 
O3AE FO 07 BEQ 
O350 OE 4F £8 ASL 
03B3 EA NOP 
O3B4 4c A2 03 JMP 
03B7 Ca STRG2 I1NY 
0388 B1 38 LDALY 
O3BA 8D 4F E8 STA 
O3BD Ag 08 LDAIM 
O3BF 85 37 STA 
03C1 98 TYA 
03C2 DO DE BNE 
O3C4 E6 39 INC 
03C6 A5 39 LBA 
03C8 C5 35 CMP 
O3CA DO D6 BNE 
o3cc 60 RTS 
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SQUELC 
INIT1 


$0382 
$FF 
PADD 
$00 
WDB 


$08 
BITCNT 
$0C 
DLYCNT 
$0 
WDS8 
$1E 
ENDBUF 
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PAD 
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DLY2 


BITCNT 
BITCNT 
STRG2 
PAD 


DLY2 


WDB 
PAD 
$08 
BITCNT 


DLY2 
WDB 
WDB 
ENDBUP 
DLY2 


SET UP DIRECTION REGISTER 
AS OUTPUT 


BITCNT = 8 


DLYCNT = 12 


+01 WDB+1 = 10 

ENDBUF = 1E 

PICK UP KORD FROM STORAGE 
AND PLACE IN QUTPUT REG 
DELAY TO ESTABLISH 

8KHZ RATE 


+03 


+01 
+01 


SYMBOL TABLE 2000 2066 


BITCNT 0037 DATAWD 0036 
DLYR G3A2 ENDBUF 0038 
LOOPQ 0354 LOOPR O3AA 
PaD EB4uF SQUELC 03D2 
WDB 6038 


DLYCNT 
INITQ 
MASK 
STRGQ 


OO3A 
033A 
003C 
0368 


DLYQ 
INITR 
PADD 
STRGR 


0O35F 
0382 
E643 
0387 
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Stop That PET! 





That fantastic new program you are developing for the 
PET keeps bombing, causing the keyboard to lockup, and 
forcing you to RESET - thereby losing information about 
your program and its problems. Is there a way to STOP 
the run-away program? Would | ask the question if the 
answer wasn’t “Yes”? 





Commodore, for some reason, decid- 
ed that the PET did not need a reset but- 
ton. Since they did not provide a ROM 
monitor, perhaps they figured a reset but- 
ton was unnecessary. This decision may 
have affected their sales somewhat. 


They did provide a “STOP” button 
which serves as the equivalent of a CON- 
TROL C, but this was useless if your cur- 
sor disappeared (a commom early PET 
problem) or your new machine-language 
program decided to loop forever instead 
of returning control to BASIC. 


Machine-language programming for 
the PET therefore became an exercise in 
frustration: 


J. Write your machine-language 
program. 


2, Enter your program into the 
PET. 


3. SAVE it. (Important!) 


4, Execute your program via SYS 
or USR functions. 


5. Stare impotently at dead PET. 
Frantically press STOP key as 
if you really think it witi help. 

6. Curse! Be creative! 

7. Apply Commodore’s RESET 
procedure. (i-e., turn PET off 
and back on) 


8. Go back to step 2. 


Somewhere between steps 2 and 3 
you should perhaps examine your pro- 
gram for errors of coding or keypunching 
that could cause the PET to lock up. The 
difficulty with this procedure (for me 
anyway) is that if | thought the coding 
was wrong, | wouldn’t have written it that 
way in the first place. So I’m left to ex: 
amine five or six pages of coding that 
look perfectiy good to me. What is need- 
ed is a way of knowing exactly where the 
program hung up so as to narrow the 
search. 


if only there was a way to force an in- 
terrupt on the PET, then | could recover 
contro! and try again. At least it would 
eliminate steps 5, 6, 7, and 8.1 could then 
insert breakpoints and narrow the prob- 
jem down to a manageable level. 


Commodore was ahead of me 
again.The non-maskable interrupt is per- 
manentty tied down so it vectors to the 
cold-start routines at power-on time. And 
since the cold-start routines destroy the 
contents of RAM, using this line as a 
reset would have the same effect as turn- 
ing the PET off and on. 1 wouid have to 
make hardware changes and burn new 
PROMS to gain a reset capability with the 


non-maskable interrupt. Commodore 


wins this round. 


But wait! Can Commodore be beaten 
at their own game? Maybe... . 


There is one feature of the PET for 
which Commodore truly deserves a pat 
on the head . The PET has a built in real- 
time clock. This clock is updated by soft- 
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ware once every sixtieth of a second. A 
circuit within the PET monitoring the AC 
tine provides sixty interrupts a second. So 
the PET is not really “dead” at step 5 
above. It is merrity executing your infinite 
loop and keeping good time, but it 
refuses to answer the keyboard; it is just 
playing dead. 


Let’s follow this idea a little way. 
Every sixtieth of a second, an interrupt is 
generated that causes the PET to jump in- 
directly through an address at $FFFE. 
This routine saves the accumulator, X 
register, and Y register on the stack and 
then jumps indirectly through $0219 to 
the clock routine. This vector is 
changed,when necessary, by the 
operating system to keep the clock 
routines from goofing up the timing for 
tape reads and writes. Normally, 
however, this vector remains constant. 
The exceptions to this rule will become 
important later. 


Get the idea? Let’s change that vec- 
tor so the PET is forced to execute a short 
routine that checks the keyboard sixty 
times a second. Then, if the “STOP” key 
is pressed, we can provide a means of 
returning control to the operator. If the 
“STOP” key is not pressed, then the 
routine can proceed to its normal clestina- 
tion. 


Now, since we've gone to this much 
trouble, why not see if we can derive 
some useful information from this exer- 
cise? It will be necessary to clean the 
stack so the BASIC warm-start address 
can replace the “real” interrupted return 
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address. Why not save this information 
so we can discover just where the inter- 
rupt occurred? 


Those of you who have had the 
tenacity to read this far, but who are not 
the least interested in a desription of a 
machine-language program may wish to 
skip this section. How to use the program 
will be told in the last section. 


Listing 1 is the “assembly” listing of 
my program. A few words would now be 
appropriate to describe my peculiar 
“assembier’. This assembler is a one-line 
assembler, approximately equivalent to 
the assembler provided in the Apple Il. 
However, it is written in BASIC, and it has 
a few features | find convenient. For in- 
stance, | think in decimal, so | like to 
know the decimal address of an instiuc- 
tion. This is handy, considering that the 
functions SYS, PEEK, and POKE aft! use 
decimal arguments. Therefore, | designed 
the format of the assembler to be: 
Decimal address, Hex address, Hex op 
code, Hex operands/addresses, Label (ad- 
ded jater —- this /s a one line assemblies}, 
Mnemonic (extended mnemonic set, see 
below), Operand (decimal, ofcourse, of 
label added tater), then Comments (also 
added Jater). Since my outpul device is an 
IBM selectric that is in no way connected 
to my PET, | take the liberty of dressing 
up my fistings at my leisure. 


Now. to the program. 


Since our intention is to divert the 1n- 
terrupt vector to Our OWN PUFPOSES. the 
routine at 8000 ($1F40) does just thal A 
SYS8000 done in immediate mode will 
cause the vector to be changed from its 
norma! value to a value that will cause the 
PET to execute a routine located at 8016 
($1F50) every time an interrupt occurs 
This same routine will reverse that vector 
This way, you only need to remember one 
number to set or reset the vector This 
routine works like this: the instruction SEI 
causes the interrupt disable flag to be 
set, preventing the cpu fram fecugn ging 
any interrupts. This is done fo Prevent an 
interrupt from occuring while we are rat 
through altering the vector. There 18 nO 
telling where the thing wou'd ao it we 
don't take this precaution! Tre LOY VEC 
TOR + 1 instruction gets a byte of the Gut 
rent vector so we can detenmne whether 
itis the normal or the altered vector Thea 
we JSR to the SET subrouling wh bets 
the normal vector. If tne vector 
already set to normal, thea ve a 
wasted a few microseconds butt cas 
wait. Then we compare ine ¥ Vag wee te 
see if the vector was norma! iit v8 
230 (SE6) then we JSR to ee Fe i 
subroutine and alter it. Elsa the fist 
NOTSET causes executio® tu gaia = 
8014 ($1F4E}, the CLI clear’ aS pe : 
flag, enabling interrupts On<"" @ ie ae 
exits via the RTS back to BAIL 


Yeoh 


Pe 
t 
FY 


Now that we nave altered see ye 


oe RRR ee Ee 


_ oa — 
le ee eee ial ye. 


eS ee ee 


tate 


the PET will execute the routine located 
at 6016 ($1 F 50) es ery time an interrupt oc- 
curs, which happens sixty times a se 
cond, Lets exasine this routine. 


First we jump to a subroutine 
located at 62250 ($F32A) which checks 
the keyboard and returns a zero in the ac- 
cumutator uf the STOP key is pressed. 
Upon tetum from that subroutine, we 
check the accumulator for zero, BEQ 
STOPPD. If Ihe accumulator is zero, we 
jump to STOPPD, which is our recovery 
routine. tf the accumulator js not Zero We 
jump to CONINT, which Is where the in- 
terrupt would normaliy have gone. 


The instruction at 8024 {$1F58) loads 
8 Into the X register, then uses this as a 
countor and displacement lo pull 8 bytes 
oft the stack and store them in memory 
beginning at location 8165 ($1FE5). We 
pulf 8 bytes off ihe stack instead of 6 
because we assume at least one level of 
subroutine ceil beyond the interrupt. 
After alf, wa had to SYS or USR into our 
machine language program, didn’t we? 
Vie don't want the stack to get too clut- 
tered. This isn't qoing to be a complete 
answor, but it will hein. More will be said 
about this later. 


Once we have stripped and saved 
the stack contents, we need to restore it. 
The routine beginning at 8033 ($1F61) 
dogs thts First. we load and stack the 
high byte and low bytes of the BASIC 
warm-start routing. Then we recall the 
orginal value of the status register and 
stack st, This is important onty because of 
tho intecrupt flag Then we stuff the stack 
with three bytes of anything just to fill it 
cut. After a, the interrupt handling 
route thinks Ho has stored the ac- 
cumulator and the X and Y regesters on 
{ha stack, it will expect them to be there. 
Since we are vot returning to the place 
where the iaterrupt occurred, we don’t 
care what those bytes are, so let's just 
push the status byte onto the stack three 
more Lines 


Now that we have cleaned the stack 
acct provided tor a fake return from the in- 
tercupt, bow about dismlaying the infor 
maton thus recovered? Sounds easy, 
yeu? Mot oa. 


ti we are to disptay our hard-won in- 
formation, we can edher write our own 
isp ay foufous of use the routines so 
co Tee ENNYy ErOvded for in ROM. Being 
raturvaby vazy. |ecuch preter to use the 
routes altcady wotten But this is a pro- 
tem Seben best wrote thes program | 
go tateange results that | eventually trac- 
etrotte tect that the interrupt flag was 
feo 3 Ce ated somewhere, permitting the 
fof oasto be emterrurctad af i dan't 
roeoowp its fraser trom the STOP button 
aco a enn aetett of a second. | 
Tt ewe that al ocation 58816 ($E5C0) 
OPT es was a Cll instruction. Since 


257. 


tn 5, NOL: SI TRE Ne le my RS 
ae : gs a a Sato ad PEE PT EY FAY EIN TNR AT NTE TET IE Fa SE LT 


Toei, pt a . = ee eer 
PC Ee et a CRRA Sere terete 


this is the print routine, | needed to finda 
way to use it without allowing the inter- 
rupt to screw things up. it was necessary 
to exit from our routine, return to BASIC, 
and then display our information. How to 
do it? | chose to use a TRICK!! Follow 
closely... 


The PET has a keyboard buffer that 
coliects keystrokes until the operating 
system can service them. This gives the 
effect of the PET “remembering” 
keystrokes even if you enter them while 
your program is doing something other 
than looking for INPUTs or GETs. If you 
joad this buffer while in a machine 
language program and then exit to 
BASIC, the PET will suddenly “see” a 
command in its keyboard buffer and pro- 
ceed to execute it. 


After we recreate the stack and set 
the norma! interrupt vector (JSR SET) 
then we load the keyboard buffer with the 
command “SYS8066cr’’. The cr” is a Car- 
riage return. The instruction at 8049 
{$1F71) loads 9 into the X register. This 
number, which is the count for the buffer, 
is then stored in focation 525 ($020D). 
Then the command is retrieved byte by 
byte from location 8128 ($1F CO) and plac- 
ed in the keyboard buffer. When that is 
finished, the PET jurnps to CONINT, the 
normal interrupt routine. 


What follows is this: the PET up- 
dates the clock register, then jumps to 
the interrupt routine which restores the 
registers and “returns” to the BASIC 
warm-start routine. The prompt “READY.” 
is printed, and control returns to BASIC. 
BASIC checks the keyboard buffer, sees 
the command "“SYS8066”, prints it and 
executes it. Control is now given to our 
display routine. Roundabout way of doing 
it, No? 


The display routine begins at 1oca- 
tion 8066 ($1F82). First we load the ac- 
cumulator and Y register with the address 
of our header line. Then we JSR to the 
print routine in ROM at 51751 ($CA27). 
After that we load the accumulator and X 
register with the bytes we stored that 
represent the interrupted return address, 
and JSR to the number display routine in 
ROM at 56479 ($DC9F}. This routine 
displays numbers in decimal, so if you 
wish them displayed in hex you will have 
to convert them yourself. Next, a loop is 
set up that retrieves each byte and 
displays them — first the status byte, 
then the accumulator, and the X and Y re- 
gisters — all in decimal. At the end of ail 
this wonderful activity, the routine exits 
through the START which alters the inter- 
rupt vector so we can do the whole thing 
over again. 


Now, aren't you sorry you decided to 
read this? 
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How to Load and Use This Program 


Listing 1 is an assembly listing of 
this program. It may be of interest to peo 
ple who enjoy machine-language pro- 
gramming, or those who like convoluted 
logic. It is difficult to enter machine- 
language programs into the PET, 
however. So | have provided listing 2, 
which is a BASIC version of this program. 
1 have converted the machine-language 
program into DATA statements and built 
a small loader routine around them to 
make it easier to key into the PET and 
SAVE onto tape. 


For those of you with the fortitude to 
attempt to enter this program into your 
PET, attend: First, this program will not 
work if your PET is one of the newer 
modeis. If your PET comes awake with 
### COMMODORE BASIC ### instead of 
*** COMMODORE BASIC ***, then 
forget this program. Rumor has it that 
you don't need it anyway. Second, if you 
still qualify, notice that each DATA state- 
ment has exactly eight numbers. If you 
key this program in exactly as shown it 
will be easier to find errors later if you 
miss-key a number. 


OK. Are you still with me? Then key 
the program into your PET exactly as 
shown but do not RUN!! When finished, 
SAVE the program on tape. Then replace 
line 36 with: 


36 FOR X=8000 TO 8159: READ A: 
P=P+X*A:NEXT X:PRINT P 


Now RUN the program. If the number 
printed is 146725222, then the odds are 
very good thai you made no mistakes. 
You may now LOAD and RUN the original 
program. If, on the other hand, your 
number did not match the above number, 
then recheck your keypunching, correct 
your error, and try again. 


NOTE: I would like to take this oppor- 
tunity to encourage all programmers who 
write programs involving many DATA 
statements to include a verify routine. It 
need not be a permanent part of the pro- 
gram, but should be designed to give the 
hobbyist some solid evidence that his et- 
forts were accurate. 


Now you have LOADed and RUN the 
program. Notice that line 15 protects the 
last page of an 8K PET from interference 
by BASIC. This routine will reside safely 
here while you write your new machine- 
language program, debug it, and test it. 1 
put this program in high memory because 
it is a machine-language debugging aid 
and most machine-language routines for 
the PET are located in the second 
cassette tape buffer area 826-1023 
($033A-$03FF) for convenience. If you 
wish to relocate it, be very sure you 
understand how it works. 
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Notice we have not yet activated this 
routine. First LOAD your machine- 
language program if you have it on tape, 
or your assembler if you are just starting. 
Then execute a SYS8000. This activates 
the Reset routine. From now on, 
whenever you hit the STOP key, the 
machine will halt and display the address 
where it was interrupted plus the register 
contents. There are a couple of excep- 
tions which will be noted below. 


OK. The Reset routine is activated, 
you have entered your machine-language 
program into the second cassette buffer, 
and executed a SYS826. Somehow the ex- 
pected results do not materialize and the 
new program does not return control to 
BASIC. Now what? Hit the STOP key! 
Suddenly the PET comes back to life and 
prints: 


ADDR ST AC XR YR 
835 34 129 66 202 


Eureka! Somewhere around location 
835 there was an error in your program. 
The status register contained 34, the 
accumulator had 129 in it, the X register 
had 66 and the Y register was holding a 
202. Were they supposed to have these 
values? Perhaps a register was initialized 
wrong or a relative branch was figured 
wrong. At feast you know where to begin 
looking. Isn’t it wonderful? 


If the STOP key is pressed during 
norma! command mode, you will likely 
get: 


ADDR ST AC XR YR 
58013 34013 
READY. 


Notice that the numbers do not align 
perfectly under the header. They are 
printed without regard to the size of the 
number but are printed in the order 
depicted by the header, separated by 
blanks. Also, while it happens too fast to 
see, what actually printed was: 


READY. 
SYS8066 
ADDR ST AC XR YR 
58013 34013 
READY. 


The SYS8066 and the header are 
both prefaced with an up-cursor 
character, so that they are printed on top 
of each other. This makes Sess scroiling, 
in case the screen contents were impor- 
tant. 


Now for the exceptions to the rules: 
Since it is impossible to know how deeply 
nested in subroutines the PET was when 
the interrupt occurred we cannot properly 
clean the stack. After a while (approx- 
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imately 23 times) pressing the STOP key 
will cause a 2OUT OF MEMORY ERROR 
remark to appear. The Reset routine will 
be deactivated and it will be necessary to 
SYS8000 again. Nothing to worry about; 
the PET corrected the stack before it 
printed the error message. Another 
message that will deactivate the Reset 
routine is 7ILLEGAL QUANTITY ERROR. 
Same response: SYS8000. 


The command SYS8000 will activate 
the Reset routine if it was not already ac- 
tivated. If the Reset routine is active, 
SY$8000 will turn it off. Be sure it is on 
when you are executing your new 
machine-language program. And be sure 
it is off whenever you want to use the 
tape recorder to LOAD or SAVE a pro- 
gram or read or write data fites. The 
cassette routines wil! not work if the in- 
terrupt vector has been aitered. !f in 
doubt as to the current status of the 
Reset routine, simply hit the STOP key. If 
nothing happens, the routine is off. If you 
get a registez display, the routine is on. 


One final exception to the rule. This 
routine is excellent if you get caught in an 
infinite loop or you just want to exit from 
a machine-language program early. It 
won't protect you from all invalid op 
codes. Some invalid op codes act like 
NOPs or do some mysterious, undefined 
function. Thase are OK. There are some 
op codes, however, that will cause the 
PET to lock up in spite of our marvelous 
Reset routine. Hex 04 will do this for ex- 
ample. | suspect that these obstinate op 
codes do something to affect the inter- 
rupt flag, thus disabling our routine. Until 
Commodore see fit to provide a non- 
maskable interrupt, | guess we will have 
to live with this incovenience. But even 
so, it gives us a place to start looking, 
doesn't it? !f your PET locks up in spite of 
the Reset routine, look for invalid op 
codes. 


There you are. | hope this en- 
courages more machine-language pro- 
gramming for the PET. Let's get full 
power out of our computers! 


For your free information 
regarding the extended 
mnemonic set that was referenc- 
ed above, send a self-addressed 
and stamped envelope to: 
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Boolean Equations Reduced on the PET | 


Du ARETE NNN ETT TORTS CN 


A deceptively small BASIC program trains the PET to 
perform computer aided logic design. It will reduce any 


When a home experimenter tries to de- 
sign a device, there are often one or two 
chips he doesn’t have on hand. The 
builder might stop and order parts, then 
wait for delivery; but often this prob- 
lem can be solved by failing back on 
basic gates and keeping some ot these 
on hand for emergencies. 


Reducing a truth table to an acceptable 
number of equations is often a tedious 
task. As an aid in this endeavor, | wrote 
a program to solve the Boolean equa. 
tions using my PET computer. The pro- 
gram is based on the Quine-McCiuskey 
method, It will reduce any sum of pred. 
ucts to a minimum, two level network. 


single output process to a minimal, two 


lovel network. 


Tha goneral approach used in the pro- 
gram is to reduce the number of inputs 
using the equation 


X'Y +XY=Y 


And then reduce the number of terms 
using the equation 


XY + V'Z 4 YZ = XY + XZ 


This. program works onty for multiple 
inputs producing a single output, but it 
can be a powerfull aid in multiple output 
networks loo. 

The output of a network can be defined 
as ail of the inputs for which a “1” is 


S00 REM ~COMPARE DIFFERENCES IN TERRS~ 


S05 Né=<"° 

$10 D=0 

515 FORM=1TOL 

520 Ce=CHRS(FNACT) > 


525 IF FNACI)=FNACJ) THEN S35 


530 D=D+¢i:C$="~-" 

535 NS=Ns+Cs 

S40 NEXT M 

545 RETURN 

S50 REM -ADD TERM TO LiST~ 
S53 IFN2=N THEN S95 

555 FOR xX=0 TO NO 


560 IF NS=A$(X) THEN RE TURK 


545 NEXT X 

570 IF 1=0 THEN S95 

S75 FOR X=0 To 1-1 

580 IF ACX)=0 THEN 390 

SB5 ACK) =OLASCXIANETRETURN 
590 NEXT X 


595 NQIENQFELIACN2) POLTABC NTI ARE SEE TURN 


600 REM -REMOVE REDUCED TERMS 


605 I=0;4=N2 


FROM LIST- 


610 IF ACI)=0 AND focyg THEN Teresa sGOTe 616 
415 IF ACJ)s1 AND Tess Tein ges fiLOTO 615 


620 IF I>J THEM 432 


625 AS(IDSARC II SACL MOTEL ehiseded 


630 GOTO619 
635 Ne=JsNoaJd 
645 RETURN 


650 REM -COUNT DIEFCRE RCE IN TERMS CDISREGAURD DON’T CARES)-— 


655 U=0 
6450 FORM=1TOL 


be] FNB( I) #F NACI) THEN aitd 
665 IF lima 


670 IF FNACJ) B45 
675 D=Dt1 
680 NEXT M 
695 RETURN 


READY. 


a teen wanes 


ae 
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wanted. In addition, there may be some 
conditions where you don’t care what 
the output is because that input con- 
dition will never be present. For this pro- 
gram, the ‘don't cares” are assigned in 
such a way as to reduce the number of 
inputs to required terms, but they are not 
considered when choosing the terms 
necessary for the output. 


This routine is written in modules. An 
explanation of the function of each 
module will aid in translating the pro- 
gram into other languages. Important 
facts about PET BASIC are: if there 
are multiple statements on the same line 
after an IF THEN combination, none will 
execute when the condition is false. All 
variables are zero uniess otherwise set, 
and a zero subscript is permitted in 
arrays. 


The code with line numbers 0-99 per- 
forms general set up. Important giobal 
variables are: A$ -— an array of required 
and don’t care terms, B$ — an array of 
only required terms, A — an array ot 
flags for AS, Q — an array of flags for 
B$, B — the number of required terms 
(-1}, N and N2 — the number of terms in 
A$, and L — the number of input vari- 
ables for each term. 


The module 100-399 is for the data input. 
For this input scheme the user types in 
the input combinations for which a 1 out- 
put is desired. These can be either 
strings of zeroes and ones or upper and 
lower case letters. if there are don't 
cares present, the user enters “X" and 
follows with the don’t care terms. The 
last input is followed by “END”. 


lf the user wants to create a different 
input, such as from a tape or a truth 
table, the important results are: BS 
should contain terms which have a “1” 
output, where the first entry is BS(0). 
B should equa! the highest index of BS, 
A$(O-N) contains all the terms of BS plus 
any don't care. terms. N and N2 both 


‘equal the highest index of A$. Arrays A 


and Q should both equal zero for all 
entries, and L should equa! the number 
of input variables. 


Module 400-449 is where the literals are 
reduced from the terms. Each term is 
compared to every other term and, if 
they differ by only one variable, the 


1 A a ESP ERE oe CR AT EE TEMES AT a 


variable is replaced by a don’t care {—). 
The new term is added to the list, and the 
two combined terms are marked for 
later removal. The process continues 
until the program toops through the en- 
tire list without further reductions. 


In module 450-499, the reduced terms in 
AS are matched against the original 
terms in B$. Each required term is 
matched with the most-reduced term 
that covers it. 


Module 500-549 is used to compare 
different terms in A$. | and J are the in- 
dex values of the terms. The routine re- 
turns the number of variable differences 
in D. N$ is the reduced expression and is 
only valid if D = 1. 


In lines 550-599, a term N$ is added to 
AS outside the range of the present loop. 
It is designed to conserve memory. No 
term will be added which is already in 
the fist. The process usually generates 
duplicate terms, and it will place the new 
terms at the front of the list if those 
terms are marked for removal by 
Af) = 1. 


Module 600-649 removes ail terms which 
were reduced but did not get removed in 
lines 550-599. It resets N and N2 to point 
to the end of the new list. The module 
from 650-699 compares terms in B$ to 
A$. | is the index of the B$ term and J 
indexes A$. In this routine, a comparison 
of any single variable in BS is considered 
a match with A$ if the variables are equal 
or if the corresponding varialbe in AS) 
is a don’t care, ASCI! 45. The difference 
is returned in D. 


Module 700-799 finds the most restricted 
term in BS, The key to arriving at the 
minimum solution, as opposed to just a 
valid solution, is to find each required 
term with only one reduced term to 
satisfy it, an essential term. If ailof them 
have more than one possible term, we 
select the term in BS which could be 
satisfied by the least usefull term from 
AS. 


This is so that bad matches can be 
avoided early and, in the case of cyclic 
expressions which have several equiva: 
lent but different solutions, so that 
evaluation will not introduce redun- 
dant terms. 


In Jines 800-899, the reduced terms are 
sorted to bring the terms that satisfy 
the most conditions to the beginning of 
the list. This insures that the best choice 
will be found first. 


The last module, at lines 900-999, locates 
the minimum number of reduced terms 
which satisfy the problem. The most 
restricted BS term is paired with its best 
match in A$, and all other terms in BS 
which are also satisfied are removed 
from further consideration. 


If the flag W is set to one, it means more 
than one solution exits for this problem. 


















Table 1: Four-bit Binary to 5-bit BDC Conversion Map 


Usually the other solutions can be found 
by entering the terms in a different order. 
Sometimes, when there is more than one 
solution, the most economical solution 
will not be the first one found. This 
problem could be cured by generating all 
of the multiple solutions, but that would 
require more than the 8K of memory | 
had available. 


The result might be further reduced by 
going toa three level solution. This again 
requires more than 8K, but it would be 
reasonable to feed intermediate results 





into a second program to obtain a com- 
pletely reduced resull. 


The idea is to look for pairs of terras, 
each with a variable that matches with a 
don't care variable in the other term, and 
matching in all other variables. Tne 
matching terms can be combined by 
ANDing with the non-matching terms, 
making an OR at the next levei. Terms 
that match in some variables but nat in 
others can be combined in a next Jevel 
of the matching gates with the differing 
variables in the lower level. 


™ 


{ have not yet been able to determine 





cr? 

i! whether my method will result in the 
minimal equation. As of now, no tech- 
nique for this problem is known. The fol- 
lowing example will illustrate the entire 

; process. 
AC A , C AB C B a ea The problem is to convert a 4 bit number 
” 4 into BCD (5 dits). The truth table for this 
conversion is shown in Table 1. We be- 
gin by entering the inputs for which we 
want output V to be true (1). The se- 
quence is: 
7 1010 
71011 
? 1100 
21101 
71110 
21111 
7 END 
and the computer replies, after a short 
; y W X Y Zz detay, with: 
1-1- 
1-- 
Figure 2 


This signifies that the minimum two 
level solution for Vis AC + AB. The pro- 
cess is repeated for the rest of ihe out- 
puts giving resuits of: 


700 REM -FUT MOST RESTICTED TERM AT BEGINNING OF LIST 
705 FORI=OTOB 
710 QC(1)=0°T=8 
7iS FORJ=0TON2 
720 GOSUB 650 
725 IF D=0 THEN QI =Q¢CLI+FLIIFACS<T THEN T=ACJ) 
730 NEXT J £O¢1)9Q¢(1)4+T/10000% NEXT I 
735 IF B=O0 THEN 755 
740 FOR I=iTOB 
745 IFRCI)<QCO) THENNS=BS(1) SBS¢ TIRE (0) $BS COP ANS EX=QCT) FQCT)=Q00) Q(0)=X 
750 NEXT I 
7355 RETURN 
800 REM -PUT REDUCED TERMS WHICH COVER THE MOST AT THE FRONT OF THE LIST~ 
805 FORJ=O0TON2 
810 ACJ)*0 
815 FORT=07T08 
_ 620 GOSUR 4350 
825 IF Dx0 THEN ACJ ZAC II+1 
B30 NEXT I 3 NEXT J 
B35 FCR IJ=OTON2-1 
940 FOR JeI¢+1 TO N2 
845 IF ACI)>ACJ) THEN 8460 
@50 NOwAS(C ID SASCIT) SAS (I) FASC I) ENG 
O55 X#ACIPVIACT) #AC I) SACI eX 
840 NEXT J ¢ NEXT I 
865 RETURN 
900 REM-FIND ESSENTIAL TERM AND ELIMINAT 
roe GOSUB BOO!GDSUD 700!I=0%4—0 E ALL ORIGINAL TERMS THAT IT COVERS 
910 GOSUB 450 
913 IF D>O THEN JeJtiiGOTO 910 
920 IF Q(0)}>#2THEN Wel 
92% GOSUB 775 
930 GOTO 7590 
935 GCSUB 650 
940 IF DO THEN T=T+2 
945. IF B*O THEN GOSUB 975 
950 IF I<eB THEN 935 
955 NSWAG( II TABC ID SASCN2) SACCN2) ONS IN2ZENQ— 
940 RETURN a eNeeNSeNest 
975 N@HBS(1)28601)959(B) 58918) eNS i be8-1 SRETURN 
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W= 100- AB'C’ § REM BROQOLEAN EQUATION RERUCER 
X= 01---.-t1- A‘B+BC 10 REM ALAN K. CHRISTENSEN 
Y=110-,0-1- ABC'+A'C 15 REM AUSTIN? TEXAS 4-14-79 
Z= ---1 D 20 DIM A$(250) 2AC250) 


25 DEFFNACI)=ASC (MIDS (ASC I) eMel))d 
3O DEFFNB(I)=ASC(MIDS(BS( I) eMel)) 
35 FORE 59468914 

100 REM -RATA INFUT~ 


The next step is to input the values for 
output which have a reasonable number 


of identical terms. For example, V and X : : : , 
have inputs of 1110 and 1111 in common. hs Seay {N2s~-1i1=034=0 
To see if sharing a gate will reduce the pas ee 
equations, we enter V again with those 115 IF Nee*X* THEN BaN2:GOTO 110 
terms as don’t cares. The input se- 320 IF NS="END" THEN 150 
quence is: 125 GOSUB 550:GoTO 110 
130 IF B<O THEN B=N2 
: 135 DIM BS$(B)sQ¢R) 
71010 140 FOR I=OTOBSBS(I)=AS(I) SNEXT I 
91011 145 L=LENCAS(O)) IN=N2 
71100 400 REM -RERUCE TO MINIMUM LITERALS-—- 
71101 405 L2=0:N2= 
2X 410 FOR T=0TON~-1 
91410 415 FOR J=It1 TON 
74111 420 GOSUB 300 ; 
7? END 425 IF D=1 THEN ACI) =1{AC J) =13L2=1°3GOSUB SSO 
430 NEXT J 


435 NEXT I 

440 GOSUB 600 

445 IF L2<>0 THEN 400 

450 REM ~ELIMINATE REDUNIANT TERMS— 


The output is the same as before; there- 
fore, no gates are saved by combining 
these terms. When the same thing is 
tried with V and Y we get a shared equa- 


tion of 110 — (which is aiready a term of Y) 455 NS=N2 
and re-entering V with 1100 and 1101 as 460 GOSUB 700 © 
don’t cares gives an output of 1-1- pe ig as Fey. eG 
tetas >= s 
iatcreeaec a 475 IF W=iTHEN PRINT*MULTIPLE SOLUTIONS* 
480 STOP 
Further testing shows no more gates 
can be saved by this method, so the next READY. 
step is to try to increase the levels. X is 
the only output which has terms that 


differ only at don’t cares. 01 ~ and - 11 - 
can combine to (0)1(1)-, or B (A+ C). 


This leads directly to the circuit of Fig- 

ure 1. Duplicates or unnecessary gates 

are shown by dashed lines. A network of AC 
alternating OR - AND gates can be.con- 

verted directly to a NAND - NAND net- 

work by inverting the literals on odd 

levels, with the feve!l nearest the output 

as one. This brings us directly to Figure 

2. 


There is still one problem. There are two A Cc 8 
gates which have three inputs and | only 

keep two-input NAND gates and invert- 

ers as spares. A three-input NANC can 

be replaced by 2 two-input NANDS and 

an inverter (A NAND 8 NAND C) = ((A 

NAND B) NAND C). Looking at the two * 
offending gates, we see that they share 

A NANDC’ in their equations, so we can 

share a gate. 
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The final circuit is shown in Figure 3. It 
can be realized with two quad NANDs 
and one hex inverter. This process could 
have been performed by entering the 
terms for which a zero value was desired 
(and don’t cares) resulting in a network y W x y . 2 
of NOR gates. Basic gates nearly always ‘ 

take more wiring in a circuit, but when 

purchased in quantity they are cheap, 

and they can make the difference be- 

tween finishing a project today or just Figure 3 

waiting for parts. 
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Reading Pet Casseties Without a Pet 


een ar PE A ALTE EO 
if you have ever wanted to read a program from a 
cassette written for one 6502 based microcomputer on 
another type, here is an example which uses a SYH-1 to 
read a PET cassette. The concepts can be generalized to 
work with almost any combination of micros. 


One of the basic problems in obtaining 
microcomputer software is not that it 
doesn't exist but that it was written fora 
machine other than the one it is to be 
used on. Small programs can be typed in 
by hand if a hex listing is available, but 
larger programs are generalty distributed 
on audio cassettes. By virtue of their 
popularity, the Apple I! and PET have the 
largest pools of published software on 
cassette, but that doesn't mean that 
owners of less well established 
microcomputers like the SYM-1 cannot 
take advantage of existing programs 
written for these machines. 


Ali 6502 based microcomputers except 
the KIM use very simple cassette inter- 
face hardware and let the processor do 
all the work of formatting, encoding and 
decoding cassette data. This approach 
has the dual advantages of reducing 
parts count and increasing flexibility and 


PET CASSETTE READ ROUTINE FOR SYM-] 


it means that with suitable software, 
users of any particular machine can read 
cassettes written for any other machine 
(Apple, PET, OSI, AIM, or SYM). This par- 
ticular program runs on the SYM-1 and 
reads cassettes written by the PET. ft is 
quite unsophisticated, and doesn't know 
the difference between various block 
types such as Beginning of File, End of 
File, Program, and Data blocks, and it 
does not strip off countdown bytes or 
verify checksums. It does check byte 
parity and will flag any errors, it has been 
my experience that if there are no parity 
errors, then the data is OK. 


Because the task of converting software 
from one machine to another is non- 
trivial, it is assumed that only exper- 
ienced programmers will have occasion 
to use PETCAS, thus no attempt will be 
made to explain the program’s operation 
or PET cassette format in detail; however 


BY DAVE KEMP 
JANUARY 1979 


PETCAS READS A PET 
AND STORES THE DAT 
$200. 


TO RUN IT, TYPE: 


.G OB 


David P. Kemp 
1307 Beltram Court 
Odenton, MD 21113 


one feature of the program deserves 
some comment -- the tuning dispay. tf an 
oscitloscope and a D/A converter are 
available, the display simplifies setting 
up the program and the recorder con- 
trols. With the program running and a 
PET cassette playing, the scope trace 
should fall into three distinct levels cor- 
responding to the three possible time 
periods between active transitions on 
the tape. If the display is not well 
clustered or the routine wil! not work, 
try exchanging the instructions at toca- 
tions $6C and $66. (In PET cassettes 
poiarity is significant and this modifica- 
tion effectively reverses the audio signal 
polarity). 


Despite its smal! size, the program 
works quite well -- it was originally writ- 
ten to read a third generation analog 
dubbing of an 8K program, and it ac- 
complished that task in one pass 
without an error. i 


FORMAT CASSETTE RECORD 
A IN A BUFFER STARTING AT 


CONTROL IS RETURNED TO SUPERMON AFTER THE 
FIRST COPY OF THE DATA HAS BEEN READ. 


LOCATIONS ADH AND ADL POINT 
FREE BUFFER LOCATION (LAST 8 


TO THE NEXT 
YTE READ + 1). 


DIGITAL TO ANALOG CONVERTER OUTPUT 


0075 ADL * ¢o0FO SUFFER POINTER 
0075 ADH * tO0F ] 
0075 TCNT = * $O0F 2 GETBIT TEMPORARY 
0075 IPAR # $QOF3 PARITY GENERATOR TEMPORARY 
0075 PECKT * $OOF4 PARITY ERROR COUNT 
0075 PAR * $OOFE PARITY ERROR MARKER 

VALUE ARBITRARY 
0075 TAPE O® $AQ000 CASSETTE INPUT PORT (PB6) 
0075 DIGANA * $A00] 
poco ORG $0000 
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0000 A 02 PETCAS LDAIM $02 SET BUFFER ADDRESS TO $0200 
0002 85 Fl STA ADH 


0004 85 F4 STA = PECNT 

0006 A9 00 LDAIM $00 

0008 85 FO STA ADL 

OOOA 20 2F 00 PETCA JSR  GBYTE GET A BYTE 

O00D 30 03 BMI PETX 

OOOF 4C 00 00 JMP = =PETCAS LEADER NOT STABLE YET 
0012 C6 F4 PETX DEC PECNT BE SURE LEADER IS VALID 
0014 DO F4 BNE PETCA 

0016 20 2F CO PETCB JSR GBYTE CET BYTE 

0019 30 FB BMI PETCB LOOP UNTIL END OF LEADER 
0018 BO 04 PETCC BCS PETCD DATA VALID ? 

001D AS FE LDAIM PAR NO ~ PARITY ERROR 

OOIF E6 F4 INC PECNT INCREMENT ERROR COUNT 
0021 91 FO PETCD STAIY ADL SAVE IT IN BUFFER 

0023 £6 FO INC ADL ADVANCE BUFFER POINTER 
0025 DO 02 BNE PETCE 

0027 £6 FI INC ADH 

0029 20 2F 00 PETCE JSR cBYTE GET ANOTHER BYTE 

002€ 10 ED BPL  PETCC CONTINUE IF DATA 

OO2E 60 RTS EXIT IF SHORTS 


GET A BYTE OF PET DATA 


RETURN: 
A = BYTE 
C = 0 IF PARITY ERROR 
N = 1 IF SHORTS 
X CLOBBERED, Y = 0 


0O2F AO li GBYTE LDYIM $11 SHORTS COUNT 
0031 20 63°00 GBA JSR GETTR GET TRANSITION TIME 


0034 £0 40 CPXIM $40 START BIT ? 

0036 BO 08 BCS GBB YES - GO GET BYTE 

0038 £0 2C CPXIM $¢2C SHORTS ? 

COSA BO F3 BCS GBYTE NO - START COUNTING AGAIN 
GO3C 88 DEY YES - DECREMENT COUNT 
OO3D 10 F2 BPL GBA 

OOSF 60 RTS 

0040 AO 09 GBB LDYIM $09 BIT COUNT 

0042 84 F3 STY TPAR INITIALIZE PARITY 

0044 20 63 00 JSR GETTR GET OTHER HALF OF START BIT 
0047 20 58 00 GBC JSR GETBIT GET A DATA BIT 

O04A 90 02 BCC GBD 

OO4C E6 F3 INC TPAR ADSUST PARITY 

OO4E 6A GBD RORA PACK IT 

OO4F 88 DEY DONE ? 

0050 DO F5 BNE GBC NO 

0052 2A ROLA YES - ADJUST DATA 

0053 49 FF EORIM $FF 

0055 46 F3 LSR  TPAR PUT PARITY INC 

0057 60 RTS 
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co58 20 63 00 
O05B 86 F2 
C05D 20 63 00 
0060 E4 F2 
0062 60 


0063 A2 00 
0065 2C 00 AO 
0068 E8 

0069 70 FA 
006B 2C 00 AQ 
OO6E E8 

COGF 50 FA 
0071 8E 01 AG 
0074 60 


GET A DATA BIT 


RETURN: 
C = BIT 


X CLOBBERED, A & Y UNCHANGED 


GETBIT JSR 


STX  TCNT SAVE IT 


GETTR GET FIRST TRANSITION 


JSR GETIR GET SECONT TRANSITION 


CPX  TCNI 
RTS 


GET A TRANSITION PERIOD 
RETURN: 
X = PERIOD 
A & Y UNCHANGED 


GETTR LDXIM $00 
GETA BIT TAPE 


GENERATE BIT INC 


INIT COUNTER 


INX INCREMENT COUNTER 

BVS GETA LOOP WHILE HIGH 
GETB BIT TAPE 

INX 

Bvc GETB LOOP WHILE LOW 


STX  DIGANA OUTPUT TG D/A FOR TUNING 


RTS 
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Hooking PET to Ma Bell 





The dream of many microcomputerists to use their 
system as a terminal connected to a large computer 
system can become a pratical reality. The $50.00 har4- 
ware for any 6502 based system, and the software for a 
PET, are fully described. 





Having worked with my 8K PET for 
atmost a year, | have become hooked on 
microcomputers and am enjoying learn- 
ing and experimenting with a great 
machine. Like most microcomputer 
enthusiasts, | dream of more memory, 
disks, printers, etc. However, attempting 
to raise a family on a teacher's pay 
means that | have limited funds. So | 
wired up a PET to RS-232 modern inter- 
face, plugged into a modem, and 
bingo — by dialing up the computer 
system on the campus of Arkansas 
State University, | have all of these plus 
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much more hooked to my PET. !f you 
have telephone access to a camputer 
system or a friend with an answer 
modem on his computer, here is the 
hardware and software to get you 
started communicating on the 
telephone. 


The interface shown in Figure 1 can 
be bulit for under $50 inctuding connec- 
tors, wiring, etc., and can be plugged 
into any RS-232 modem (! have a U.S. 
Robotics Model 310 which lists for $149). 
A TTL compatible modem can be wired 


267 


C.H. Scanien 
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directly to pins 2 and 6 of the MC6850. 
Ali the parts, except the crystal, are fair- 
ly common and can be ordered from 
most mail order electronics parts firms. 
The 1.229 megaHertz crystal can be 
ordered from any crystal manufacturer 
for around $10. This interface can be 
connected to any 6502 or 6800 based 
microcomputer that allows direct 
access to the microprocessor bus, for 
example, the APPLE, KIM, SYM, SWT, 
OSi, etc. 
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The software is written in BASIC and 
makes the PET act like a TTY type 


i eh eae cca “dumb” terminal. The control characters 

30 REM P.O ROX 22 are obtained by using the shift key. For 

nia example, control S ts simply shift S. 

o a Gees UNIVERSITY, ARKANSAS Although this program appears to limit 

66: BEM the PET, It really doesn’t since you can 

hit the stop key, write and run a program 

101 DATA 173, 246, 191, 48, 3, 76, 133, 230, 173, 247, A THO ERIEIRAI and cet Gack phir apt 

191, 88, 41, 127, 170, 169, 32, 172, 226, 0 minal program with a RUN 190 or a 

102 DATA 145, 224, 138, 32, 210, 255, 169, 160, 172, GOTO 190. For example, you could write 
226, 0, 145, 224, 76, 133, 230 a BASIC program startin 

: ; g at line number 

105 FOR I = 826 20 861: READ X: POKE I, X: NEXT 500, compute a bunch of data, POKE the 

110 POKE 537, 58: POKE 538, 3 data to the modem, and then return to 

115 POKE 49142, 3 the terminat program with a GOTO 190, 


120 


POKE 59468, 14 


130 PRINT "(cs) * * * ® TERMINAL * * #& %" Software 
140 PRINT "(cd) (cd) Type RUN 190 bute don't hit the return yet”. 

150 PRINT "(ed) Dial 935-9372 and wait for the tone”. The MC6850 Asynchronous Com- 
160 PRINT "{cd) Place receiver in holder and hit return". munications Interface Adapter (or, in the 
180 STOP buzz words of computertand, simply 
190 POKE 49142, 129 speak the letters A-C-I-A) is located in 


page B and has multiple addresses. | 


195 FOR I = 1 TO 30: NEXT: POKE 49143, 7 

200 GET AS: IF AS = “" GOTO 200 use hex BFF6 = 49142 as the address to 
210 IF ASC(AS) » "shift $" THEN PRINT "(cs)" POKE to the control register and to 
215 IF ASC(A$) < 192 GOTO 300 PEEK at the status register. Address 
220 IF ASC(AS) > 244 GOTO 300 BFF? = 49143 is used to POKE a byte to 
225 POKE 49143, ASC(AS$) ~ 192: GOTO 200 the modem and to PEEK at a byte from 


300 


POKE 49143, ASC(AS): GOTO 200 


the modem. 


The BASIC program provides direc- 
tions for the operator, data transfer from 
the modem to PET, data transfer from 


» 








NOTE: (cs) means clear screen and (cd) means cursor down. DET (o.IHG-“nGHen. “Bid inlecellancous 
Figure 2 programming needs. 
VERNAL OR Lines 101-105 POKE a machine 
PET REMORSE AERASON SURE language routine Into the second 
A28 < TRO cassette buffer, and line 110 POKEs the 
A2 = BAl +42 
A25 = SELB — 
A3 = BA2 
Al =z BAO 
A30 = “ye Yop 12h +5 = MODEM 
A29 = BO2 We RS " 10K 15K CORNECTOR ; 
A4O = BDI~—-——-715 DT 10 TXO 
A39 = BD6 16 D6 oe 
A38 = BDS 17. D5 yor 3 GND 
437 = BDH 18 DA iRQ 7 
A36 = BD3 19 D3 TxD 6 330 RXD 
A35 = BD2 20 D2 ase 
A34 = BDI 21 D1 nycURe NC 15K 
= 22 BO ib aeeeef eens oo 
Bi: eee 23 D&D RECLES ete 100PF 
= 4 CTS 
eae vss 1 2.7K 
+ MC6850 He 
32 p 8 
1.2298 cc) i — 
— 5 
15 pf ; 
= ca 2 
45 1 
2N2222 
=) 6.8K 
ie IRAING 
Figure 7 =" 
4i2 
268 
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address of this routine Into the interrupt 
address location of RAM so that, when 
an interrupt occurs, PET will check the 
ACIA before it checks the other possible 
Interrupt locations. 


When the ACIA receives a serial byte 
from the modem, It strips off the start 
and stop bits, converts it to parallel, and 
then Interrupts tha CPU. PET is than 
routed to the routine beginning at 033A. 


Lines 033A ~033C transfer the con- 
tents of the ACIA status register, to 
register X and lines 033D ~ 033E cause a 
branch if bit 7 is set, indicating that the 
ACIA did Interrupt the CPU and has a 
byte to transfer. Otherwise, lines 
033F — 0341 transfer PET to the ROM in- 
terrupt sequence. Lines 0342 - 0344 
transter a data byte from the ACIA to 
register A and line 0345 clears the CPU 
interrupt to allow for other interrupts. 
Lines 0346 - 0347 strip the parity bit 
from the data byte and iine 0348 
transfers it to register X for temporary 
storage. 


Next, to erase the cursor, iines 
0349 — 034A load A with $20 (note that 
CHRS$(32)is a blank). Lines 0348 - 034D 
get the current position of the curser on 
the video line and lines 034E — O34F then 
clear the cursor. 


To type the character, line 0350 
retrieves the data byte from register Xx 


and stores it in register A and iines 
0351 - 0353, than types the character in 
the next print position. 


To sat the cursor, lines 0354 — 0355 
load register A with $A0 (note that 
CHR$(160) = reverse blank} lines 
0356 - 0358 get the current position of 
the cursor on the video line, and lines 
0359 — 035A then set the cursor. 


Lines 0358 — 0350 then transfer con- 
trot back to the PET interrupt routine. 
Back in the BASIC program, line 415 
POKEs 3 Into the ACIA contro! register 
which then resets the ACIA. Line 120 
sets the lower case letter mode and then 
lines 120 - 180 print instructions and 


stop. 


Since the answer modem at Arkansas 
State University uses seven bits plus 
parity plus two stop bits, line 190 pro- 
grams the ACIA to transfer data in this 
moce. Reference 1 explains how to pro- 
gram other modes. Also, since the 
Arkansas State University computer in- 
itially walts for a control G, line 195 has 
a delay and then POKEs a 7=ASCIil 
CTRL-G {o the modem. Lines 200 — 300 
thon wait to get a character from the 
keyboard, convert the character to 
ASCII, and POKE it to the ACIA. 


Hardware 


The MC6850 is wired directly to the 
CPU bus through the memory expansion 


MICRO-WARNE ASSEMBLER 65XX-1.0 PAGE 01 


0010: 
0028: 
9030: O33k | 
OckO: OT3k AE FS 
9050: S329 22 93 
0060: 224F 4¢ 45 
0070: 3182 AD FT 
cota: ces $8 
0090: Jieo oF TF 
0109; Daud ak 
O1td: Tia? we 29 
0120: Giad he r? 
0130: c38h at 22 
OreG: T2a? ca 8 
oso: 22 eo fe 
ose: t°4 4% 2% 
O17G: 27S ae te 
of: aie7 gt £9 
orga: othe a! a4 
IDs 
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port. f use page B by wiring CS2 to SELB. 
Details of programming the ACIA can be 
found in reference 1. 


The 1.229 megaHertz cystal and the 
C4060 counter put out a 4800 Hertz 
square wave to the ACIA. The ACIA fur- 
ther divides It by 16 to obtain a baud rate 
of 300. Reference 2 indicates how to get 
other baud rates. The 741 op amp 
converts the RS-232 logic from the 
modem to TTL as described in reference 
3. 


You wilt need a +42 and +5 volt power 
supply. If you use a TTL compatible 
modem, you won’t need the 742 volt 
suppty and you can get +5 voits from the 
second cassette port. 


Questlons 


There are lots of software questions | 
have not answered. For example, how 
can a program be copied directly from 
the cassette to the modem? How cana 
program or data file be “saved” by sen- 
ding it to the storage facilities at the 
other end of the line and how can it be 
retrieved later? With the exception of 
displaying more characters, what can an 
expensive “smart” terminal do that PET 
can’t do? As | stated earlier, this article 
is merely a start. 


ORG $O3FA 

LDX $BFF6 GET STATUS REGISTER CF ACTA 
SMI $0342 BRANCH IF BIT 7 SET 

JMP $£685 JUMP TO PET INTERRUPT 

LDA $BFF7 GET SYTE FROM ACIA 

CLI CLEAR INTERRUPT FLAG 

ANDIM $7F STRIP OFF PARITY BIT 

TAX STORE THE BYTE 

CDAIM $20 CHR(32) = BLANK 

LOY $O0£2 GET CURSOR POSITION ON LINE 
STAIY $£&0 CLEAR CURSOR 

TXA RETRIEVE THE SYTE FROM X 
JOR $FFD2 TYPE IT AS A CHARACTER 
LOAIM $A0 CHR(160) = REVERSE BLANK 
LoY LOOE2 GET CURSOR POSITION ON LINE 
STATY $£&90 SET CURSOR 

JMP $E685 JUMP TO PET LNTERRUPT 

Figure 3 


#. CMOS Cookbook by Don Lancaster, 
Howard W. Sams and Company, tn- 
cotporated. 


3. Peripheral interfacing by Rod Hallen, 
KiILOBAUD Microcomputing, June 


1979. 
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PET Cassette I/O 
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No more lost files, missing d 





ata or elusive end of file 


marks! Now that great cassette 1/0 capability can be 


put to work. 


At first glance it would appear that 
cassette data storage on the Com: — 
iodore PET would be a snap. Upon try- 
—ing it, you soon discover otherwise. 
Three major problems soon emerge to 
frustrate the uninitialed. The PET does 
not read back all of the data you wrote on 
the tape. It misses the end of file mark, 
causing the system to crash, and occa- 
sionally it even refuses to find a file 

which you have written. 


The first two problems are related. An 
end of file mark is, after ail, data, so if the 
PET is skipping data it could (and dees!) 
just skip the end of file mark. Fixing the 
problem of skipping data will fix the 
problem of missing the end of file. 


The PET writes data onto the cassette 
tape in blocks of 192 characters, in- 
cluding carriage returns. The cassette 













100 REM PRINT NUMERIC 
410 PR$ = STR$(PR) 
120 REM PRINT STRING 


150 PRINT#1, PR$ 
160 RETURN 
180 DT = TI 


RETURN 
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130 LN% = LNZ + LEN(PR$) + 1 
140 IF LN% = 191 THEN LN% = 0 : GOSUB 180 


470 REM INTERBLOCK GAP 


190 POKE 59411,53 : IF DT + 10 = TI GOTO 190 





motor is turned off in between writing 
blocks. Before writing the next block the 
motor must be turned on, and time allow- 
ed for the tape to come up to its steady, 
proper speed. Apparently, when the PET 
operating system was written, the 
cassette decks came up to speed much 
faster than the cassette units supplied 
with production PETs. 


Because of this, the pause {interblock 
gap) is insufficient. When the PET at- 
tempts to read the block back, data 
starts before the tape is up to speed, re- 
sulting in the first few bytes of the block 
being garbled. Unfortunately, those few 
bytes are what identify the block as 
data rather than noise. As a result, the 
block is ignored completely and the PET 
keeps searching until it comes to the 
next block. Of course, the tape is at its 
correct speed by now, so this block is 
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read properly. The bottom line is that 
you lose every other block of data! 


To solve this problem you need to funnel 
all of your output to tape through a 
subroutine. The subroutine counts how 
many characters have been written and 
placed into the tape buffer. When it 
detects that the 192nd character is about 
to be written, it should reset its counter 
to zero, start up the cassette motor, and 
pause 1/6 second before allowing the 
character to be written. To start cassette 
#1, POKE 59411,53. For cassette #2, it’s 
POKE 59456,207. 


Use of this subroutine will eliminate the 
problem of skipped blocks. it will also in- 
sure that the end of file mark is not 
missed. 


The problem of unrecognized files ts 
another operating system idiosyncrasy, 
fortunately much simpter to fix. Ac- 
cording to Commodore, upon occasion 
the system will not properly initialize the 
tape buffer before opening a file. This 
causes the data to be placed in the 
wrong ptace in the memory of buffer. The 
system can't recognize the data when it 
opens for input because it just can't find 
it! The fix is simple. For tape unit #t, 
POKE 243,122; POKE 244,2 before open- 
ing the file. For tape unit #2, POKE 
243,58; POKE 2443 before opening. 
These POKEs initialize the pointers and 
eliminate the problem. 

The subroutines shown iNustrate one 
way to use the methods just described. 
Set PR or PRS equa! to the variable 
which you wish to print and jump to the 
approriate subroutine entry point. Do not 
forget to write an interblock gap before 
closing the file. 

Please note that even though you have 
stored numbers as ASCII strings on the 
tape, this is what the PET does anyway! 
You can stiil read it asa number. This in- 
formation should help you employ the 
great file handling capabilities built into 
your PET. 
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Plotting a Revolution 


a = RE a 


SS anneal 
An assembly language plotting routine that 
is callable from BASIC wiil simplify and 
speed up the high resolution plotting process. 


a nT Da DP 


What does fomenting rebellion have 
to do with microcomputing? Piotting a 
revolution refers to the creation of three 
dimensional figures, called solids of 
revolution, that are formed by rotating a 
two dimensional figure about an axis to 
form a solid. 


Solids of revolution can be generated 
and displayed, under BASIC, by using a 
fast, general purpose assembly langu- 
age plotting routine and a technique 
that allows the assembly lanquage 
routine to access BASIC variables. The 
plotting routine and the BASIC langu- 
age interface are building blocks used to 
construct a generalized program to 
display solids of revolution. 


Piotting Routine 


The purpose of the assembly langu- 
age plotting routine is lu simplify and 
speed up the high resolution plotting 
process. It also allows the operator to 
choose any point as the center and pilot 
coordinates relative to that center, anditt 
allows the option of plotting with a 45 
degree perspective. To accomphsh ail 
this, six parameters must ve passed 
from BASIC: P%, Q%, R%s. Xoe, Yee and 
2%. 


P% and Q% are the screen location 
for the center of the piot The scroen 
contains 80x50 plot positions so 
P% = 40 and O% = 25 would plot 
relative to the center of ihe screen. 


R% specifies the type of plot lf the 
zero bit of R% is set (R22 15 OSG), the pot 
is displayed as though wewad straignt 
on. If A% is even. the piot 15 ala ay 
degree perspective to the viewers agnt. 


if the one bit of R** is nol set. the plot: 
ting routine will plot Geer any nonplot 
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characters on the screen and erase 
them. If the one bit is set, non-plot 
characters on the screen will not be 


erased. The other bits of R% are ig- MICRO-WARE ASSEMBLER 65XX-1.0 
nored. 


X%, Y% and Z% are the coordinates 













of the point to be plotted. The X axis is s 
horizontal, the ¥ axis is vertical and the ® PLOTTING A REVOLUTION 
Z axis Is either vertical or at a 45 degree * MODIFIED 7-17-79 BY MICRO STAFF 
angle, depending on R%. . 
* PAGE ZERO VARIABLES FOR VERIFICATION ROUTINE; 
The most complex problem in making 1F08 STAT * $0023 
three dimensional plots is to draw only 1F08 VFLAG & $0024 
lines which are visible and to eliminate 1F08 VARY # $0025 
lines hidden to the viewer. The plotting 
routine can perform hidden tine elimina- ® PAGE ZERO VARIABLES FOR PLOTTING ROUTINE: 
tion automatically for one type of figure; 1F 08 PE * $0023 
a figure which can be imagined as an ob- 1F08 Qu * $0024 
ject covered by a very iarge, tight fitting 1F08 AR . $0025 
sheet. More precisely, the figure must 1F08 EX * $0026 
have a single Y value for each (X,Z) value iF 08 wy id $0027 
pais, and the bottom of the figure will be 1F08 ZE *# $0028 
hidden from view. 1F08 EXPP # $0051 
1FO8 WYPP Ld $0052 
lf such a figure is plotted, starting 1FO8 RHI s $0053 
with the lowest vaiue of Z and progress- IFO8 EXP * $0054 
ing in order to the highest value of Z, the 1F08 WYP a $0055 
1F.08 CHAR * $0056 
1F 08 FLAG € $0057 
1FO8 ORG $1F08 
1FO8 A2 60 LDXIM $00 BEGIN PLOTTING ROUTINE 
1FOA AO 02 LDYIM $02 
1FOC Bi 7C LOOP LDALY $7C TRANSFER VALUES FOR X% 
1FOE 10 10 BPL POSI Y%, 2% AND P$, Q8, 
1F10 C8 INY RS TO EX, WY, ZE, 
IF it C9 FF CMPIM $F AND PE, QU, AR, 
1F13 FO 05 BEQ NEGL RESPECTIVELY. REDUCE 
1F15 a9 60 BITR LDAIM $80 VALUES FROM TWO 
tFi7 NC 2A IF JMP STOR BYTES TO ONE 
IF té BI 7C NEGI LDATY $7C 
tFic 10 F7 BPL = BITR 
1F1E 30 OA BMI = STOR 
1F20 DO 05 POSI BNE TMCH 
1F22 C8 INY 
1F23 B81 7C LDALY $7C 
IF25 10 03 BPL STOR 
IF27 AQ TF TMCH LDAIM $7F 
W295 CB INY 
2A 95 23 STOR STAX PE 
ha 1F2C E8 INX 
IF2eD 98 TYA 
IF2E 18 CLC 
1F2F 69 06 ADCIM $06 
1F31 AB TAY 
tF32 C9 2c CMPIM $2C CHECK FOR END OF TRANSFER 
1F 34 DO D6 BNE LOOP 
1F36 AS 23 LDA PE COMPUTE EXP = PE + EX 
1F38 18 CLC 
1F39 65 26 ADC EX 
1F3B8 70 08 BYS OFLO 
; 1F3D 46 25 ’ LSH AR CHECK AR, IF ODD 90 DEGREE 
a 1F3F BO 06 BCS CLER PLOT, IF EVEN 45 DEGREES. 
. 141 65 28 ADC 2& IF 45, ADD AR TO EXP 
ae 1F43 50 02 BYC CLER 
mI 1F4S AQ 7F OFLO LDAIM $7F SET TO 7F ON OVERFLOW 
IF47 85 54 CLER STA EXP 
wag 18 CLC 
TFYA AS 24 LDA Qu COMPUTE WYP = WY + QU 
a art 1F4C 65 28 ADC ZE 
Me he finan areanmnnrnn nina lin aw ane? 1FHE 70 05 BVS  OVRF 
IF50 38 SEC 
iF5t ES 27 sBC OWY 
Figure 2: Sine wave rotated about the Y axis. 1#53 50 02 BVC OKEY 





we 9 ell cigar el Ab a anda ins ae Settee. CaP Kier kn 


Si snr 182, pees a EE eric Pee ea 5 bcm ak aide if Be i ons eae Pe ee oe 


wR 


















n line probl implifi 
eal tach poconeeerh a Caer ipoecagie CURE” ARAN) “Sear 
of printing the value of Y for each (X,Z) W57 85 2 meee hee $50 
and eliminating ail previously plotted Lata STA FLAG SET FLAG FOR FIRST ITERATION 
lower vajues of Y. The plotting routine ba ri rae MAIN STA RHI BEGIN PLOT 
accomplishes this process by simply nae a 3 STA CHAR | 
erasing al! points below the currently we re of LDA EXP 
plotted point. 1F63 85 51 STA EXPP Ps 
1665 30 04 BMI COUT ECK FOR EXP GREATER 
ee reece rot 69 30 oe eee 
quires that, for a given value of 2, an ae rs >t COUT ne : 
(X,Y) be computed for each feasible tree : YCHK LBA WYP 
value of X. Otherwise gaps in the plot Hits Pa 2 STA WYPP 
might leave non-visible points unerased. 1F70 30 78 BMI RTRN CHECK FOR WYP GREATER 
This process can be imagined as cutting 1F72 C9 32 CMPIM $32 THAN ZERO, LESS THAN 50 
the figure into slices paralle! to the XY 1F74 BO FS BCS COUT ; 
sel eee een aces up in 1FI6 46 51 GOON LSR EXPP DIVIDE EXP AND WYP BY 2 
onstitute the figure. 1F78 90 02 BCC XQUAD COMPUTE QUADRANT OF 
; 1F7A E6 56 InC CHAR PLOT POINT WITHIN THE 
antes, W can Os lumned oll with is ee ee ae 
statement “POKE 8181,96". This will ae oe Pi fe CHAR 
cause the routine to plot a point at X%, 1F82 E6 56 INC CHAR 
bi courelt Pe ist cbnetan sero eo eee ee ee 
the routine is equivalent to a two dimen- a ae cd amen BEQ ip TO QUADRANT 
~ gslonal plotting function. 1FBA OA ASLA OF PLOT POINT 
1F&u C6 56 DEC CHAR 
wF8D AC 86 IF JMP = ROND 
iFgO 85 56 ROUT STA CHAR 
IF92 06 §2 ASL WYPP TRANSLATE RELATIVE COORD 
Fgh 06 52 ASL WYPP OF PLOT POINT TO 
1F96 06 52 ASL WYPP SCREEN LOCATION FOR 
1F98 AS 52 LDA WYPP POINT. X + 40 4 Y 
IF9A 06 52 ASL WYPP 
w9C 26 53 ROL = RHI 
iFGR U6 52 ASL = wWYPP 
FAO 26 5 ROL RHI 
IFA2 65 52 ADC WYPP 
FAH 85 62 STA  WYPP 
4 1FA6 AS 53 LDA = RHI 
i oe ag “4 IFAB 69 00 ADCIN $00 
* Sale ie Gk ee uae Re en WFAA 85 53 STA RHI 
"Gta ee ee Te ateaee Od WAC &5 52 LDA = WYPP 
Hh to a oe Th geet gf WEAR 65 51 ADC EXPP 
Ae then add teat eg 1FHO 85 52 STA WYPP 
wo aie ne iFb2 90 02 BCC —- PLUS 
eb enw a samnrabeilec dt dak atheists Rl Sd Poe 1FB4 E6 53 Inc RHI 
Pee ee en a eens 1FB6 18 PLUS CLC 
Piel fe iB? AQ 80 LDAIM $80 
a \ OIFBG 65 53 ADC RHI 
~} ot - % IFHE 85 53 STA RHI 
socks ae . '¥ ED 40 10 LDYIM $10 FIND CHARACTER ALREADY 
+ 4 ace IFEF A2 00 LDXIM $00 AT SCREEN LOCATION 
Be Ban IFC AY §2 LDAIX WYPP 
oh Ome 1FC3 88 AGIN DEY 
3 1FCK D9 BR IE CMPY TABLE 
FCT FO OB BEQ ROVR 
weg CO 00 CPYIM $00 
iFCB BDO F& BNE AGIN 
IFCD 46 25 LDX = AR IF CHARACTER NOT IN TABLE, 
CF FQ 03 BEQ NOVR CHECK AR FOR OVERWRITE 
1FD1 SC ED 1F UMP. RTRN INDICATOR (2ND BIT) 
DY AS 57 NOVR LDA FLAG FIRST ITERATION? 
1FD6 FO OC BEQ SETH 
q 1FD8 aS 56 LDA CHAR I NOT FIRST ITERATION, 
FDA kg OF EORIM 30F BLANK OUT CHARACTER ON SCREEN 
A VIX 85 56 STA CHAR 
ek nu aerate Hani enn IFLE 98 TYA 
VFLE 25 56 AND CHAR 
been cornects FEY &C £7 IF JMP PLOT 
Figure 3: The prope ior ca ar FER 98 SETH TYA IF FIRST ITERATION, 
drawing a line betwee me ES 05 56 ORA CHAR PRINT NEW CHARACTER 
: aps. FET 48 PLOT TAY 
eliminating the 94P 
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1FE8 Bg 
1FEB 81 
IFED Ag 
IFEF 85 
WFF1 E6 
1FF3 A9 
1FF5 4¢ 
1EB3 

1EB3 20 
1EB4 7E 
1EB5S 7C 


B3 OIE 
FF 
57 
55 


5D iF 


TEB6 E2 


1EB7 7B 
TEBS 61 
1EB9 FF 
1EBA EC 
1EBB 6C 
1EBC 7F 
1EBD £1 
TEBE FB 
1EBF 62 
1ECO FC 
1EC1 FE 
1EC2 AO 
1EC3 a9 
1EC5 85 
1EC7 AO 
TECQ BH 
1ECB 88 
1ECC BY 
1ECE E6 
1ED0 18 
1ED1 26 
1ED3 Bi 
1ED5 C5 
TED7 FO 
JEDJ AS 
1EDB 05 
1EDD 85 
1EDF C8 
1EEO B1 
1EE2 C9 
1EE4 FO 
1EE6 A5 
1EE8 05 
1EEA 85 
1EEC 98 
YEED 18 
1EEE 69 
1EFO A8 
1EF1 C9 
tEF3 FO 
1EF5 C9 
~ 1EF7 DO 
1EF9 AS 
1EFB 69 
1EFD 85 
1EFF AC 
1F02 A5 
1FO4 &D 
1FO7 6¢ 


06 


2A 
oD 
15 
D5 
25 
o4 
25 
CE iE 
23 
0c 02 


RTRN 


TABLE 


IFACE 


INIT 


CHEK 


RPET 


END 


LDAY 
STAIX 
LDAIM 


| | | 


LDAIM 


LDYIM 
STY 
DEY 
STY 
INC 
CLC 
ROL 
LDATY 
CMP 
BEQ 
LDA 
ORA 
STA 
INY 
LDAIY 
CHPIM 
BEQ 
LDA 
ORA 
STA 
TYA 
CLC - 
ADCIM 
TAY 
CMPIM 
BEQ 
CMPIM 
BNE 
LDA 
ADCIM 
STA 
JMP 
LDA 
STA 
RTS 


SYMBOL TABLE 2000 2114 


AGIN 
CHEK 
EX 
GOON 
MAIN 
OKEY 
PLUS 
ROND 
SETR 
TMCH 
WYPP 
YQUAD 


1FC3 
JEDF 
0026 
1F76 
1F5D 
1F57 
1FB6 
1F 86 
1FE4 
IF 27 
0052 
1F 94 


AR 
CLER 
EXPP 
IFACE 
NEGI 
OVRFE 
POSI 
ROUT 
STAT 
VARY 
WY? 
ZE 


0025 
IF 47 
0051 
1EC3 
FIA 
1F55 
1F20 
1F90 
0023 
0025 
0055 
0028 


TABLE 
WYPP 
$FF 
FLAG 
WYP 
$00 
MAIN 
$1EB3 
$20 
$7E 
$7¢ 
$EC 
$7B 
$61 
$FF 
$EC 
$6C 
$7F 
$81 
$FB 
$62 
$FC 
$FE 
$a0 
$cF 
VARY 
$01 
VFLAG 


STAT 
VARY 


YFLAG 
$7C 
VARY 
CHEK 
VFLAG 
STAT 
STAT 


$7C 
$80 
RPET 
VPLAG 
STAT 
STAT 


$06 


$2A 
END 
$15 
INIT 
VARY 
$04 
VARY 
INIT 
STAT 
$020C 


SET FLAG TO NEXT ITERATION 
INCREMENT POINT FOR ERASING 
AREA BELOW POINT 


BEGIN VERIFICATION ROUTINE 


LOAD CONTENT OF WORKING 


STORAGE AREA 


COMPARE VARIABLE NAME 


FIRST CHARACTER 


IF CHARACTER INCORRECT 


UPDATE STAT 


SECOND CHARACTER 


IF CHARACTER INCORRECT 


UPDATE STAT 


MORE TO NEXT VARIABLE 


CHECK FOR END OF LOOP 
BEGIN ROUTINE TO SKIP 


FROM R%& TO X% 


STORE STAT IN STATUS 


tF15 
1F6B 
0054 
1ECE 
1FDY 
0023 
0024 
1EEC 
TF2A 


VFLAG 0024 
XQUAD 1FT7C 


CHAR 
END 
FLAG 
LOOP 
OFLO 
PLOT 
RHI 
RTRN 
TABLE 


YCHK 


The routine is written to reside in the 
upper portion of 8K RAM. Under most 
circumstances, this area is not used un. 
til the BASIC program employing the 
routine gets too large. If the BASIC pro. 
gram requires certain string manipula. 
tions, however, PET may use high RAM 
for string working area and clobber the 
plotting routine. For example, the se. 
quence A$ = "123":8% = “456”: 
C$ = A% + B$ will cause C$ to be 
stored in high RAM and destroy the plot- 
ting routine. 


The routine is designed to be saved 
using the PET Machine Language 
Monitor. The routine is first entered in 
memory using the monitor and then say. 
ed with "S,01,PLOTTER,1EB3,1FF8”. 
Once saved, the routine can be loaded 
as would any other program, with LOAD 
“PLOTTER”. The BASIC program using 
the routine can then be loaded in the 
normal manner. 23 
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0053 
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0027 ~—s Figure 4: The solid formed by rotating Y = 75 exp 


1F6C (~— X/3) about the Y axis, 
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Figure 5: The solid formed by rotating Y = 1/2 cos 
(3X) + cos(X) about the Y¥ axis. 


BASIC Interface 


Since the assembly tanguage routine 
requires that the six parameters be pass: 
ed from BASIC, the USR function wiih ts 
single parameter argument cannot be 
used. POKE wil! not work, einer, be- 
cause it will not accept negative Values. 
The method i used to overcome thes pro- 
blem was to have the assembly largu: 
age routine access the BASIC working 
aroa to obtain the required parameters. 


After ihe run command ts given. PET 
BASIC takes each variable in the ordre it 
is encountered and creates & worwing 
storage area for it following Ine iast 
BASIC statement. For non subscnpled 
variables the working storage ‘4 fovart 
bytes tong. The first two tales ne no 
variable name and tne next fee ata 16 
current value. 





Floating point variables are stored in 
normalized form, while integer variables 
are stored as two-byte signed numbers. 
tne adcreas ot the starting byle of the 
vatiable storage area is stored in loca- 
tlon $7C. Far simplicity, the plotting 
rmuine assumes that the six required 
parametors—P%, Q%, R%, X%, Y%, 
end Z*+—are the first six variables in 
{he ¢rogram and are in that order. 


To insure that afl the required 
variables ara in the proper ptace and in 
the proper sequence, the assembly 
language program includes a verifica- 
ton routing starting at focation $1EC3. 
This routing is called with the statement 
“SYS (7875)" and checks for the 
presence and correct sequence of each 
parametee The results of the checks are 
stucedinihe PET status wor i 
eae ord at iccation 
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If the value of the status word, ST, is 
zero, all varlabies were located. if one of 
the variables is not located, the cor- 
responding bit of ST will be set. For ex- 
ample, ST = 6 would mean bits 1 and 2 
are set and thus that P% and Q% were 
not found. Bit zero is not used. A typical 
sequence to establish and verify the 
BASIC routine would be: 


The important point is that the six 
plotting variables must be the first six 
variables mentioned in the program, and 
they must be in the required sequence. 
Normally, the verification routine will on- 
ly be used for diagnostic purposes. The 
plotting routine itself is entered with the 
statement “SYS (7944)”. 


BASIC Programs 

The plotting routine described above 
can be used for any three dimensional! 
plot that satisfies the requirements of 
being single valued in Y and having only 
the upper surface visible. For example, 
Figure 1 is a graph showing the effects 
of combining two sine waves of different 
frquencies. The difference in frequency 
is a function of Z; Y is amplitude and X is 
time. 


Figure 2 is a solid of revolution formed 
by rotating a sine wave about the Y axis. 
The program is written a generalized for- 
mat, and any function can be used in 
line 300 as the function generating the 
solid. 


The scale and perspective of the 
figure are determined in tines 30 thru 50. 
XR is the actual maximum vaiue that X 


_ can take, while — XRis the minimum. XP 


is the number of plot points that the 
distance XR will cover. For Figure 2, the 
X value runs from - 1.5 pi to 1.5 pi andis 
plotted from -35 to 35. Changing XP 
changes the width of the plotted figure. 


Similarly, the actual range of Y is YR, 
and YP is the plotted range of Y. Chang: 
ing YP changes the heighth of the plot- 
ted figure. The XZ cross section of the 
figure is circular so the actual range of Z 
is the same as X — XR. However, the 
plotted range of Z - ZP depends upon 
perspective. 


The farger ZP, the greater the ap- 
parent depth of the figure and the higher 
the apparent position of the viewer. The 
value YS in line 150 represents the 
lowest plotted value of Y or the base of 
the figure. 


A potential problem with the program 
is that while each point in the X direction 
is plotted, not every point in the ¥ direc- 
tion ts. Thus for Z = 0, two consecutive 
plot points might be (Xq = 3, ¥4 = 12) 
and (Xo = 4, Y2 = 9). While X1 and X2 
are adjacent, Y1 and Y2 are not. The pro- 
tiem of such gaps is esthetically more 
severe with some figures than others. 
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In Figure 3, the problem has been cor- 
ected by drawing a line between plot 
points and eliminating the gaps. Ths 
program for Figure 3 is the same as for 
Figure 2 except that the section between 
lines 300 and 400 has been modified. 


Figure 4 is a plot of the solid formed 
by revolving Y = 15e—%/3 about the Y 
axis. The program is the same as for 
Figure 3 except that line 300 contains 
the new function, line 150 is changed, 
and lines 10-50 contain the new center 
and scaling factors. Figure 5 is the soild 
of revolution of Y = Yecos(3x) + cos(x) 
about the Y axis. The program Is the 
same as that of Figures 3 and 4 except 
for lines 10-50, 150, and 300. 


The process of rotating the plane 
figure to obtain a solid of revolution is Il- 
justrated in Figures 5 and 6. As describ- 
ed before, the plot for a given value of 2 
is equivalent to a vertical stice through 
the solid parallel to the X axis. Figures 5 
and 6 represent views of a solid form 
above and the dotted line is the path ofa 
vertical stice. 


The maximum radius of the solid is 
XT. The apparent distance of a point on 
the circle from the circle’s center (view- 


Figure 7: View of a solid form above illustrating 
the problem of computing the Y value for each X 
value. 









ed straight on) is XL. XL is computed in 
line 200 of the programs for Figures 2 
through 5. . 


The next step is to find the Y value for 
each point on the dotted line between 
~ XL and Xt. The FOR loop in fine 210 in- 
sures that each possible X value is used. 
The process of computing the Y value 
for each X value is largely the reverse of 
the process described above and is i- 
lustrated in Figure 6. 


Viewed from the top, the contours of 
the solid form concentric circles. That is, 
the Y value of every point at a given 
distance from the center is the seme. 
For a point along the dotted line at an 
apparent distance XI from the center, 
the Y value will be the same as for a 
point where the inner circle crosses the 
Z = O line. 


The distance of either point from the 
center is the square root of 
(Xl2 + ZT2)The calculation is perform- 
ed In line 220 and the resultant distance 
is used to compute the Y value In line 
300. The plotting function is called in 
line 380 and uses whatever values of 
X%, Y% and Z% are then current. 


Figure 6: View of a solid fram above. The dotted 
line is the path of a vertical slice. 
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New and Beiter PET 
User Port Printer Routines 


se SRL PTS a a ee 
A series of programs are presented which drive any TTL, 
parallel, or ASCII printer from the PET’s user port. 


a rr 


This article describes three programs 
which drive a printer from PET’s user port. 
Any TTL, paratiel, ASCIt, printer can be 
driven. Two of the programs are in 
machine language and one is in BASIC. 


Although there are several IEEE to 
serial and tEEE to parallel adaptors 
available for the Pet, the user's port is 
often needed to drive an ASCII device. In 
my case | saved $100 dollars by using the 
user port to drive my Trendcom printer. 
No hardware (except a cable and two con- 
nectors) is required. The software is 
equally simple: A printer driver with hand 
shake and a screen reader. 


There are several reasons to drive your 
printer or other ASCH! device from the 
user port. First, it is quick and easy. Se- 
cond, some of the IEEE to ASCI! adaptors 
respond to any and ail device addresses. 
Third, if you already have an adaptor, the 
user port allows a tempory installation 
without interfering with existing devices. 
Another reason is that it allows you to 
have better and more direct control over 
the output. Both data and hand shaking 
can be done explicitly with software. 
Finally, and for me most importantly, it 
saves money. Just $2.19 for a ribbon 
cable and two junkbox connectors, had 
me printing 


in genera! the following two programs 
comprise a screen printer. Two 
parameters can be adjusted by the cail- 
ing program (or as direct commands): 
Start point, and + of rows (if im- 
plemented in RAM), Thus a specific area, 
or window, of the screen can be printed. 
The two programs are named: 1. Printer 
Driver and 2. Screen Reader. For timing 
reasons Printer Driver is implemented on- 
ly in machine Janguage. Screen Reader, 
however, can be implemented either in 
machine language (Version A) or BASIC 
{Version B). 


Michael Tulloch 
103 White Cr. 
Niceviile, FL 32578 


{HBwA POKERSGsLS  SYDeess 
FORR=ATN2S: FORLRATOSS 
{GG1@ A=PEEK( 22768+C+R#40 
{@ais IF A=18 AND C= THEN STOP 
1@@2@ IF A<=31 THEN A=A+64: :GOTOLaSSR 
{GAZA IF Ac=E3 THEN i6ot03 
1@94@ IF A>127 THEN A=R-127: GOTO1LGSE6 


1445 A=A+32 


1@860 POKES5SO,A:S¥Se25 
1OB7A NEXT C:POKESS@, 13: S75ae8 


19088 NEXT R 
Lae RETURN 
READY. 


Let's start with the easy one first— the 
BASIC Screen Reader. Figure 1 is a listing 
of this routine. Line 1000 clears the small 
printer buffer by making a carriage return 
and calling Printer Driver {located at 826 
in this example). Line 10005 forms the 
screen reading loops with R the Row 
counter and C the Column counter. Here 
only eleven lines are printed. The Screen 
Value is placed into A by line 10010. Lines 
40020 through 10045 convert the screen 
value to its equivelent ASCil code. Notice 
that graphic characters are printed as 
lowercase letters if they are on letter 
keys. Reversed letters are printed as not 
reversed letters, and not ali graphic 
characters are printed. Figure 2 gives a 
sample of print out for the PET character 
set. The equivaiant screen values are 
though 255. Version A is the machine 
language equivalent of Screen Reader. 
it's principle advantage is that it runs 
hundreds of times faster. In fact, on my 
Trendcome 100, which prints bidirec- 
tionally, you can't even see it hesitate 
between lines. At the Trendcom’s 40 
char/isec rate, a full screen of 1000 
characters is printed in 30 seconds. Not 
Bad! 


Figure 1 


Another advantage is that you can hide 
it in the second cassette buffer and load 
it in only once. The BASIC version has to 
be attached to your program somehow. 


A flow chart is shown in fiqure 3. It is 
annotated for the machine langage ver- 
sion. Figure 4 shows the dissassembled 
code. 


Block |! initializes all registers. The 
screen read address is initialized to 
32767. This is one less than the upper teft 
screen start address value. Memory loca- 
tion 995 ($03E3) is ihe number of Rows to 
be printed. it's used as the Row counter. 
A column counter is stored in 992 (O3E0). 
It is initalized with 40 and 40 is held in the 
X register for later use. 


Block It increments the screen read ad- 
dress. Block {II gets the screen value oc- 
cupying the screen read address. This 
value is stored in location 996. Block IV is 
the adjustment routine. This is different 
from the scheme used in the BASIC pro- 
gram. instead of using subtraction, addi- 
tion is used. Although the !ogic is in- 
verted from the BASIC proaram, the value 


ecm peer epanpng ana emg NC cA FL i a el ea A AS SN 


cape ates ARS 
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adjustments are the same. Critical tem- 
porary storage rigisters in addition to the 
program itself are listed in table I. The ad- 
justed value is passed to the Printer 
Driver (Block Y). 


When control returns to Screen Reader 
the colums counter is decrimented. If the 
column counter is not equal to zero, then 
it is reset to the value stored in the x 
register {normally 40). Rows are then 
decrimented (Block IX) 


Block X checks for the row counter. 


equal to zero. If it is not, then a new 
screen value is read. If it is then that the 
program returns control to the calting 
routine. 


The Printer Driver routine dissassemb!- 
ed listing is shown in figure 5. 


oe oman vem eres eee ee 


Printer Driver takes a value (here stored in 
85210), places it on the user port output 
lines, provides a data ready output pulse 
and waits for an ACKnowledge pulse. 
NOTE: $f no ACK pulse is returned the 
program will continue to hold the PET off 
line. You must assure an ACK pulse will 
always be returned! 


The above description of Printer Driver 
also sets up the Via registers. Each time 
it is entered it resets these registers for 
its own use. Only the E84C register is 
restored to its original value. Further, the 
routine inhibits interrupts. If an interrupt 
were to occur during the brief time a data 
ready pulse was being given, multiple out- 
puts could be caused (and it does hap- 
pen). There is also the chance that the 
ACK pulse would be missed, leaving PET 
in Limbo. Unfortunately this bit of protec- 


tion has an adverse side affect. PET's in- 
ternal clock will not keep correct time. 
Depending upon the amount of printing 
and your printer's characteristics this er- 
ror can be substantial. 


There are several improvements which 
could be made to these routines. Revers- 
ed character handling could be added to 
the “A” version of Screen Reader. Blanks 
could be output for nonprintable graphics 
characters. Codes could be developed for 
cursor command characters. You will pro- 
bably want to make changes for your par- 
ticular printer. There is room within 
Printer Driver to add a delay loop or NOPs 
to stretch the output pulse. Finally, 
Printer Driver can be used alone by pass- 
ing ASCII values directly. Simply use 
PET's ASC ( ) command and Poke loca- 
tion 852. 


Table I 

Decimal Hex Function 

1.2 $1.2 Screen read address 

992 $030 Column Counter 

993 O3E1 Row counter 

995 03E3 Row input value 

996 O3E4 Screen value 

852 0354 Value of output charater 
64@ 855A 66B bel bs 6YE Baa FAS 47% FBE SS" 4ar 
WEF 7iG 7eH 721 74 TSK - - i>) 42% 43+ 44, 45- 45. 
76L 77H 78N 790 SBP siv 47/ 484 491 S82 Sis 324 
G2R B25 B47 HOU BEY ork 535 946 557 563 579 38: 
Q8xX 89Y 982 91f 32s 33) BG; BAC Biz B2> G27 Se” 
O4. 95. 32 FE! 24° Fhe 97a 93b 99¢ 10Ad 19ie Leet 
36% 37% 39% 39% 400 41> {Oz 1Gdh 185i 1Gej inv. iiss 
42e 42+ 44, 45- 46. 477 {aan 11am i110 112P i138 Liar 
429 491 5a@2 513 524 553 15S 11Gb 117U fisv iricy ices 
S46 So? S68 S79 Se: 353 {21Y 122z 123{ 124i 1233 igo~ 
GA< Gi= 62> 637 3B. Yrs 127 128 124 178 lai ise 
Qabb GSc 1AAd iGie iGzr ifSe 133 124 125 138 137 iss 
{Bdh 185i 186) 187k issi Loom 179 140 141 
1Wn iiie 112e 1134 114m 1155 142 143 144 
116t 1174 119v 119” iewx iziy 145 146 147 148 145 i120 
Wrz 1220 1241 W202 remy ler 151 i152 153 154 155 156 
123 123 139 121 132 i133 7 158 159 BSA Fe te 
124 175 1768 137 128 iss 32 32 32 32 32 32 
14a 141 32 32 32 32 fz 2 
142 143 144 145 32 32 3e 32 32 32 
146 147 148 149 15% i531 Z> SP Ge 22 Fe te 
{52 153 154 155 156 157 32 22 32 32 32 Se 
152 159 &SA SEE STL Bu 3p 7D %F2 Be Be te 
SSE PAF 716 72H 73I 74J 32 32 32 22 32 32 
75K VEL 77H 7EN 790 Bar BZ? 22 22 32 32 te 
810 82R a3S S47 35 sav 32 32 32 32 32 32 
B7H BaK BOY GAZ SIT 32s 32 G2 22 22 32 Ye 
$3} 94* 95. 32 33! 34" se. ‘32 

Figure 2 
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SET UP Figure 3 
ZERO PAGE 
JUMP REF 


SET 
ROW 
COUNTER 


SET 
COLUMN 
COUNTER 


' ENTRY 


vi. Inceiment 
JMP 
Raference 


GET GET SCREEN 


Km 


Cx VI 


XK vit BLOCK IX 






OUTPUT 
CARRIAGE RET 


* END 
RETURN siete 


OCK X 









STERT 


TIVE 1&0 


Figure 4: Machine Language Listing 
that the listing Is for « high memory 


following hex lines must 


feed 


De gt] 


oo 
ad o 
tee tee Ne 


ECREEM REET OS 


ENo gee 


DATE 21773 


$7OF3, $7OF8, $7102, $710D, $7123, $712E, $7131. 


WOAE 


TOAE 
7OBG 
7062 
70B4 
7066 
70B6 
7066 
7GBE 
70CO 
70C1 
76C4 
7OC5 
76C7 
70C9 
70CB 
70CB 
7OCF 
7001 
7002 
70D4 
7067 
709 
7U0b 
7ODE 
40E0 
70E2 
70E5 
7OE7 
JOEY 
7OEC 
7GEE 
7GEF 
70F 0 
TOF 3 
TOF 6 
7OF9 
7OFA 
7OFB 
FOFE 
7OFF 
7101 
7102 
7105 
7106 
7107 


AG 
A2 
86 
A2 
86 
AE 
BE 
AZ 
EA 
&E 
1b 
AS 
6% 
85 
AS 
69 
65 
16 
bi} 
6D 
69 
bO 
AC 
69 
50 
AL 
69 
BO 
AD 
69 
EA 
EA 
8D 
20 
4C 
EA 
EA 
AD 
36 
18 
4c 
EA 
EA 
AD 


8) 
FF 
Ol 
aE 
62 
E3 
El 
26 


Ol 
Gl 
Ol 
G2 
00 
02 


01 
E4 
WF 
lf 
E4 
CU 
25 
E4 
El 
37 
£4 
40 


D4 
3A 
12 
£4 
86 


04 


£4 


03 
03 


03 


03 


03 


03 


03 
71 
71 


03 


70 


D3 


GRG {70AL 
LOYIM $00 
LDXIM $FF 
STXZ $01 
LDXIM $7F 
STXZ $02 
LOX $0363 
STX $0361 
LOXIM $28 
NOP 
STX $03E0 

LBLA CLC 

LBLB LDAZ $01 
ADCIM $01 
STAZ $01 
LDAZ $02 
ADC1M $00 
STAZ $02 
CLC 
LDALY $61 

LBLC }8=6STA = $G3£4 
ADCIM $7F 
BCS  LBLE 
LDA $0364 
ADCIM $CO 
BCS  LBLF 
LDA $034 
ADCIM $61 
BCS  LBLH 
LDA $0364 
ADCIM $40 
NOP 
NOP 

LELD STA $0354 
JSR $713A 
IMP =e LBLG 
NGP 

LBLE NOP 
LDA $0354 
SEC 
SBC1K $80 
CLC 
JMP = =LBLC 
NOP 
NOP 

LBLF LDA $0364 


of Version A Screen Reader. Note 
location. Addresses found at the 
be changed to relocate the program: 


ee mL 


eet te ee ee ee ed = 
eS Le Ne dee ee ts 
oa *. SPL ical a Ml 


710A 18 CLC ' Figure § 


7108 69 20 ADCIM $26 
7106 4C FO 76 IMP LBLD 713A ORG $713A 
7116 EA NGP 
7111 EA NOP TIBA AY FF LDAIM $FF 
7112 CE £0 03 LBLG DEC $03E0 713C 6&0 05 £6 STA E803 
7115 BO AE BNE LBLB 713F AD 4C E& LDA = $EBAC 
7117 8E EO 03 STIX $03£0 7142 46 PHA 
711A CE £1 03 DEC §3=— $03E 1 7143 Ag FE LDAIM $FE 
7110 06 09 BNE LBLI 7145 8D 4C EB STA  $E64C 
FLLF 60 RTS 7148 AD 4B C8 LDA $€64B 
7120 AD E4 03 LBLH LDA $0564 7146 29 £3 ANDIM $63 
7123 4C FG 70 JMP OLBLD 714D 8D 4B £6 STA $E84B 
7126 EA NGP 7150 fA NOP 
7127 EA NCP 7151 EA NGP 
7126 EA LBLI = NOP 7152 78 SE] 
7129 A OD LDAIM $OC 7153 AD 54 03 LDA $0354 
7126 &D 54 03 STA $0354 7156 60 41 £8 STA $841 
712ZE 20 3A 71 JSR = $713A 7159 AD 4C E8 LCA = $EB4C 
7131 4€ C4 70 JMP = =LBLA 715SC 29 IF ANDIM $1F 
715E O09 CO GRAIM $CO 
7166 8D 4€ E68 “STA = SE BAC 
~ 7163 EA NOP 
7164 EA NOP 
7165 EA NOP 
7166 ECA NOP 
_ 7167 AD 4C £6 LDA $£864C 
716A O09 EO GRAIM $E0 
716C 6D 4C £6 STA $E&AC 
716F EA NOP 
7170 18 CLC 
7171 «EA NOP 
7172 AD 4D E8 LBL LDA $&84D 
7175 29 G2 ANDIM $02 
7177 FO F9 BEQ LBL 
7179 18 CLC 
7Ti7A 60 RTS 
717B EA NUP 
717C EA NOP 
717D EA NOP 
TI7E OO BRK 
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Multiplexing PET’s User Port 





What do you do when you need to Input or Output more 
bits of data than your micro can handle? You multiplex! 
This is not very difficult with a little special hardware and 
very simple program. This implementation is on a PET, 
but can be used on any system. 





Part of my duties as a chemist in- 
voive taking readings from an analytical 
instrument. The data consists of a series 
of six digit numbers. These are dutifully 
copied down on paper and later key- 
punched into a large computer. The cal- 
culations could easily be done in BASIC 
on a personal computer if there were 
some way to automatically get the data 
into the computer. 


The data is presented on the front 
panel as six 7-segment LED readouts. 
However, the rear panel supplies the data 
i) BCD (Binary Coded Decimal) format. 

ich decimal digit is represented by four 
“binary bits. Numbers above 9 (binary 
1001) are not allowed. For six decima! 
digits a total of 24 bits is required. Unfor- 
tunately most small persona! computers 
such as the PET have only an Bbit 1/0 
port. 


The solution is to multiplex, or Com- 
bine the data into fewer input lines. For 
example, each decimal digit has a 1,2,4, 
and 8 bit. These 24 bits of data could be 
wired through a 6-position, 4-pole switch 
to produce four outputs. The computer 
could then read one digit at a time, 
change the position of the switch and 
read again until all six digits are read. 
The decimal number must then be recon- 
structed by multiplying each digit by }, 
10, 100, etc., and summing the results. 





A mechanical 6-position switch is 
not really practical for computer opera- 
tion, but the electronic analog exists in 
the 74LS151 integrated circuit. The 
74LS$151 is known as a 1-of-8 data selec- 
tor and acts [lke an &-position single 
pole switch. This chip has eight inputs 
(pins 1,2,3,4,12,13,44,15} and one output 
(pin 5). Three additional pins (9,10,11) 
control which of the inputs is connected 
to the output. 


tf four 74LS151's are used, we have 
an 8-position, 4-poie switch. The 1’s bits 
from all the decimal! digits are connec- 
ted to one data selector. All of the 2’s 
bits are connected to a second data 
selector, etc. The output from the four in- 
tegrated circuits are connected to the 
four lowest bits (Do D1 D2 D3) on the PET 
input port. The next three bits of the /O 
are set to outputs (D4 D5 D6) and used to 
control ihe 1-of-8 data selectors. Since | 
wasn't sure how much current the PET 
output could supply, | used a 74LS04 hex 
buffer between the PET outputs and the 
data selector control lines. The highest 
bit (D7) is used as a fiag in my applica- 
tion to signal the computer that a 
number needs to be read. 


Figure 1 gives a schematic drawing 

of the circuit. For clarity, the +5 voit 
connection {pin 16) and ground connec- 
tion (pins 7 and 8) are not shown on the 
data selectors. i built this circuit on a3” 
x 4" perf board which plugs directly in- 


E.D. Morris, Jr. 
3200 V/ashington 
Midland, MI 48640 


to the PET user port. If low power logic Is 
used, the circuit requires 5 volts at 
20ma. This could be taken from the PET 
second cassette port. Since Commodore 
warns against this, | added a 5 volt 
regulator to tiny board and stole unregu- 
lated 9 volts from the computer. Before 
plugging this circuit into your computer, 
you should power it up with an external 
supply and verify that each input works 
when tested with a voltmeter. 


The foliowing program will allow the 
PET to read a 6-digit decimat number 
through the user port, 


10 POKE 59459, 112 
20 A= 59471 


30 FOR I=0 T0 5 

40 Po I#16 

50 POKE A,P 

60 B(I) = PEEK(A)AND15 

70 NEXTI 

80 C=B(0) + 10*B(1) + 100%B(2)- 
+ 1000*B(3) + 10000*B(4) 

+ 100000*B(5) 


90 PRINT C 


An Additional I/O Interface for the PET 





Interfacing 


a VIA 6522 to your PET is simple. 


APL SE a 


The 6522 VIA chip has a lot of in- 
teresting features, however, many of 
ther are on the “PB'side of the chip. 
The Commodore PET does not have the 
“PB” lines on its user port, only the 
“PA” lines. The following interface gives 
not only the wanted “PB” lines but also 
an extra set of “PA” tines &CB1, CB2, 
CA1, & CA2. 


The Hardware 


The circuit itself uses only a 6522 
VIA and two 7411’s. It is mostly direct in- 
terfacing, other than the address lines 
which had to be decoded. Once built, it 
connects directly to the Memory Expan- 
sion Port. 


The interface (in figure 1) is design- 
ed to occupy the top 16 bytes of RAM. It 
should be noted here that adding 
another interface is as simple as chang- 
ing the address decode. For example, by 
placing an inverter on “BA4" (see figure 
2)the circuit would occupy the 16 bytes 
of RAM just under the top 16 bytes. 
{note-if you build both of the circuits 
from figures 1 & 2 you would have two 
VIA’s and would be using the top 32 
bytes of RAM). The original circuit is 
shown in figure 7. 


The Software 


After connecting it, operation is 
very simple. The addresses concerned 
and what they are follows. (for the circuit 
shown in figure 1) 

32752 - QRB 

32753 - QRA 

32754 - DORB 
32755 - DDRA 
32756 - TIL-L TIC-L 
92757 - TIC -H 
32758 - THL-L 

32759 - TIL-H 

32760 - T2L-L T2C-L 
32761 - T2C-H 
32762 - SR 

32763 - ACR 

32784 - PCR 

32765 - IFR 

32766 - IER 

32767 - ORA (no handshake) 


The operation is as with other ViA-- 
PEEK POKE etc., only with the previous- 
ly listed addresses. 

Note--for the addresses which 
operate the circuit in figure 2, simply 
subtract 16 from each address. 


Output Exampte 


To create a tone on CB2 for the cir- 
cuit in figure 1; 
POKE 32763, 16 (ACR) 
POKE 32762, 15 (SR) 
POKE 32760, 155 (Timer 2} for the 
circuit in figure 2. 
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POKE 32747, 16 (ACR) 

POKE 32746, 15 (SA) 

POKE 32744, 155 (Timer 2) 
For further specs. on the “PB” port of 
the 6522, refer to the 6522 data sheet. 
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Fig. 2: interface designed to occupy 16 bytes just under top 16 


bytes of RAM. 
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Replace that PIA witha VIA 





Sound effects, timed interrupts and a versatile shift 
register are a few of the benefits offered by this useful 


hardware equipment. 


If your microcomputer board uses the 
6520 Peripheral Interface Adapter for an 
VO port, you might consider replacing it 
with a 6522 Versatile Interface Adapter. 
For the two dollars increase in price you 
get all the functions of the 6520 plus two 
timers, a shift register, input data latch: 
ing, and a much more powerful interrupt 
system. 


A block diagram of ihe VIA is shown in 
Figure 1. The 6522 appears to the CPU as 
sixteen memory locations, compared to 
four tor the 6520. Table 1 shows how the 
various registers are addressed using 
the register select pins. In some Cases, 
accessing a register triggers another 
function such as reselling an interrupt! 
flag or starting the timer. 


The timers are loaded wilh data and than 
decremented at the system clock rate 16 
create a delay. This can be used to 
generate interrupts at presel intervals 


Port A 
Bir. 


[Port 8 
Pie. 24 


Tiper 4 ak 
Latch | Counter 


Latch | Counter 





Data _ Tieer 2 
Bus Counter. 
Counter 
Interrupt 









EMS 


~~ 


Control 


eoleeh 


Figure 1: Block Disit 
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Table 1: 6522 Register Address List 


RS3. RS2 RS1_ RSO 
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Another usé is to connect an amplifier 
and speaker to the shift register output. 
By storing a 11110000 or 11001100 in the 
stolt register and placing it in the free 
running mode, sauare waves at audio fre- 
quencies are produced. BASIC can then 
FPOXE constants to timer’2 to produce 
vanous audio tones. You can create elec- 
tronic music, or add sound effects to 
Ihose mute game programs. In fact, this 
scheme +s used for the PET sound 
effects 


The timers can be sat io cause interrupts 
al equally spaced time intervals. This 
saves the CPU the chore of keeping time 
cr chasing sts fail in loops to create 
dears $ found the timed interrupt very 
icvecment in writing a single-step 
rsching language debugging program. 
The tener as set so the CPU can just 
escape fram the monitor and execute 
ome step Gt the main program before 
a trer interrupt forces it back to the 
freoeitet A racent issue of MICRO gives 
He'a 5 Of using Ihe 6522 timers with a 
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FUNCTION 


#O port B 

0 portA 

Data direction 8 

Data direction A 

Timer 1 counter low byte 
Timer 1 counter high byte 
Timer 1 latch tow byte 
Timer 1 latch high byte 
Timer 2 low byte 

Timer 2 high byte 

Shift register 

Timer and shift register control 
{0 handshake control 
interrupt flags 

Interrupt enables 

vO port A 


So how do you instal! this super chip in 
your system? Figure 2 compares the pin- 
outs of the 6520 and the 6522. Thirty-six 
of the forty pins are identical, so thatisa 
good start. However changes must by 
made to your circuit board at pins 21, 22, 
37 and 38. The 6522 needs 4 address 
lines compared to 2 for the 6520. I 
jumpered RSO and RS1 to address lines 2 
and 3 somewhere on the CPU board. To 
reduce foil cutting, | ieft RS2 and RS3 
connected to address 0 and 1. You will 
have to make your own list of register ad- 
dresses depending how you connect the 
RS lines to your address buss. IRQ and 
RAW must be re-jumped to the proper 
pins. My CPU board did not use CSO, so 
this was no loss. 


1 made this modification on an OSI 500 
CPU board (Kilobaud March 1979). After 
reading the Trouble Shooter's Corner 
(Kitobaud September 1978), | was very 
apprehensive about taking on this proj- 
ect. However the OS! board has no 
“bogus” clock pulsus running around, 
sot had no trouble. 
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Any of seven events can cause as inter- 
rupt and set a flag in the interrupt flag 
register. The shift register rate is con- 


vss + 1 40 7 CAl 


trolled either by timer 2 or by an external PAO Ch2 
clock. Two control registers allow selec- PA4 IRQA 
tion of the many options available in the PA2 | 1ROB 
6522 VIA. More details of the 6522 can be 
obtained from Synertek, P.O. Box 552, PAS RSO 
Santa Clara CA 95052. PA4 RS1 
So what does the 6522 gain you as far as PAS RES 
programming? Weill, the shift register PAS p0 
can be used as a Serial output port to PAT 01 
drive a Teletype or printer. The baud rate 
is software controlled by the constant PBO 6520 02 
stored in timer 2. PB1 03 
PB2 04 
PB3 05 
PB4 06 
PBS D? 
PA.PB = WO Port ne a ; 
CA,CB = Handshake Control cB ¢52 
RS = Register Select (Address) C82 C50 
RES Dee Voc + 20 21 + RM 
D = Data Bus 
CS = ChipSelect 
IRQ = Interrupt 
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Figure 2: Pin-outs of the 6522 VIA and 6520 PIA 
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These lines are penned in an attempt to 
clear up some of the mysteries of doing 
the impossible, and to explain some of 
the apparent idiosyncrasies of elec: 
tronics. Some microcomputer operators 
are neophytes in basic electronics, and 
so, this little lesson will endeavor to &x- 
plain what each part is, how it works, and 
why it is used in a given circuit. | would 
suggest you try the experiments shown 
in Figure 3 for a better understanding of 
the circuit theory. 


Those who don't own an oscilloscope, 
could make one of your club meetings in- 
to an evening away from talking about 
the merits of software or peripherals, 
and try to understand what you are pay- 
ing for when you lay out that long green. 
Of course, remember to invite someone 
who owns an oscilloscope. 
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As the title of this episode suggests, we 
will investigate why such a simple thing 
as making a tape recording can cause 50 
much discussion. Most computeristS 
have seen a drawing of the electrical 
signal put out from a Teletype keyboard 
and have noted the similarity to draw: 
ings of an ASCII signal; Jet's face it, 
we've got to learn how to handle these 
fast changes of DC voltage called square 
waves, obviously a misnomer because 
we all know that waves are rythmic un- 
dulations of matter and therefore can 
never really be square. 


We are told that a square wave is an 
“instantaneous” change of voltage from 
one level to another, with both levels 
maintained without variation until the 
next change of state. For TTL circuits 
these levels are approximately plus 4.8V 
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for levei 2 and plus 0.2V for level 1, usual- 
ly just called 5V fora “1” and zero V fora 
“oy, 


| hinted that | was going to talk about the 
tape recording of digital signals, and | 
will. First of all, as Or. DeJong might say, 
Earthpeople have not yet invented an 
audio tape recorder that will record or 
playback digital signals composed of the 
classical description of the same, name- 
ly, “A series of square waves varying on- 
ly in frequency of timing but unvarying in 
amplitude.” A Teletype punched paper 
tape comes very close to the ideal way of 
making a permanent recording of digital 
signats and, when played back, will pro- 
duce digital signais very close to the 
original; however, the expense of one of 
these machines puts it beyond the 
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budget of most of us. And besides, 
where do you store ali that paper tape? 


Them fellers in Kansas City are pretty 
smart for flatlanders ’cause they figured 
out a way to fool a computer into think- 
ing it is receiving Square waves when if 
really ain't, and that’s the gist of my 
story. All your computer wants to receive 
on the ‘from tape recorder” Jine is data 
to say that this frequency of tone means 
a “one” and this frequency of tone 
means a “zero” “Sounds so darn sim- 
ple" you say, “How come one of us 
mountain folk never thought of that?” 
Now if we can just make our computer 
generate those two tones and put them 
on the “to tape recorder” line in the cor- 
rect sequence and time, we wil! have a 
system Jike the boys from Kansas City 
envisioned. 


As we said before, even the best tape 
recorder cannot record square waves, 
but that is ali our computer can 
generate, so we must modify these 
square waves to fool the tape recorder 
into thinking they are distorted sine 
waves. Then, when they are played back 
to the computer, it will modify these 
distorted sine waves back {o square 
waves which ourcomputer can digest. 


Figure 1 shows the "tape out” circuitry 
of the Synertek VIM-1 microcomputer. 
Because the tape recorder requires only 
a few millivolts on its input ine, the 5 
volt square wave from pin 9 must be 
reduced to usable proportions by the 
voltage divider formed by ROO, R89, and 
R88. RIO does double duty in conjunc- 
tion with Ct4; it forms a low pass filter 
which has the effect of slowing dawn the 
rise time of the square wave signal from 
pin 9 to a modified square wave with 
rounded corners as shown on the 
schematic, and if the “LO” terminal on 
this machine is used, some utditional 
“rounding off” of the signal will be ac- 
complished by the added cable 
capacitance in conjunction with Fag. 


Now, one important thing ts that the 
recorder input level contro! must te set 
50 that no overloading of the amplifier 
stages in the recordér Ooctuf iecause 
that drives the transistors in there crasy} 
but so that a sufficrent (feet a manta ny 
ed for operating the tare Prag 
Recorders with avtomel:c ieee! Costa 
{ALC) are great for this tet uf gerece 
because they don’! Mase any mecorging 
level control to adjust. 


“Ahal” you say, “My Lage rec Ceres Rk iat] 
fi unit and will reproduce eae & sartad 
sine waves just a3 fee. fred aes imatvs 
not what my computer wants 1h see 

This is true, but ihe corviuter 8 er mecd 
ing this type of a s.gna’ 4°? 's a eames 
for it, as in Figure 2. The ees wt Bras 
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from most cassette tape recorders 
would be a jittie further distorted from 
the passage of semi-square waves 
through the outpul transformer, which 
no Junger sees the correct load because 
we have disconnected the 8 ohm 
loudspeaker. H reflects this change of 
load impedance back to the primary, in 
turn destroying the fidelity of the output 
stage. 


Looking at Figure 2, the schematic of the 
tape recorder input of the Synertek VIM 
1, ihe recorder will see a load of approx- 
imately 270 ohms formed by the series 
impedance of R128 (100 ohms), C15 (170 
ohms @Z 2,000 Hz), and CR36,37 (approx- 
imately 100 onms) to ground, fess the 
parallel! resistance of C16, R92, and 
diodes CR28, CR29 through R94 to 
ground, for a total of 264 ohms. The 0.5 
watt of more available from the output of 
the recorder is capable of driving this 
load !o better than 11 volfs, which is now 
divided down to the correct voltage to 
drive the op amp “sine to square con- 
verter’ U26. 


This division is accomplished via the 
impedance of C16 (8,000 ohms @ 2,000 


Figure? 


H7) plus R92 (1,000 ohms) through CR28, 
(R22 (100 ohms) and R94 (3.3K ohms) to 
ground. So if we adjust the recorder gain 
contro} for approximately 8 volts at the 
input terminal we should have about 2V 
of signal atep amp pin 3. 


This voltage + more than enough to 
cause diodes CR2A and 29 to clip the 
voltage peaks at 1.5V and limit the input 
tothe op amp, With the amplified inverse 
voitage from pin 7 fed to pin 2 through 
(3), ihe signal at pin X on the expansion 
connector wil be a nice clean replica of 
the neat perluct, zero to 5 voli square 
wart wo first Generated from U37 in 
fF gure 1 R128. C15 and diode CR37 form 
af Audio wolimeter, while diode CR36 isa 
rec orang Jevel indicator illuminated by 
tre cee htiod voltage from CA37. 


teow that we thoroughly urderstand all 
ofthe above, let's prove that this really 
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works. Refer to Figure 3 and construct a 
simple square wave generator on a Proto 
board with an oscillator operating at ap- 
proximately 2,000 Hz and an inverting 
buffer to simulate the internal generator 
in the computer. We will need a 4011 
Quad Dual Gate Integrated Circuit, 5 
resistors, and 2 capacitors to build the 
generator and divider chain. In addition, 
we will also require a 5V power supply to 
operate the unit. 


Hook up the power supply and, if there is 
no smoke, start by connecting the 
oscilloscope to point X in Figure 3. It 
should reveal a fairly good square wave 
approximately 5V in amplitude. With C1 
temporarily disconnected, point Y will 
show the same square wave at approx: 
imately 1.5V of amplitude, while point Z 
shows .036V of square wave. 


Reconnect C1 to point Y and note the 
distortion at this point on the rise and 
fall times, but not on the amplitude of 
the square waves. Point Z will be a re- 
duced voltage version of this distorted 
square wave. Or is it a distorted sine 
wave? 





The frequency chosen for this experi- 
ment (2,000 Hz is the cenier of the two 
frequencies used on the VIM or SYM 
microcomputers) will have a direct bear- 
ing on the values chosen for R1 and C1. 
Too large a value for either would reduce 
the amplitude and shape of the wave we 
are looking for. Too little value would 
reduce the rounding off of the rise time. 


Try it: add 0.022 mf in parallel with C1 
and note the added distortion and reduc- 
tion in signal strength to neer triangular 
wave at one-half the voltage. 


Remove this added capacitor and con- 
struct Figure 4 on the Proto board, keep- 
ing Figure 3 intact. Now jumper point Y 
on Figure 3 to “IN” on Figure 4, as per 
the dotted line. Because the signal at 
point Y is only 1.2V, diodes CR36 and 
CR37 cannot conduct, effectively dis- 
connecting R6 and C4 and lightening 
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the load so that point Y does not distort 

much beyond the original shape prior 8v 025 
to addition of the jumper. Checking NN RM +5 V 

now at pins 2, 3, and 6 should yield a at. 33K 3.3K 5Y 16 


signals approximating those shown on 
the schematic. ovtsUUL 


Disconnect the jumper from point Y to ; 

“IN” and prepare for the big test. Refer- C16 R92 1K 10K NS xX 3 Y 

ting to your tape recorder instruction R93 CR [CR 3.3K 
manual, connect a shielded lead from R123 28 {29 

point Z or Y to the mike or auxiliary input 100 
and make a five minute recording of the C15 L? 
2,000 Hz signal. Rewind the tape and Lp SY 23k 

connect the IN terminal of Figure 4, K @ CR36 

again with a shielded line, to the monitor CR 3.3K x 

or earphone jack on the recorder. Press % 

the PLAY button and adjust the volume me sila (3 conn.) 
control to obtain 6 to 8 volts of signal at 
the IN terminal. With the oscilloscope 
connected to pin 6 of the op amp, you 
should see a fair replica of the square 
wave you first saw at pin 3 of the 4011 
oscillator buffer. 


Your scope should have a 10 MHz band- 

width, to observe fast square waves, but 

any scope will do for these experiments, 

and that's why | said a “fair replica” of 
i the signal. 


All things considered, the design of the 
VIM 1 cassette interface is more than 
adequate. When | first fired up my VIM, 
the only tape | could lay may hands on 
immediately was a 39 cent, 200 times 
erasure/rewind tape that my daughter 
had used to bring home her French 
language home work. | used this tape to 
make a Sync tape and record the first 
few short programs. It still loads every 
digit without dropouts. 
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Figure 2 





Figure 3 
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6522 Timing and Counting Techniques 


— nel 


While many 6502 computerists are becoming familar 
with the 6522 Versatile interface Adapter, do you really 
know how all of it features work or how to use them? 
This tutorial will clear up the mysteries of the 6522. 





Applications that reduiro intorval 
{lmers include everything from the pro 
duction of simple sound effects for 
games to the implementation of 
sophisticated data logging of control 
processes. Because single-chip micro 
computers, such as the Rockwell 6500/1 
and the Intel 8048, are intended for high 
volume, low cost applications, the facl 
that they include counter/timer logic is @ 
Yastimony to the importance of 
counter/timer functions for a large var 
iety of applications. Severa! simple ap 
plications will be explained. 










The techniques will focus on the 
counter/timers found on the 6522 Ver- 
gatiie Interface Adapter. The 6522 is 
currently popular in a number of micro- 
computer systems that utilize the 6502, 
including the SYM-1, the AIM 65, and the 
MICRO PLUS. Expansion boards such as 
the MEMORY PLUS -also Include the 
6522, and the 6522 can be easily inter- 
faced to tha popular KIM-1 (see 6502 
User Notes, No. 13, pg. 16). However, the 
techniques that are described will fre- 
quently be applicable to any 
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counter/timer with only minor modifica- 
tions in the hardware or the programs. 


The basic features included in many 
counter/timers (also called interval 
timers) are shown in Figure 1. This block 
diagram shows that a counter/timer con- 
sists of three registers; the counter 
register which is either an 8-bit register 
or a 16-bit register, a flag register, anda 
control register. A number, N, is loaded 
into the counter register by a WRITE 
(typically an STA) instruction. If the 
counter is a 16-bit register, then two 
write instructions are required. In 6502 


Figure f. Block Diagram of a Typical Counter/Timer. 
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systems these reglsters are simply some 
of the 65536 memory locations. After N 
js joaded into the counter, It is 
decremented at a rate determined by the 
ctock signal connected to the counter. 


' When N decrements through zero, one 
of the bits In the flag register is set to 
logic one. Thus, the contents of the 
counter register change as follows: N, 
N-1, N-2, ..., 2, 1, 0, and on the next clock 
cycle the flag is set. Consequently it ac- 
tually takes N + 1 clock cycles to “time 
out.” This summarizes the fundamentals 
of the counting/timing process. 


The control register is used to select 
one of several modes available to the 
programmer. For example, in one mode 
the contents of the counter register are 
decremented at the same rate as the 
system ciock, while in another mode 
puises on an external pin cause the 
counter to decrement, and in a third 
mode the counter is automatically 
reloaded after each time-out. The modes 
available with a 6522 will be discussed in 
more detail below. 


The 6522 Interval Timers 


The 6522 Versatile Interface Adapter 
is a complex integrated circuit that in- 
cludes two eight-bit I/O ports, four pins 
associated with handshaking signals for 
these two I/O ports, and two interval 
timers. The tO ports and handshaking 
pins will only be of incidental interest, 
and we will describe the use of a few of 
these features as the need arises, Our 
principal interest is in the two counter! 
timers that are available on the 6522, 
called Ti and T2 respectively. Of course, 
the various registers needed to detect 
timing-out and to select the various tim- 
ing modes will atso be of interest. 


In most 6502 microcomputer systems, 
the 6522 will be interfaced to occupy 16 
contiguous memory locations. The AIM 
65 and SYM-1, for exampie, use loca- 
tions with addresses $A000 to $A00F for 
the 6522. Table ! summarizes the names 
of each of these 16 locations, while 
Table I! lists the functions of the 
registers. Of particular interest are the 
timer jocations $A004 through $A009, 
the interrupt flag register {IFR), and the 
control register (ACR). These correspond 
precisely with the registers mentioned 
above in connection with Figure 1. That 
is, the IFR is the flag register and the 
ACR is the control register. 


Both counter/timers, Tt and T2, on the 
6522 are 16-bit devices; that is, a 16-bit 
number is loaded into the counter 
register and then decremented untii 
time-out. Because the counter registers 
are 16-bit registers, two WRITE opera- 
tions ara needed to load the ccunter 
since only eight bits of data can be writ- 
ten at one time. 


To prevent one eight-bit number (the 
low-order byte) from being decremented 
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Figure 2. Flowchart of a Simple 
Interval Timer Delay Loop. 
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white the other (the high-order byte) is 
still not loaded, temporary storage fat. 
ches are provided. Using the T2 timer as 
an example, the low-order eight bits of 
the number, N, to be loaded into the 
counter are loaded into the low-order 
byte of the T2 jaich (T2LL). Nothing hap- 
pens. Next, the high-order eight bits of N 
are toaded into the high-order byte of the 
T2 counter. Referring to Table Il, this last 
operation has three important and 
simultaneous consequences: 


¢ The byte stored in the T2 latch 
(F2LL) is transferred to the low. 
order byte of the T2 counter 
(T2CL}. T2 now contains a 16-bit 
number. 


e The interrupt flag that signals the 
time-out, bit five of the IFR, is 
cleared (set to zero). it will be set 
(to one) when the number N 
decrements through zero. 


® The countdown begins. 


The Ti timer has two latches, one to 
store the low-crder byte to be transfer- 
red to the counter, and one to store the 
high-order byte: to be transferred to the 
counter. One reason for this difference 
is that the T1 timer has a “free-running” 
mode. At the end of one time-out, the 
two bytes of data stored in the latches 
are automatically transferred to the 
16-bit T1 counter to start a new timing in- 
terval. 


Furthermore, the values in the two lat- 
ches may be changed during one timing 
interval to give a new value for the next 
interval. The examples that fotlow 
should make these points clear. Addi- 
tional discussion of the READ opera- 
tions outlined in Table Il will also be 
posponed until required by a specific 
example. 


A Simple Delay Loop Using the T2 Timer 


The most common application of 
counter/timers is the implementation of 
delay loops. The counter/timer replaces 
a series of instructions that are design- 
ed to waste time. The counter/timer 
simplifies greatly the instructions that 
are necessary to program a time delay, 
and furthermore, the computer may ex- 
ecute other tasks during the delay pro- 
duced by the timer, a feat that is much 
more difficult to perform with a software 
implemented delay loop. 


An assembly Janguage version of a 
simple delay loop using the T2 timer on 
the 6522 is fisted in Table Ill. The 
mnemonics are perfectly general for 
6502 systems, but the addresses of the 
registers of the 6522 are the ones given 
in Table tt for the AIM 65 and the SYM-1. 
Programmers using other systems need 
only change the addresses to corres- 
pond to the locations of the 6522 
registers in the address space of their 
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Table !. Memory Assignment Names for the 6522 VIA. 


\DDRESS 
bAQOO 
BAO 
bAOCR 


$4003 
$4004, 
$400, 
$A005 
$005 


$A006 
$A007 
$a008 
$A008 
$A009 
SA00A 


~ $A0CD 


$A0D 


$ACOF 


ADDRESS 
$A004 
$400, 


$A005 
$A005 
$A006 


$A006 
$4007 


$A.008 


$A008 


$4009 


$A.009 
$A00B 


ee eT 


SYMBOL 
ORB 
ORA 
DDRB 


DDRA 
TILL 
T1CL 
TLLH 
T1CH 


T1LL 
TLLH 
T2LL 
T20L 


T2CH 


ACR 


IFR 
TER 


SYMBOL 
TALL 
TICL 


TILH 


T1IcH 
TILL 
T1LL 
Tilt 


. TILE 
Tail. 
T2CL 


ACR 
IFR 
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NAME 

Port B Input utput Regiators 

Port A Input/Output Registers (with handshaking ) 
Port B Data Direction Register 


Port A Ista Direction Pegister 

Timer 1 latch Low-order Byte (WEETE) 
Timer 1 Counter Low-order Byte (READ) 
Timer 1 latch High-order Byte (WRITE) 
Timer 1 Counter High-order Byte (READ) 


Timer 1 Latch Loworder Byte (READ or WRITE) 
Timer 1 latch High-order Byte (READ or WRITE } 
Timer 2 latch Low-order Byte (WRITE) 

Tiser 2 Comter Low-order ityte (READ) 

Timar 2 Counter High-order byte (READ or WRITE) 


Shift Regieter 


Auxiliary Control Register (Control Register for Timers } 


Peripheral Control Register 


Interrupt Flag Register (Status Register) 
Interrupt Enable Register 


Port A 1/0 Register (without handshaking ) 


systems. Pay careful attention to the 
comments In Tabie Ii, because they 
relate each step to points in our previous 
discussion. Figure 2 is a flowchart of the 
delay loop, and it has a box for each of 
the instructions in Tabdie III, 


In the program listing given in Table 
Wl, timing begins at the completion of 
the STA T2CH instruction. The program 
waits In the loop consisting of the series 
of instructions LDA !FR, AND $20, BEQ 
WAIT until the time-out of the T2 timer 
sets bit five of the interrupt flag register. 
The formula for the time T required for 
the interval timer to time-out is: 


T= (N+ 1)T, 


where N is the 16-bit number loaded into 
the counter and T, is the clock period 
(typically one microsecond). 


If the branch instructions (LDA iFR, 
AND $20, BEQ WAIT) are taken into ac- 
count, then the total loop time, TL, Is 
given by the expression: 


(N + 6)To STL S<(N + 14)T, 


The uncertainty of eight cycles in the 
loop time arises from the uncertainty of 
where the 72 counter/timer actually 
times out in the series of test and branch 
instructions within the foop. For the 
numbers that were used in Tabie ltl, 


Table il. Memory Assigninents and Functions of Some of the 


Registors of the 6522 VIA. 
FUNCTION 


WRITE (STA TILL): Load an eight-bit number into the low-order byte of the Tl latch. 

READ (IDA TICL):; Road the contents of the low-order byte of the Tl counter, and 

clear the interrupt flag, bit six of the IFR. 

WRITE (STA TILH)s Loud an eight~bit number into the high-order byte of the Tl latch, 
transfor the contents of both Tl Jatches to the Tl counters, clear 
the Ti interrupt flag, and start the counting process. 

PEAD (LDA TICH)s Koad the contents of the high-order byte of the Tl counter. 

WHITE (STA TfL): Lond an eight-bit number into the low-order byte of the T1 latch. 

HFKAD (124 TILL): Read the contents of the low-order byte of the Ti latch. 

WRITE (STA TIA}: Lead an eight-bit number into the high-order byte of the T1 latch 


erd cloar the Tl interrupt flag. 


READ (id T1LH): Read the contents of the high-order byte of the Tl jatch. 

WRITE (CTA T2LL): Ixed an oight-bit number into the low-order byte of the T2 latch. 

READ (124 TACL}1 Road the contents of the low-order byte of the T2 counter, and clear 
the interrupt flag, bit five of the IFR. 

WEITER (OTL TeCU)1 Load and eight-bit number into the high-order byte of the T2 counter, 
transfer the contents of the low-order byte in the T2 latch to the 
low-crder byto of the T2 counter, clear the T2 interrupt flag, and 


start the counting process. 


pyaD (14d TAH] 


Read the contents of the high-order byte of the T2 counter. 


Bits five, six, and seven control the modes of Ti and 72, 
Bit six equal to one signals a time-out of the Tl counter/timer. Bit 
fir egal to one signals a time-out of the T2 counter/timer. 
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Figure 3. 60 Hz Signal Condition 


circuit based on the 555 timer an 


we Tene he 


er for the Low Overhead Clock. A 
d using only the + 5V supply can 


be found in Berlin's 555 Timer Applications Sourcebook, pgs.2- 13. 


6.30 AC 


T = ($C34E + 1/7, = 0.05 seconds for 
a one microsecond clock. The loop tims 
is between 5 and 13 microseconds 
longer. For many applications, this 
uncertainty will be of no consequence. 


As pointed out eartier, the 
microprocessor need not be idte while 
the timer is timing out. For the particular 
delay of 0.05 seconds programmed in 
Table IJ, a total of 50,000 clock cycles 
elapse while the timer is running. During 
that time, between 25,000 and 10,000 in- 
structions could be executed by the 
6502. These instructions would be 
placed between the STA T2CH and the 


+12V¥ to 4+15V 







+5 


A) -12V to -15V 


LDA IFR instructions. This is the prin- 
cipal advantage of the counter/timer im- 
plemented delay loop; that is, (he micro- 
processor can be performing meaningful 
tasks during the timing-out process. 


Counting Pulses — A 24-Hour Ciock 


The T2 timer can also be used to count 
pulses from an external source. This is 
useful for frequency counting (MICRO, 
June 1979, pg. 41} or any other event 
counting application such as radio- 
active half-life measurements. The T2 
timer is placed in its pulse counting 
mode by setting bit five in the auxiliary 


Table Hil. A Simple Delay Loop Using the T2 Timer on the 6522. 
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contro! register (ACR) to logic one, and 
applying the TTL level pulses to bit six of 
port B, P86. To illustrate this mode, and 
to illustrate how the timers can be used 
to generate interrupt requests (IRQs), we 
have chosen to describe a simple 
24-hour clock that requires very little 
computer time overhead. 


The 60 Hz power line frequency Is suf- 
ficiently stable over long periods for 
many clocks. Somewhere in your micro- 
computer system you will probably be 
able to locate a low-voltage 60 Hz 
source. This is conditioned by the circuit 
shown in Figure 3 to produce a 60 Hz 
square wave, and the output is applied 
to PB6 to be counted. Clearly there are 
3600 ($0E10) such pulses in a minute. 


The T2 counter/timer will be program- 
med to count 3600 pulses followed by an 
interrupt request. The interrupt routine 
increments one location in memory to 
keep track of minutes, and when this 
location reaches 60, another location is 
incremented to keep track of the hours. 
At the beginning of the interrupt routine 
the T2 counter/timer is reloaded with 
3600 for the next period. 


The program is listed in Table IV. The 
first two instructions set bit five of the 
ACR to logic one. Next the timer is load- 
ed with $OEOF. Note that $OEOQF + 1 = 
3600. The LDA $AQ and STA IER insiruc- 
tions enable interrupts from bit five of 
the interrupt flag register (IFR) of the 
6522 to the 6502 microprocessor’s IRQ 
pin, a connection that is usually internai 
to the microcomputer system. 


To enable interrupt request signals 
from 72, bit five of the IER (interrupt 
enable register) must be set to logic one, 
with bit seven of the IER also set to logic 
one. At the end of the timing interval, not 
only will bit five of the IFR be set to one, 
but also the !RQ pin on the 6502 micro- 
processor will be pulled to logic zero, 
producing an interrupt request. 


The next instruction after enabling the 
interrupt from the T2 timer is the CL! in- 
struction that allows the 6502 to 
recognize these interrupts. The tast in- 
struction in the main program should 
not be taken literally. Ht is simply an 
infnite loop that represents the user's 
main program, a FORTRAN interpreter 
for example. 


$0300 AQ LE START LDA $4E Load the byte for the T2 latch low, then . et 7 . 
The interrupt routine is also given In 
$0302 8D 08 AO STA T2LL transfer it into T2 latch low (T2LL). Table IV. Timekeeping routines have 
been described in several other articles 
$0305 A9 C3 LOA $C3 Load the byte for the T2 counter high, (MICRO, March 1979, pg. 5), so the 
; 5‘ e details will not be repeated here. Note 
$0307 8D 09 AO STA T2CH then transfer it into T2 counter high (T2CH) that in order for the program to execute, 
“$030A AD OD AO WAIT LDA IFR Read tne flag register, IFR. Mask all bits "he IRQ vector must point to the starting 
address of the interrupt request routine, 
$030D 29 20 AND $20 except bit five. Check to see if bit five in our case $0300. Note also, that the 
: ; program could be easily modified to 
$O30F FO F9 REQ WAIT 4s set. No, then wait. Yes, loop is finish keep track of seconds by counting only 


60 pulses, something that can be done 
with an eight-bit counter like the one on 
the R650/1. The hours-minutes clock reé- 
quires only about 50 microseconds per 
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minute of computing time, truly a low- 
overhead clock. 


To display the minutes and hours, the 
user must provide a display routine that 
takes the contents of locations $0000 
and $0001 and displays these numbers. 
Such a routina Is not included in Table Vv 
since the instructions used will depend 
on the microcomputer system, and 
previously written clock programs have 
included suitable display routines. 


To summarize the operation of the T2 
counter/timer on the 6522 we conclude 
this section with the following state- 
ments: 


e Todecrement the 16-bit number In 
the T2 counter at the system clock 


rate, clear bit five of the ACR. 


e To decrement the 16-bit number in 
the T2 counter using external 
pulses applied to PBS (pin 6 of 
Port B), set bit five of the ACR. 


* To produce an Interrupt request 
(}RQ} when the counter decre- 
ments through zero In either of its 
modes, set bits five and seven of 
the IER. 


e To disable the interrupt feature, 
set bit five of the JER and clear bit 
seven of the IER. 


* A system RESET Gisables the 
pulse-counting mode and the In- 
terrupt request feature by clearing 
all the registers of the 6522. 


Table 1V. Low Overhead 24-hour Clock. 


$0200 AY 20 MAIN LDA $20 
g$aec2 aD OB AO STA ACR 
- $0205 AD OF LDA $OF 
$0207 8D 08 AO STA T2LL 
$O20A AQ OF LDA $CE 
$020c 8D 09 AO STA T2CK 
$o20F AJ AO WDA $A0 
$0211 8D OF AO STA TER 
$021 58 cLl 


$0215 40 15 & HERE JMP HERE 


Put T2 in its pulse-counting mode 
by setting bit five to logic one. 
Set up T2 to count 3600 pulses. 


Set up interrupt enable register 
to permit IRQ from T2. 

Aliow 6502 to accept IRQ signals. 
Loop here between interrupts. 


INTERRUPT ROUTIRE 


$0300 AJ OB WDA $0 
$0302 BD 09 AO STA T2CH 
$0305 18 cit 
$0306 FS SBE) 
$0307 45 00 LDA KIN 
$0309 69 O01 AD $01 
$030B 85 00 ork KIN 
$030D C9 60 CHE $60 
$030F DO 13 PAE nONE 
$0311 AQ 00 LT $00 
$0313 85 00 Stk YN 
$0315 18 cu 
$0316 A5 O01 LA HRS 
$0318 69 Ol Same S60) 
$031A 85 O01 TTA HRS 
$0310 C9 24 CH Bane 
$031E DO oO INE tse 
$0320 AG 00 oe Oe 8 
$0322 85 O1 < a 
$0324, D8 onl be 
$0325 40 hea 


eel 


Start counting pulses again by 
Jonding T2CH. 

Clear ‘carry for addition. 

Set decimal mode for addition. 
Get minutes. 

Add one. 


Is one hour complete? 


No, get out of interrupt routine. 
Yes, sot minutes to zero. 


Get hours. 
Addi om, 
Is one day complete? 


Cisar hours. 


Clear decimal mode, 
keturn to the main program. 
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Producing Long Time Delays 


The maximum time delay that can be 
produced with the T2 counter/timer 
when it is decrementing at the system 
clock rate Is approximately (SFFFF + 
1)Tg or 0.065536 seconds if To = 1 
microsecond. In certain applications 
ionger time delays are necessary. To ob- 
tain these delays, the T4 timer is used in 
conjunction with the 72 counter/timer. 
We digress for a moment to introduce 
the T1 timer. 


The T1 timer can be used to impie- 
ment a simple detay ioop in exactly the 
same way as the T2 timer. Refer to Table 
lll. If the addresses $A004 and $A005 
replace addresses $A008 and $A009, 
respectively, and if bit six of the inter- 
rupt flag register (tFR) is tested rather 
than bit five, then the program in Tabie 
lll will work in exactly the same way ©x- 
cept that the T1 timer is being used. 


The same equation gives the loop time 
and, as in the case of the T2 timer, the 
maximum delay is about 0.065 seconds. 
The 71 timer cannot, however, count 
pulses. Gonsequently it cannot replace 
the T2 timer in the program listed in 
Table IV. in place of the pulse counting 
mode, the 71 timer has a free-running 
mode, and It is capable of toggling the 
logic level on pin seven of Port 8, P37. 


The initiatization of the free-running 
mode with PB7 toggling is Hlustrated in 
a simple program shown in Table V. This 
program will produce a square wave out- 
put on PB7. The period of the square 
wave is given by the equation: 


Tp = AN + 2Te 


where Tp is the period of the square 
wave, N Is the 16-bit number loaded into 
the T1 timer, and T, is the period of the 
system clock {Typically one micro- 
second). The frequency of the square 


wave isf = WTp. 


To initialize this mode, bits seven and 
six of the auxiliary control register {ACR) 
must be set. Thus, the program in Table 
V begins by loading $CO into the ACR. 
Timing is initiated by joading the high- 
order byte of N into location $A005 
which corresponds to T1LH. Once 
started, the square wave will run forever, 
no matter what else is happening in the 
program, provided the registers that 
control the behavior of the T1 timer are 
not changed. That is, after the timer 
“times out’, it will automatically reload 
the two counter registers from the 
numbers stored in its latches, TILL and 
T1ILH. 


The Jast instruction in Table V is an in- 
finite loop that simulates the user's pro- 
gram intended to run concurrently with 
generation of the square wave. Table VI 
lists some values for N that are frequent- 
ly used in timing applications. if you 
have an oscilloscope, run the program 
with various values of N and connect the 
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input of the oscilloscope to PB7 to 
monitor the square wave. You can use 
the program to calibrate your 
oscilioscops sweep time. If you have a 
frequency counter, measure the frequen- 
cy of the square wave at PB7 to verify 
the equation, using the values for N 
given in Table Vi. N is the number to be 
loaded into T1. 


Note that the frequency of the square 
wave produced at PB7 by the program 
listed in Table V is as precise as the 
crystal oscillator frequency used for the 
system clock. This is because the 
square wave frequency is independent 
of any instruction length. The principal 
advantage of the free-running mode of 
the T1 timer is that the time between in- 
terrupt flag settings (or the frequency of 
the square wave on PB?) is independent 
of any instruction length. Thus, one can 
construct very precise time-keeping 
routines (MiCRO, March 1979, pg. 5} or 
time measuring routines. 


To produce simple delay loops for 
long time intervals, the puises from PB? 
are fed to PB6. Timer T1 operates in its 
free-running mode, and timer T2 
operates in its pulse counting mode. 
Consequently, T2 counts the pulses pro- 
duced by T1 on P87, A program to pro- 
duce a delay of one hour is given in 
Table Vil. This program may be easily 
modified to produce delays of 1, 10, 60, 
100, 1000, 10000, 36000, or 65536 
seconds. 


Timer T1 produces a square wave 
whose period is 0.1 second. These 
pulses are counted by the T2 counter/ 
timer. If ning is foaded into T2, then 10 
pulses, each of 0.1 second duration, will 
be counted, giving a delay of one se- 
cond. Other time intervals are program- 
med accordingly. Of course, there is an 
uncertainty of several microseconds in 
the actual loop time, but this uncertainty 
wili be unimportant for most applica- 
tions. 


Hf the program in Table VIi is modified 
- to allow T2 to produce interrupt requests 
((RQs) by loading $AQ into the interrupt 
enable register (IER) at location $A00E 
(refer to Table IV), then it could be used 
in connection with the interrupt routine 
given in Table IV to produce a 24-hour 
clock program. To generate an interrupt 
every minute, as required by the low- 
overhead ciock, T1 should count to 600. 
Load Ti with $0257 instead of $C39F as 
shown in Tabie Vil and your clock should 
run. These modifications are shown in 
the AIM 65 disassembly format. 


Sound Effects 


The Ti timer can be used in its free- 
running mode to toggle PB7, and PB7 
can be used to drive an amplifier. if the 
frequency is in the audible rangs, then a 
tone will be heard. A series of tones may 
make up a song. Table Vili lists the fre- 
quencies necessary to produce three oc- 
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Figure 6. Circuit to measure the time duration, T, of a positive pulse. 
The CB1 pin must be programmed to produce an interrupt on the 
negative transition of the pulse by loading PCR4 with a zero. 
Change the byte at $0217 from $10 to $00 in the listing in Table X to 


accomplish 


$O20G AG CO 
$aece &D OB AO 
$0205 AD 4D 
$0207 8D 06 AO 
$0204 AG 00 
$0200 BD 05 AO 
$oeor AC OF 02 


this. 


START 


Loop 


LDA $CO 
STA ACR 
LDA $4,D 
STA TILL 
LDA $00 
STA T1LH 
JMP LOOP 


Set bits seven and six of the ACR, 

putting the Tl timer in its free-running 
mode with @ square wave output on PB7. 

Let N = $00,D, T, = 2($50) microseconds 

= 160 microseconds. 

Start timer. 

Dummy loop simulates reminder of & progran, 


Table V. Program to Produce 2a Square Wave Output on PB7. 


FREQUENCY 


f 


1 


O Hz 


100 Hz 
1000 Hz 


of 
10 
25 


O kHz 
O kHz 
O kHz 


PERTOD 
T 
Pp 


N+ 2 N 
Decimal Hex Hex 


0.10 sec 50000 = $0350 $o34D 
0.01 sec 5000 = $1388 $1386 


1.00 ms 
0,10 ms 
0.01 ms 
i,.00 us 


500 = $O1F4 $O01F2 
50 = $0032 $0030 
5 = $0005 $0003 
2 = $0002 $0000 


tt 


i] 


Table Vi. Table for Producing Various Square Wave Frequencies. 


$0200 AJ EO 
$0z02 8D OB AO 
$0205 AG 4D 
$oec7 sD 06 AO 
$a2ci AQ C3 
$200 8D 05 AO 
SQ20F AQ SF 
$0211 8D 08 AO 
$0214 AQ & 
$0216 8D 09 AO 
$0219 A 20 
$C21B 2C OD AO 
SO21E FO FB 
$0220 00 


START 


TEST 


LDA SEO 

STA ACR 

LDA $4D 

STA TILL 
LDA $C3 

STA T1LH 
LDA $9F 

STA T2LL 
LDA $8 

STA T2CH 
LDA $20 

BIT IFR 

BEQ TEST 
BRK 


Load ACR to put Ti in free-running node 
and T2 in pulse counting mode. 
Initialize Ti timer to run with a period 
of 2($C34D + 2) = 100000 microseconds 

= 0.1 second. 

Start timer toggling P57. 

Set up T2 to count $&C9F + 1 = 36000 
cots. (36000)(0.lsec} = 1 hour. 


Start counting. Clear IFR. 

Check interrupt flag register to see if 
bit five has been set, indicating that 
T2 has counted 36000 pulses. 

Break to the monitor at the end of an ho 


Table Vil. Program to Produco a One-Hour Delay. 
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taves of notes on the equally tempered 
scale (note middle A corresponds to 440 
Hz and successive note frequencies are 
raiated by a factor equal to the 12th root 
of two}. Also listed in Table VI! are the 
half periods in microseconds; that is, tha 
numbers that must be loaded into the T1 
timer to produce the notes. Since the 
period of the square wave is (N + 2)Tg, 
each of the numbers in the last column 
of Table Vill should be decremented by 
two. 


A program to play songs using the 
notes in Table VIII is listed in Table IX. 
The identification numbers (1.D. num- 
bers) of the notes in the song to be 
played are stored In a song table star- 
ting at $0400. Actuatly, the song could 
be stored anywhere in memory that is 
convenient, simply by changing the base 
address of the song tabie. The base ad- 
dress of the song tabte is stored in $0050 
and $0051, called SONG and SONG + 1, 
respectively. 


Table Vill. Note Table for Producing Tones on the Equally Tempered 





Scale. 

I.D. NUMBER NOTS FREQUENCY PERTOD/2 
Hex Hertz Microseconds 
$00 C é 130.813 $CEEE 
$01 CH 138, 591 $0E18 
$ca2 dD, 16,832 $O04D 
$03 D 155. 563 $oces 
$a, E, 164.814 SOBDA 
$05 Fy 174.614, $OB2F 
$06 F of 18.997 SOASF 
$07 Go 195.998 $O9F7 
$08 G of 207.652 $0968 
$09 A, 220.000 $08E1 
$A A of 233.082 $0861 
$oB B, 246.945 SOTE9 
$00 0 (middle) C 1 261.626 $0777 
$oD C.# 277.183 $0700 
$Oe dD, 293.665 $0647 
$0F D,# 311.127 $0647 
$10 , 429.628 $O5ED 
$11 Fy 349.228 $0598 
$12 Fi# 369.995 $0548 
$13 Gy 391.995 SOLFC 
$14 Gi# 415.304, $O,B, 
$15 A, 41,0. 000 $a,70 
$16 A,# 466.164, $0431 
$17 BL 493.883 $O3FL: 
$18 C, 523.251 $O3EC 
$19 Co# 554.365 $0386 
SUA Dd, 587.330 $0353 
$iB Df 622.254 $0323 
$1¢ EK 659.255 SOCF6 
$1D Fy 698.456 $cece 
$1E Ff 739-989 $SQRAL 
$iF G, 783.991 $@27E 
$20 Got 830.609 $@25A 
$21 Ay 880.000 $0238 
$22 Ant 932.328 $18 
$23 ‘BS 987.767 SOLFA 
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The identification numbers ($00 - $23) 
found in the song table are used to index 
a note table found in page zero, from 
$0000 to $0047. The note table contains 
the half-periods of the frequencies 
found in the fourth column of Table VII, 
corrected for the fact that the haif- 
period is (N + 2)T, rather than (N)T,.. 
The jow-order bytes of the half-periods 
are found from $0000 to $0023 in the 
note table, while the high-order bytes are 
found from $0024 to $0047. 


The program first locates an iden- 
tification number for a note from the 
song table. It then loads the latches on 
the Ti timer with the correct half period, 
and the note begins to play. The dura- 
tion of the note is determined by a 
number found in the duration table, call- 
ed DUR, and located from $0800 upward. 
There must be one duration number for 
each note. The duration of a note is 
basically the number of times the T2 
timer Is allowed to time out. If $01 
represents a sixteenth note, then $02 is 
an eighth note, $04 is a quarter note, $08 
a half note, and $10 a whole note. The 
tempo may be changed by changing the 
bytes loaded into the T2 timer at loca- 
tions $O21E through $0227 in the pro- 
gram listed in Table ix. 


The song table given in Table IX simp- 
ly plays the three octave scale from 
Tabie VII! with a variety of durations as 
indicated by the duration table. You are 
invited to make your own song or 
translate someone else’s song into I.D. 
numbers. Better yet, write a song inter- 
preter that does the transiation for you. 


Your Interpreter should take a 
keyboard entry for a note and piace the 
1.D. number into the song tabie. It should 
take another keyboard entry for the time 
value of the note and place it in the dura- 
tlon table. \With several 6522s, you could 
play four-part harmony! With a D/A con- 
verter and a voltage controlled amplifier 
you could also control the note 
envelopes, giving an elementary syn- 
thesizer. 


For my interface circuit, | used the 
7404 inverter connected to PB7. The out- 
put from the 7404 was connected to one 
lead of a 1% inch speaker and the other 
lead was connected to +5 volts. Better 
interfacing circuits to drive speakers 
have appeared in various articles and 
books (see Caxton Foster's Programm- 
ing a Microcomputer. 


Measuring the Time Between Events 


A number of applications require that 
the time between two successive events 
be measured. The events might be the 
start and finish of a race, the arrival of 
cosmic rays, two heartbeats of an 
animal, and many others. if the events 
are periodic, then the time between 
events can be obtained by first measur- 
Ing the frequency of the events with a 
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Table IX. Program to Play a Song. 


$0050 = Song, [SONG] = $00 $0200 A9 CO START LDA $CO Initialize ACR to put Tl in free-running 
$0051 = SON} + 1, [SONG +1) = SQ $a2c@2 aD OB AO STA ACR mode. 
$0052 ~ DUR, [DUR] = $00 $0205 AO 00 -LbY $00 Indirect indexed mode with index = 0. : 
$0053 = DUR + 1, (DUR + 1} = $08 $0207 B1 50 MORE LDA (SONG),Y Get note I.D. from song table. 
$0000 = NOTE (See Note Table) $Q209 AA —< TAX Use it as an index to look up note 
$0201 BS 00 . LDA NOTE,X in the note table. : 
$C2OC BD 06 AO STA TILL Put low-order byte into TILL = : 
$O2OF 8A TKA Transfer X back to A to find high-order : 
HOE TABLE $0210 18 cle byte, which is $24, locations higher 
$0000 BC 16 4B 8 DB 2D aD F5 $211 69 2% ADC $24 in page zero. 
$0088 06 <DE EY 120k R22 $0213 AA TAX Back into X to become index to fetch . 
SOMO EB de ED Be Grae 8 $0214 B5 00 LDA NOTE,X high-order byte of half-period. 
$0018 BA & 51 21 Fl, CA he 70 $0216 @D 05 AO STA TILH Result into Tl timer latch high, Note 
$0020 58 36 16 Fé Oh CE OD $0219 Bl 52 LDA (DUR),Y begins to play. Get duration. 
BOGEE CB OB: 0907-08: OF OF $021B FO 2i, BEQ OUT If duratim is zero, end of song. 
$0030 07 OF 06 0 05 05 05 % SOeLD AA TAX Duration into X to serve as counter, 
$0038 G4 A, G, 03 03 03 03 03 $O21E AQ FF AGN LDA $FF Set up T2 for a time period that determines 
$00,0 2 G2 @ a2 te @ Me OL $0220 8D 08 AO STA T2LL the tempo. 
$0223 AQ FF LDA $FF 
$0225 8D 09 AO STA T2CH Start the T2 timer. : 
DURATION TABLE $228 AS 20 LDA $20 Test to see if T2 has timed—out. 
$0800 01 02 04 08 10 20 10 08 $022A 20 OD AO BACK BIT IFR Is bit five of the IFR set? 
$0808 G, C2 C1 C2 O4 08 10 20 $022D FO FB BEQ BACK No, wait for it and play note. 
$0810 10 08 O§ O2 O1 ~ 08 $022F CA DEX Decrement duration counter until 
$0818 10 20 40 80 40 20 10 08 $0230 DO EC ENE AGN it is zero, then note is finished. 
$0820 O C2 Ol O1 00 $o232 EB 50 INC SONG Get another note from the sang table. 
$0234 DO C2 BNE PAST If song is zero, then get the next note fron 
$0236 Fé 51 INC SONG + 1 next page of song table. 
$038 ES 52 PAST INC DUR Get another duration from the table. 
SONG TABLE (Plays scale) $M@3A DO BNE THERE 
$0,00 00 01 G2 03 O, 05 & 07 $023C 6 53 INC DUR + 1 
$O,08 08 09 CA OB OO OD OF OF $@23E 4C 07 02 «THERE JMP MORE Play this note. 
$Q,10 1011 12 13 14 15 16 17 $0241 AG 00 OUT LDA $00 Clear the ACR to finish playing notes. 
$Q,18 1819 1A 1B 16 1D JE AF $0213 8D 0B AO STA ACR 
$20 20 21 22 23 $0246 00 BRK Jump to the monitor when finished, 
+5 V 
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Figure 4, Circuit to measure the time interval, 


T, between two successive pulses. 
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Table X. Program to Measure th 


BOZ0G AY OO START 


LDA $0 
gc2c2 85 Ol STA LEAST 
ROE Bae sta HIDST 
sce0s 65 Sth WOST 
$C208 AJ Ol LA 301 
soem & om Ao STA DORB 
$@2@ 8D 00 AO STA PEO 
$0210 CE 00 AO Den Pm 
$0213 Ee 00:40 Inc PRO 
$216 A9 10 LDA $10 
$0218 sD © AO STA PCR 
$021B A9 EO LDA SED 
$021D & 08 AO STA ACR 
$0220 AD 8 LDA $86 
a0e22 Ce :KO STA TILL 
$0225 AD 13 Lo $13 
$0227 8 05 AG STA TALM 

2A AD FF NEXT LDA $FF 

—p0e2c aD 08 AD STA T2LL 
$22F 6D 09 AO STA T2CH 
$0232 AD 00 AO LDA PED 
$0235 AD WD AQ TEST LDA IFR 
$0238 29 10 AKD $10 
$0234 FO F9 BQ TEST 
$0230 20 60 03 JSR CHD 
$023F CE 00 AO DEC PED 
$0242 EE 00 AO Tro PED 
$0245 LC 2A 02 LMP RIXT 
SUBROUTINE CNVD 
$0300 3& CKVD Bt 
$0301 AS FF LDA $!T 
$0303 ED 09 a0 Spo T2CH 
$0305 85 11 STA CNTHI 
$0308 AQ FF LDA $F 
$O30A ED 08 AO SRO T2cL 
$0300 85 10 Sta CNTID 
$030F F8 SED 

— $0310 AO 10 LEY $10 
$0312 0% 10 MORE ASL CNTID 
$o314 26 11 KOL CWT 
$0316 A2 FO Lok 2rd 
$o31¢ BS O AGIN LIA TAT,X 
$O31A 75 ane taT,% 
$o31c 95 % wth taT,% 
$O31E ES pets 
$031F DO F? BEY. AG I® 
$0321 88 ut 
$0322 DO EE WE KR 
$0324 20 40 G3 SR RDO 
$0327 A9 00 iia OC 
$0329 65 rel #764 LEAST 
$0328 85 @ Sta KIS? 
$0320 65 3 Ta WAT 
$032F 60 Kes 
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e Time Between Two Pulses. 


Clear display registers. 

Least-significant byte of time. 

Middle byte. 

Most-significant byte of time. 
cislice PBS to be an output pine 


Initialize PBS to logic one, then toggle 
At to preset the 7474 flip-flop. 


Set bit four of the peripheral control 
register (PCR) to set interrupt flag on 

a positive transition on pin CBl. 

1 in free-running mode, T2 counts pulses. 
Set period of square wive on PB? so that 

T_ « 0.01 second. 

$1386 + 2 = 5000, 56 f = 100 Hz, T e 0,018. 
Start square wave running. 

Set up pulse counter T2 to start at $FFFF. 


Start counting pulses when the event pulse 
clocks the 7474 flip-flop. Clear IFRL flag. 
Read the interrupt flag register. Mask 

all except IFRL. Wait until flag is set, . 
then timing is finished, so convert the 
answer to decimal and display it. 

Preset the flip-flop by toggling PBS. 


Maasure another interval. 


Set carry for subtractions that follow. 
Find ($fFFF - N») = nunver of pulses counted. 


Higo-order byte stored in CNTHI. 


” Kow get the low-order byte of the count. 


Low-order byte stored in CNTIO. 

Conversion of hex to decinal starts here. 

Y contains number of bits to convert. 

Shift one bit at a time into the carry flag. 


J will serve as a counter for a triple- 
precision addition, with LEAST, MIDST, 
and MOST holding the answer. 


Imresnt X to sero, then three bytes 

have been added, 

Decreaent Y until all the bits have been used. 
When I= 0, conversion is complete. 

Jus to AIM 65 Display Routine. 

flow clear tha counter locations to get 

the tive for the next two pulses. 


Kerurnm to the timing program. 
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frequency counter and then applying the 
relation T = 1/f, where T is the time bet- 
ween successive events and f is the fre- 
quency of the events. For low frequency 
periodic events, such as a race, the only 
choice is to measure the time interval 
directly. 


We will assume that the events pro- 
duce positive pulses, and we will not try 
to describe how the positive pulses can 
be produced. Rather, our problem will be 
restricted to measuring the time bet- 
ween two successive positive pulses. A 
circuit and a program to accomplish this 
are shown in Figure 4 and Table %, 
respectively. 


The circuit was inspired by Carlin’s 
and Howard's article on the Inte} 8253 in 
Computer Design, May 1979, pg. 213. 
The positive pulses clock a 7474 flip- 
flop, producing a logic-one voltage at 
the Q output of the 7474 for the time in- 
terval between the leading edges of the 
two pulses. With the T1 timer producing 
square waves on PB7, the logic-one 
voltage on the Q output gates the pulses 
to PB6 (by means of the 7400 NAND 
gate), where they are counted by the T2 
counteritimer. For example, if a square 
wave whose frequency is 10 Hz(T = 0.14 
second) is applied to the 7400 NAND 
gate, and 250 such pulses are counted 
on PB6, then the corresponding time in- 
tervat is (250)(0.1) = 25.0 seconds, with a 
resolution of 0.1 second. 


Clearly, no software is required to 
detect the pulses, and consequently 
very narrow pulses can be detected. 
Also, the programmer has control over 
the frequency of the square wave ap- 
plied to the NAND gate. The resolution 
can be changed from 4.0 microseconds 
to 0.10 microseconds by yarying the 
number toaded into T1. 


Refer again to Table Vi for a choice of 
frequencies for the free-running mode of 
the T1 timer that might be appropriate 
for a given application. Since the T2 
timer is capable of counting to 65536, 
the maximum time interval that can be 
measured with a square wave whose 
period is Tp is: 


Tmax = 85536(Tp) 
= 65536(2KN + 2)T. 


where T is the maximum time inter- 
val that can be measured, Tp is the 
period of the square wave (T, = Wf) on 
PB7, N is the number loaded into T1, and 
T, Is the system clock period. 


Refer again to Figure 4. When the se- 
cond putse occurs, the Q output of the 
7474 flip-flop makes a transition to logic 
one. This aiso signals the conclusion of 
the timing interval. if Q is connected to 
CB1, the 6522 can be programmed to set 
a flag in the [FR when the logic-zero-to- 
logic-one transition on CB1 occurs. At 
this time the T2 counter/timer can be 
read, the result converted to decimal, 
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APPENDIX A. LOW—OVERHEAD CLOCK MODIFICATION 


SUBROUTINE AIMDSP 


$0340 A5 LDA O1 
$0342 85 STA OY 
$0344 A5 LDA 2 
$0346 85 STA 05 
$0348 A5 LDA G3 
$OB4A 85 STA 06 
$0340 A2 LOX #13 
$O34E BA TXA 
$034F 48 PHA 
$0350 AO LOY #% 
$0352 A5 LDA G4 
$0354, 29 AND #0F 
$0356 18 CLC 
$0357 69 ADC #30 
$0359 09 ORA #80 
$035B 20 JSR EF7B 
$035E 46 LSR 0 
$0360 66 ROR 05 
$0362 66 ROR 4 
$0364 88 DEY 
$0365 DO BNE 0358 
$0367 68 PLA 
$0368 AA TAX 
$0369 CA DEX 
$036A EO CPX ¥0E 
$036C BO BCS O34E 
$036E 60 RTS 


and the answer can be displayed or !ogg- 
ed for the next set of pulses. All of this is 
accomplished with the routines given in 
Table X, a program that was designed to 
operate in conjunction with the circuit of 
Figure 4. An explanation of this program 
follows. 


The targest number of pulses from 
PB7 that can be counted on pin PB6 by 
the T2 counter/timer is $FFFF + 1 or 
65536. Each memory location is capable 
of storing two BCD digits, thus three 
memory tocations are required to storea 
number as large as 65536. These three 
memory locations have addresses $0001 
through $6003 in the program shown in 
Table X, and they are used to store the 
decimal equivalent of the count made by 
the T2 counter/timer. The initialization 
steps, display registers cleared, flip-flop 
preset, timers loaded, contro! registers 
set, etc., require the first $34 bytes in the 
program. After that, the interrupt flag 
register (IFA) is watched to see when a 
positive transition on CB1 occurs. When 
it does, a jump to the conversion 
subroutine, CNVD, occurs. 


The function of the conversion 
subroutine is to convert the contents of 
the T2 counter/timer registers to an ac- 
tual count in decimal. This count 
represents the number of periods of the 
Square wave on P87 that have occurred 
between the events being timed. The 
Program In Table X uses a square wave 
whose period is 0.01 seconds, thus the 


aE 


INTERRUPT 
ROUTINE 


0200 78 SEI 

Q201 A9 LDA #A0 

0203 6D STA AOOE 
C206 AQ LDA #EO 

0208 8D STA AOOB 
C208 A9 LDA #4D 

O20D 8D STA A006 
Q210 A LDA #03 

0212 8D STA A005 


“215 AQ LDA #57 


(217 8D STA A00S 
O21A AJ LDA #02 
Qeic 8D STA A009 
Q2iF 58 CLI 
O220 40 JMP G20 


0300 A9 LDA #02 
0302 8D STA A009 
0305 18 CLC 
0306 F8 SED 
O307 A5 LDA OO 
0309 69 ADC #01 
030B 85 STA 00 
030D C9 CMP #60 
O30F DO BNE 0324 
0311 AO LDA #00 
0313 85 STA 00 
0315 18 CLO 

0316 AS LDA OL 
0318 69 ADC #01 
031A 85 STA 01 
031C C9 CMP #2, 
031E DO BNE 0324 
0320 A LDA #00 
0322 85 STA O1 
0324, DB CLD 
0325 40 RTI 
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number of counts In T2 represents the 
number of hundredths of seconds that 
occurred between the two positive 
puises on the clock input of the 7474 flip- 
flop. 


The time between the leading edges 
of the positive pulses produced by the 
events (call this time T) as measured by 
the program in Table X is given by the 
formula: 


Tm = Tp(SFFFF - No) 
= aN, + 2$FFFF - No)t, 


where T, is the period of the square 
wave on PB7, No is the number in the T2 
counter/timer at the conclusion of the 
timing interval, and Ny is the Humber in 
the Ti timer. Refer to Table Vi for the 
necessary N, to produce a suitable T,. 
Values of T,, that are multiples of ten afe 
most useful. The origin of the number 
SFFFF in the equation lies in the fact 
that the T2 counter/timer is loaded with 
$FFFF before timing begins. For ths 
listing shown in Table X, T,, is 0.01 
seconds, so the equation becomes: 


Tm = 0.01($FFFF - Ny) seconds 


The precision with which one can 
measure the true time T between the 
evenis depends on the resolution, T,, 
since clearly the true time need not de 
an exact integral number of T,. Our 
analysis shows that the actual time, T, is 
given by the expression: 


Tin Tp < TK Tm + %Tp 


Thus, if greater pracision is required, 
then Tp can be reduced. 


The conversion subroutine, CNVD, 
performs the operation ($FFFF -N-,) 
shown in the equations. To get T, this 
number must be converted to decimai 
and then multiplied by T, which, in our 
case, is 0.01 seconds. THe hexadecimal 
to decimal conversion algorithm used in 
CNVD is from Peatman’s book Micro- 
computer Based Design, while the 
coding used is from Butterfield’s “Multi- 
Mode Adder” in 6502 User Notes, No. 13, 
pg. 23. 


Subroutine CNYD also calls a 
subroutine named AIMDSP. This routine 
displays the contents of locations with 
addresses $0001, $0002, and $0003; 
namely those locations that contain the 
time T, now in decimal. No attempt has 
been made to locate the decimal! point in 
these subroutines. As iong as the 
period, T,,, if the square wave on PB7 is a 
multiple Bt ten, 0.01 second for example, 
the user should have no trouble placing 
his decimal point mentally. 


In any case, subroutine AIMDSP is an 
AIM 65 dependent cubroutine that has 
been published previously, so only its 
AIM 65 mini-disassembly format is given 
here. Owners of other microcomputer 
systems will want to substitute a 
suitable routine to dispiay the contents 
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TO CLOCK INPUT ON 
THE 7474 FLIP-FLOP 


Figure 5. Stopwatch interface for the Circuit in Figure 4. The switch 
is normally clesed (N.C.). To produce a pulse when an event occurs, 
the normally open (N.O.) contact is closed momentarily. 


of the three locations mentioned. Such 
routines for the KIM-1 and SYM-1 are 
readily avatiabie. 


The time interval chosen for the listing 
in Table X is suitable for “stopwatch” 
functions, and a suitablo stopwatch in- 
terface to the circuit of Figure 4is given 
in Figure 5. This circuit simply de- 
bounces the switch when it is momen- 
farily closed at the beginning and the 
200 A9 LDA #01 
c2c2 8D STA AQ 
c205 @D STA A000 
e208 CE DEC A000 
C20B A9 LDA #E0 
c2m@ 8D STA AOOB 
C210 AG LDA #4D 
0212 8D STA AO 
(215 AQ LDA #03 
0217 &D STA A005 
O21A AQ LDA #9F 
ceic 8D STA Adds 
O21F AQ LDA #8C 
0221 8D STA A009 
0224, AG LDA #A0 
0226 SD STA AOCOE 
je23 58 CLI 


Set up T2. 


Start counting. 


(Note: 


Frequency of square wave on PB7 = 10 Hz, 1 


Start T1 rumning. 


end of the Interval to be timed. 
Phototransistor circuits can also be us- 
ed to produce positive pulses when light 
beams are interrupted. A photo- 
plethysmograph can be used to measure 
the time interval between heartbeats, 
turning the circuit of Figure 4 into a 
cardiotachometer. 


One way to test the circuit of Figure 4 
and the program in Table X is to apply a 


Set up the Port B DDR with a one in bit zero. 
Start with pin PBZ = i to preset 7490. 


Allow 7490 to count. 
Initialize ACR to put Ti in free-running mode, T2 cots 


T ~ 20(N, + 2)(N, + 1)T, 


Set up interrupt enable register (IER) to allow an 
anterrupt request (IRQ) when T2 times out. 


The interrupt routine should reload T2CH with $8C to clear the IFR 


and aliow counting to proceed again, if eqmlly spaced, 10-hour 


interrupts are desired.) 


299 


= 0.1 second. 





square wave of known frequency to the 
clock input on the 7474. For example, if 
the pulses from the signa! conditioner 
shown in Figure 3 are applied to the 
7474, then the time interval should be 
1/60 of a second. Since 1/60 = 0.01666, 
and if T,, = 0.0001 second (Ny = $0030 
from Table Vi), then the number 1666 
should be displayed for the time bet- 
ween successive positive pulses. Be 
sure to change the bytes at $0221 and 
$0226 to $30 and $00, respectively, in 
Table X if you make this test. 


Finally, if an event can be made to pro- 
duce a single positive pulse for its dura- 
tion, the length of the event may be 
measured using a slightly modifted form 
of the program in Table X and the circuit 
shown in Figure 6. 


in conciusion | should like to point out 
that the programs and circuits given are 
the simplest ones | could construct. You 
will want to add more elegant features. 
The purpose of this article was to in- 
troduce a few basic techniques, not to 
present elaborate designs. If you come 
up with a neat design as a result of 
something you fearned here, { would be 
very Interested in getting a latter from 
you. Better yet, write up your circuit and 
program and publish both in MICRO. 
Aithough the circuits and programs 
described here were intended to be 
building blocks for more elaborate 
microprocessor based designs, the stop- 


- watch interface and timing program 


could be used for “time and motion” 
studies around the house. Just make 
sure your spouse's motions do not make 
you lose track of the time! 


Editor: Portions of this article are from 
Dr. De Jong’s forthcoming book ten- 
tatively entitied 6502 Microcomputing, 
to be published by Howard W. Sams and 
Company, and scheduled for release 
later this autumn. 
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Why a PET, APPLE, 6502 BASIC 


Compiler? 
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BASIC, on aimost all 6502 microcomputers, is run with 
an Interpreter. A more efficient method of running 
BASIC is through a Compiler. This article discusses 
what a Compiler is, how it works, and discusses a 
BASIC Compiler currently under development. 








A group of Canadian PET users are 
developing a compiler for the PET that 
will also be usable on the APPLE or any 
6502 based computer. This may be a very 
significant step in regards to the 
usefulness of the PET. 


This article answers the questions 
indicated in its sub-headings. So as not 
to waste your, the reader's, time, you 
should just go to those sub-headings to 
which you do not know the answer. 


The Topics Being Covered ara: - 
|. What is a compiler? 


2. What is the difference between a com- 
piler and an interpreter? 


3. What is the difference between a 
direct compiler and a p-code compiler? 


4. Why would a BASIC compiler be so 
useful on a PET? 


5. What is the status of the CANPET 
BASIC compiler? 


What is a Compiler? 


A compiler is a computer program 
which takes a set of instructions, written 
according to some set of rules, and 
transforms it into a machine language 
computer program, a string of binary 
characters. This is the real machine 
language. Everything actually stored in 
the machine can be represented by a 
combination of 1 and Q digits. 





Early computers built in the 1950's 
were programmed with strings of binary 
numbers and it was extremety difficult 
to tell where an error had been made ina 
long binary string as, 10111010110101. 
There are convenient methods of conver- 
ting binary numbers to other number 
bases such as octal, hexadecimal, or 
decimal. Thus programmers were able to 
use more recognizable numeric strings 
such as, 73 (Octal) or A2 (Hex) to repre- 
sent their fnstruction Code. Operations 
performed by a computer (such as add, 
subtract, or move data from one location 
to another) have specific operation 
codes assigned to them. Some com- 
puters have as many as four hundred dif- 
ferent operations (op-codes} in their in- 
struction Set. 


Because it was still easy for a pro- 
grammer to become confused about 
what the numbers represent, a still more 
simplified method of representing pro 
grams was developed using what are 
called mnemonics (nuhh-monics). For 
example, the letters AD might be used 
for add, SB for subtract, and LDA for 
joad register A. This method of writing 
programs is sometimes mistakenly call- 
ed machine language programming; in 
fact, together with symbolic addressing, 
it is Assembler Language Programming. 


A program has to be available that 
will recognize the mnemonics of the 
assembly language instructions, 
translate them into the appropriate op- 
codes, and allocate actual storage loca- 
tions for those represented by the pro- 


A Simple Explanation 


Bruce M. Beach 
Horning’s Mills 
Ontarlo, LON 1J0 
Canada 


grammer as symbolic names. Such a 
program is cailed an assembler. if such 
a program (an assembler} is not 
availabie and the operating instructions 
are written using only numeric code, the 
program is said to have been “hand 
assembied”. 


More powerful assemblers keep 
track of address locatiors in programs 
and may provide various helpful debugg- 
ing aids. However, even the most power- 
ful assembiers still require an 
understanding of assembly language in 
order to use them; and more importantly 
still, the more powerful they are the 
more likely they are to be untranspor- 
tabie. That is to say they are unlikely to 
be able to move from one model of a 
machine to another because they usual- 
ly gain their ‘tmacropower’’ from 
features inherent in a particular 
machine. 


Because a great deal of skill and ef- 
fort is required to write a program in 
assembly language, new !anguages call- 
ed higher level languages were designed 
to make life easier. The first widely used 
such higher level language was FOR- 
TRAN (FOR-mula TRAN-slater) used 
mainly by the mathematically oriented. 
The FORTRAN compiier allowed the pro- 
grammer to express his problem in 
rather conventional tooking 
mathematical notation and then took 
the program SEE BOX and converted it 
into assembly language instructions or 
directly into Machine Code. 
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Another high level Janguage, 
COBOL (Common Business Oriented 
Language), was developed for accoun- 
tants and the business community 
which allowed these professionals to ex- 
press their computer programs in ex- 
pressions easily learned by them. The 
COBOL compiler (a program written in 
machine language) took the user's pro- 
gram written in COBOL and compiled it 
into an executable machine language 
program. Other well known languages 
which require compilation are "C”", 
FORTH and PASCAL. Compilers have 
been or are being developed for the PET 
for the languages “C", FORTH and 
PASCAL, but to date there has been no 
compiler for the full BASIC language. 
The following discussion will point out 
the usefulness of such a compiler and 
tell you when and where one will be 
available. 


What ts the Difference Between 
a Compiler and an Interpreter? 


= The code which a programmer 
writes in a higher level language is cail- 
ed the source code and the output from 
the compiler, which processes that 
code, is called the object code. In the 
process of making the conversion a 
compiler may have to make several 
“passes”, Le., complete scans through 
the source code, so compiiers are often 
distinguished as being single or multiple 
pass compilers. It usually takes a multi- 
ple pass compiler longer to compile than 
a single pass compiler but the multiple 
pass compiler might be preferable if, for 
example, the objeci code it generates is 
more efficient. 


In any case, once the compiler has 
completed its task the object code can 
be saved and used over and over again 
without recompiling. Interpreters, such 
as the BASIC Interpreter found in the 
PET and other popular micro-computers, 
do net work in this manner. They take 
“ne user's source program, written in the 
_.gher level ianguage (the BASIC 
statements), and analyze (interpret) each 
statement one at a time to determine its 
equivalent machine code, and then ex- 
ecute this code. Moreover, and this is 
the chief drawback to interpreters, they 
do not save the object code. The next 
time that BASIC statement is executed 
the machine again has to interpret that 
line of code. For example, if there is a 
FOR....NEXT loop in the program that 
contains six statements between the 
FOR and the NEXT and the loop is to be 
executed 100 times, then each of those 
six fines of code will be interpreted 
(translated) into machine language 100 
times. This results in a total of 600 
translations made by the interpreter, 
whereas the compiler would have made 
only six. In both cases, the machine 
code is performed 600 times; but in the 
interpretation, the analysis represents a 
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significant overhead which is absent in 
the compiled version. 


Purists may object that this is a 
somewhat simplified explanation 
because, in fact, the interpreter stores 
token (numbers) for the BASIC 
keywords, and often jumps to predefin- 
ed specific runtime routines rather than 
assembling new code. However, in prin- 
cipal the interpreter works in this man- 
ner and for this reason interpreted pro- 
grams are 10 to 100 times slower in ex- 
ecution than compiled programs. 
Another factor which often slows down 
an interpreter is that it must repeatedly 
do much error checking that a compiler 
does only one time. 


The advantage of an interpreter, 
however, is that one need not wait for 
the compile to take place before execu- 
tion. So jong as high speed in program 
execution itself is not needed, an inter- 
preted program may perform quite fast 
enough; and although there may be 
other reasons (some of which will be 
described later) that may make compila- 
tion desirable, it is apparent that an in- 
terpreter will reduce the time required 
for program development. 


There are advantages to an inter- 
preter besides convenience in program- 
ming. Source code requires much Jess 
memory than object code. A single con- 
cise BASIC statement such as: 


IifX = (¥"L)/MTHENR = X + (M-L), 


expands through compilation into many 
machine language statements. Conse- 
quently a much longer program can be 
written in BASIC and stored in a small 
computer that interprets each line and 
“throws away’ the object code im- 
mediately after it is used, than in a 
machine that has to store all the object 
code before execution begins. 


Incidentally, there are many high 
level janguages that are not general pur- 
pose programming fanguages. RPG's 
(Report Program Generators), for exam- 
pie, are high Jevel fanguages used to for- 
mat reports. There are also many DBM 
(Data Base Management) languages 
(such as ADABAS, MARK IV, etc.) that 
are used to access farge files of data. On 
the surface these programs appear very 
similar to the languages processed by 
compilers as regards the syntactical 
rules they require for input. That is to 
say the user writes a ‘‘program” for his 
application that is in many ways like a 
computer program that he would write 
for a compiler. However, while these 
systems do what they are designed todo 
very well (i.@., access some particular 
data base}, they are not general purpose 
languages and cannot be used efficient- 
ly for many purposes that a compiled 
language can. 
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To summarize then, a compiler 
translates the source code into object 
code one time which is then used over 
and over again; whereas an interpreter, 
such as PET's BASIC, “throws away” 
the object code after each execution and 
then must re-translate again from the 
source before an instruction can be us- 
ed again. The advantage of using an in- 
terpreter is that it takes much less 
memory to store a whole program in 
source format rather than in object for- 
mat, and execution takes place im- 
mediately rather than waiting for a com- 
plete new re-compile after each program 
change. However, among iis other ad- 
vantages, a compiled program can be 
executed at more than ten times the 
speed of an interpreter and this is often 
critical in certain applications. 


What is the Difference Between a Direct 
Compiler and a P-Code Compiler? 


A compiler then, takes the source 
language code of a particular high level 
language and transiates it into object 
code--that is to say, into the machine 
language op-codes. Because a computer 
always automatically executes the next 
instruction following the one it is 
presently executing (unless there is a 
branch), it is much faster not to have any 
branches. However, code written 
without branches would usually require 
more memory than is available internally 
to the computer. Also, it would not take 
advantage of the “conditional” branch- 
ing or decision making power of the 
computer which is the essence of a pro- 
gram. 


Consequently, one of the major 
design decisions in designing a com- 
piler is the trade-off between using 
memory-consuming repeating code “in- 
line’ to save branches and increase 
speed, or making time-consuming 
repeated branching to the same sub- 
routines in order to conserve memory. A 
JSR Wump-to-Sub-Routine) requires the 
computer to save from the PC (Program 
Counter) the next address it would have 
executed in sequence, and load instead 
in the program counter the address of 
the sub-routine instruction. On RTS 
(Return from Sub-routine) the instruction 
address that was originally saved must 
then be restored to the PC. /f there were 
only a few instructions in the sub- 
routine, there will be no saving of 
memory and time will be wasted in going 
to the sub-routine. The computer instead 
simply could have processed the next 
couple of instructions. However, if the 
sub-routine contains many instructions, 
memory will be saved by going there at 
the expense of a little time for making 
the branches. It all depends on the 
relative value of speed and memory ina 
particular system. 


A compiler designer soon finds that 
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certain large biocks of code are used 
repeatedly. Therefore, every time a 
source program requests a certain type 
of activity the compiler causes the ob- 
ject code to jump to the specified block 
of code that can handie that activity. 
Sometimes two activities are similar, 
although not identical; but if the code for 
each is very long and the differences are 
minor, it is frequently more efficient to 
generalize the code and then to 
distinguish between the differences of 
the activities within the block of code. 
Now again, there are some trade-offs 
most likely requiring some additional 
branches for each of the activitles that 
would not be necessary if they had their 
own unique code. We are in fact “inter- 
preting” at execution time some of the 
code within the compiler-generated 
code. This then is not true object code 
for what was the source statement butis 
in a very limited sense Pseudo Code 
(P-Code). 


While this type of approach is pre- 
sent to some extent in almost all com- 
pilers, some compilers make heavy use 
of this approach. The generalized code 
that will interpret the specific 
statements generated as object code by 
the cormpifer amounts to an “overhead” 
in both usage of memory and in execu- 
tion time. 


Some FORTH and PLM compilers 
currently available for the PET are so 
heavily dependent on these techniques 
that the resulting object code executes 
as little as 3 times as fast as the BASIC 
Interpreter. These saine compilers re- 
quire several K overhead in memory for 
the specialized routines that conse- 
quently become a part of all programs, 
whether they are actuailfy used or not. 
This can be very detrimental in some im- 
portant siluations. 


it is possible to write a compiler 

that is resident in memory and interprets 

ii of the code at execution time. In such 

a Gase we have come full circle and have 
what we started with-an interpreter. 

This is indeed why many of the so-called 

compilers perform title better than an 

interprater. 


How, then, can one tell whether or 
not they have a ‘‘true” direct compiler or 
a largely P-code simulator? The answer 
is by benchmarking. Because there are 
different design philosophies behind dif- 
ferent compilers, one must take a com- 
piler and compare it to the other alter- 
natives (i.e., other compilers or the inter- 
preter). One does this by writing a test 
program with statements similar to the 
type they use in actual applications. 
Perhaps for one user there are iots of 
loops and string handling. Another user 
may particularly use math functions and 

_arrays. The particular test program is 
then run using both products and the 
results are compared. Only in this way 
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will you know which of the two products 
wilt perform better in terms of compile- 
time and/or execution-time. Other impor- 
tant considerations may be 
maintenance, direct access to the object 
code to ailow modification, types of 
statements available, ease of operation, 
documentation, support, expected im- 
provement or obsolescence, etc. 


To summarize this section then, a 
“direct-compiter” uses relatively less 
pseudo-code and executes faster than 
straight P-code compulers, Performance 
can only be determined by benchmark- 
ing for specific applications. 


Why Would a Basic Compiler be So 
Useful on a PET? 


Aside from the considerable speed 
improvement that can be obtained from 
a well compiled program, are there any 
other advantages to using a BASIC com- 
piler? Most definitely, yes. However, 
before elaborating let us pursue the 
question of speed itself. For many ap- 
plications the PET’s BASIC interpreter’s 
speed is entirely adequate. it is in real 
time applications (such as process con- 
trol, where the PET is monitoring some 
other device attached to it through an in- 
terface such as the IEEE-488 Port, 
located on the back af the machine) that 
greater speed is needed. Since oniy the 
PET among popular personal micro- 
computers has the necessary IEEE Port 
for attaching many laboratory and 
technical devices, faster programs are 
also more significant to PET users. 


There are a number of S-100 bus ap- 
plications that could benefit from in- 
creased program speed and these can 
be implemented on the PET through 
available S-100 interface boards, Often 
only a few specific routines need the 
higher speed afforded by assembly 
language programming and this could 
be accomplished by writing those few 
routines in assembly language and do- 
ing a SYS cal! from the BASIC program 
to them. This latter approach, however, 
still requires that the programmer 
understand assembler language; 
whereas, by using a BASIC compiler, he 
needs only know BASIC. 


Where a BASIC compiler can really 
shine is in the development of 
marketable systems. There are now 
availiable for less than $300, systems 
that interface directly with the PET that 
can be used for burning PROMS {pro- 
grammabie read only memories) and 
E-PROMS {ultra violet erasable proms). 
These chips will fit into socket holders 
inside the new 16K PETS, or the socket 
holders in the expansion boards on the 
old 8K PETS, and can hold a machine 
language program in readiness for a 
user, even when the computer is turned 
off--they are called non-voiatile. 
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This makes it convenient for users 
stitl to be able to use their computer in 
just the same way as any other PET user. 
But at the same time, they are able to 
step up to a PET that contains a PROM 
programmed for a specific task and im- 
mediately access the special program 
without having to wait for it to load from 
a tape or disk. !n addition to making the 
computer easier for the user to use, this 
is also a very convenient way for the 
developer to distribute his program and 
makes copying of It much more difficult 
than if it were on tape. The producer's in- 
cremental cost of duplicating programs 
for distribution using PROMS should be 
well under $20 each. 


More importantly, we can go one 
step further and take a program that has 
been written on the PET in BASIC, com- 
piled, and stored in PROM and use that 
PROM along with a 6502 micro- 
processor to build up an entirely 
separate device that no longer invoives 
the PET at all. in this way the PET has 
become a very powerful development 
tool for the garage or basement inventor 
that is Comparable to simitar develop- 
ment systems that have been used in in- 
dustry for the last several years but that 
have cost many thousands of dollars. A 
true BASIC direct compiler will therefore 
allow serious PET users to develop from 
PROMS, faster and more memory effi- 
cient object code while using the power 
of the present PET BASIC interpreter for 
rapid program development. 


What is the Status of the CANPET 
BASIC Compiier? 


In June 1979 work was begun ona 
PET BASIC direct one-pass compiler. 
The language supported by this com- 
piler is intended to be identical with that 
supported by the PET BASIC interpreter 
with the exception of dynamic array 
decldration/allocation. 


The Co-ordinators of the project, 
Mr. Bruce Beach and Mr. Brian Beswick, 
have retained the service of a Toronto- 
based consulting firm with nearly 15 
years of software experience and exper- 
tise in compiler design. Assistance is 
also being given by interested and 
knowledgeable individuals in the Cana- 
dian PET community, such as Mr. Jim 
Butterfield. 


The first pre-releases of the com- 
piler should be available for use by the 
time this article appears in print. Initial 
users will be sought in a wide diversity 
of applications so that the compiler's 
performance can be critically evaluated. 
Any persons who feel they would like to 
participate in the early evaluation pro- 
cess are invited to contact the Author. 
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ABASIC a ee that makes IF (CR(I).£Q.0) GOTO 300 
inimal e -code is bel , 
lee igpadtoe the PET and APPLE ram IF (STRTSW(1).EQ.0) GOTO 407 
:502 based computer by a private Cana- CR(I)=9 
fian begs It is ie fee that the C CHECK IF INFORMATION COMING 
‘esulti ject code will i r 
esultng Ort source BASIC provided IF (STEP(I).GT.6) GOTO 301 
to the interpreter but less than that BFPTR(I)=BFPTR(I)-1 
generated by other presently available Cc YES INFOLRMATION 
compilers. T=STEP (L) 
The chief advantage of the new DO 300 J=1.BFPTR (I) 
compiler is that its resulting code INFO(I,T,J J=BUFFER(I, J) 
hould execute many times faster th 
the speed obtained by caine the PET or 300 CONTINUE 
APPLE’'s BASIC interpreter. STOP 
END 


The new compiter in combination 
with the present powerful PET and AP- 


PLE BASIC interpreters should greatly 
facilitate the development of new Figure 1: Example of Fortran Routine 


systems that take advantage of the 

PET’s and APPLE's 6502 microprocessor 
‘d the PET’s tEEE-488 Port com- 
fabilities. 


Serious users who would be willing BASIC compiler are invited to contact Canada, (519)925-6035, or Mr. J. Brian 

to help benchmark and _ critically the author, Mr. Bruce M. Beach, Beswick, 1755 Rathburn Road, Unit 45, 

evaluate the performance of this new Horning's Milis, Ontario LON 1J0, Mississauga, Ontario L4W 2M8 
(416)624-5225. 


IF FEMALE GO TO WOMAN 
- ELSE GO TO MAN. 
WOMAN, IF WEIGHT <¢ MIN@FEMALE-WT (J) 
SUBTRACT WEIGHT FROM MIN@-FEMALE-WT (J) GIVING LBS-U (NU) 
GO TO SKINNY. 
IF WEIGHT >) MAX-FEMALE-WT (J) SUBTRACT MAX-FEMALE-WT (J) 
FROM WEIGHT GIVING LBS-OV (NOV) 
GO TO FAT. 
GO TO NORMAL. 
MAN. IF WEIGHT < MIN-MALE-WT (J) 


Figuro 2: Exemple of Cobol Routine 
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Here is a concise description of the Binary Sort concept, 


oy SE ed er Sate Ye ch ee ae 


and a detailed implementation in BASIC that should be 
easy to adapt to any micro or application. 





Sometimes we have an array of data 
which we need to search in order to find 
the location of one particular element in 
it. This is more common with alphabetic 
data, but we may have to do it with either 
alpha or numeric daia. The simplest way 
to find the item is to use a FOR-loop, 
checking each item individually until we 
find the one we are jaoking for. The 
average number of steps through the loop 
that must be made to find a given item is 
approximately half the length of the list. if 
the item is not on the fist, then the pro- 
gram must execuie as many steps 
through as there are items on the list. 
When the array is short, there is no pro- 
bier. However, as the array gets longer, 
this method becomes mere and more in- 
efficient. An array thot has 500 elements 
in it will require an average of 250 steps 
through the loop to find an item. Such a 
search will take several seconds. 


When the list is ordered (i.e., sorted 
into either ascending or descending 
order), there is a much more efficient way 
to search the list: the binary search. 
Basically stated, in a binary search you 
continually divide the list into two halves 
and then eliminate the half which cannot 
contain your item. (Because ihe list is 
always divided into two hatves, this is 
called a binary search.) For example, if 
ihe item at the half-way point is larger 
then the item you are looking for, you 
know that your item cannot be in the se- 
cond half of the list. So, you eliminate it 
from consideration. You then divide the 
remaining fist in half, and continue the 
process of eliminating and dividing until 
you find the item, or until you cannot cut 
in half any more. If that happens, the item 
you are tooking for is not on the list, and 
your search has fatled. 
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in a FOR-+oop search, each step 
through the loop elimates only one item 
from the fist; in a binary search, each step 
through eliminates half of the remaining 
list. Taking as an example a tist of 255 
items, Table 1 shows how much is 
eliminated at each iteration through the 
loop. The first column is the step number, 
the second column gives how many were 
eliminated in that step, and the third telis 
the total number of items now eliminated. 


After step 8 through the search, you 
have either found your item (and you may 
well have found it before step 8), or your 
search has failed. At any rate, it took you 
only 8 times through the loop to find your 
item, as opposed to the average of 128 


Robert Phillips 
6 McKee Avenue 
Oxford, OH 45056 


(maximum: 255) that a straight search 
would require. The best part is that if you 
double the list, the binary search requires 
only one more step through the loop; dou- 
bie it again, and add just one more time 
through! Obviously, this is a wonderfui 
tool. 


There are only two requirements for 
a binary search: 1) the list must be in 
order; and 2) the items on the list must be 
unique (or, If not, it doesn’t matter to you 
which of the duplicated items is located). 


To do a binary search, we need two 
variables. One to point at where we are in 
the array, and one to kecp cutting the 
search-field in half. in Table 2, | call them 


Step No. Eliminated this step Totai eliminated 

1 128 128 
2 64 192 
3 32 224 
4 16 240 
5 8 248 
6 4 252 
7 2 254 
8 1 255 

Table 17. 

Step PT IV Find? New IV + or - New PT 
1 8 8 no 4 + 12 
2 12 4 no 2 - 10 
3 10 2 no 1 + 11 
4 11 1 YES! 

Table 2 
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PT (for pointer’) and IV (for “interval™}. IV 
will get cut in half each time through, un- 
til it gets down to 1. 1V will be added to PT 
Hf we have to go further down the list; it 
will be subtracted from PT if we have to 
come back up higher on the list. To il- 
lustrate this, let us assume an array of 15 
elements. The item we are searching for 
happens to be in position 11. Let's step 
through and see what happens to PT and 
I¥ at each step. 


The logic to do this is not difficult. 
Let’s say that our array is called L1$, and 
is an alpha array sorted into ascending 
(i.¢., alphabetical) order. We have another 
vartable TL (‘“total” — it is the same 
variable we would have used in a FOR- 
loop: FOR | 1 to TL) which tells us how 
many items are currently in the array. 
Finally, the item we are trying to find is 
stored in the variable SW$, The simple 
algorithm appears in Figure 1. 


if the array were sorted into descen- 
“ng order, the “ " and “ ” symbols in 
iements 40 and 50 would be reversed. 
Notice that we use the INT function and 
round up. This is the equivalent to the 
CEILING function. Both things are 
necessary; if you don't round up, you 
won't be able to get to the end of the list, 
and non-integers will get clobbered dur- 
Ing the division process, 


As it happens, ! do not like the redun- 
dancy of lines 40 and 50; | prefer to make 
them a little more efficlent. | do it so that 
IV is always added to PT. Then, with one 
compare, | find out If '¥V should be 
positive (so thal the addition will add l¥ to 
PT) of negative (so that the addition will, 
in effect, subtract IV from PT). So, | prefer 
to have lines 40 and 50 as follows: 


40 }F L1$ (PT) SW$ THEN [V=-lV 

50 PT = PT +1V 

While ihis is certainly more “elegant,” it 

also adds a problem. IV will quite often 
cout negative, and that will really foul 

op what happens in statement 30. So, wa 

have to change 30 to: 


30 IV = INT(ABSIV)¥2 + .5. 


40 PL*INT(TL/2+. 5}: [VePT 


20 IF Lig(PT)=S¥8 THEN CO70 [you have 
found itl} 


30 IVeINT(T¥/2+.5) 
£9 IF Lig(PT) SWE THEN IVetV-PT 


50 IF L13(PT) SVB THEN Te LV4PT 


60 GOTO 20 


Figure f. 
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Now, having added the ABS function into 
lina 30 to ensure that IV wii] always be 
positive, | am not sure that | have gained 
anything in efficiency. But, | think that it 
is more elegant, so I’ leave it! 


If you try to run the program the way 
it is, you may have a probiem: if the item 
that you are searching for is not on the 
list, you will get into an infinite loop and 
the only way out of the algorithm is to 
tind the item. So, we have to check to see 
if IV has the value of 1. If it does we can- 
not cut in half any more; we cannot 
search any more. We need to test [V’s ab- 
solute vaiue, and | put it right after the 
compare, calling it line 25. 


25 iF ABS(IV}=1 THEN GOTO 
[the search has failed] 


If everything in the worid were 
perfect, that would be the algorithm. 
However, since consistently rounding [V 
up for the reasons pointed out above, we 
may actually, at some times, exceed the 
bounds of the array, raising the error con- 
dition. There are several different ways to 
handle the problem; | believe the easiest 
is to take the value of iV away from PT 
and continue on from there. Since | don’t 
know at this point If IV is negative or 
positive, | simply change its sign and add 
it to PT in line 55, 


551F PT TLORPT 1 
THEN IV= -!V: PT=PT+1V 


(ff you really don’t like to have IV go 
negative and then to have to use ABS, 
you can use the original version of lines 
40 and 50, and then use two statements 
here in place of 55. 


IF PT 1 TREN PT=PT+IV 
andjF PT TL THEN PT=PT ~—IV) 


My version of the binary sort algorithm is 
shown in Figure 2. 


There is, unfortunately, still one 
more potential probiem. If the number of 
items in the array (TL) is exactly a power 
of 2 (16, 32, 64, 128,etc.), the search will 
not locate the very last.item in the array. 
The reason is that when you cut in half, 
you don't cut perfectly in half. If the array 
has 16 elements in it, you look first at ele- 
ment 8: there are actually 7 elements 
above it in the array; but there are 8 
elements dbeiow it! Hf the array has any 
number other than a power of 2, there is 
always one division which has to be 
rounded up, and that rounding up gives 
us room to get to the very end of the ar- 
ray. (Actually, it also caused the problem 
ot going beyond the bounds of the array, 
which made us add line 55.) There are 
several ways to overcome the probiem, in- 
cluding preventing the array ever from 
having an “undesirabte” number of items. 
For me, the simplest thing to do is to 
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10 PT=INT(TL/2+.5): IVePT 


20 IF L1$(PT)=SW$ THEN GOTO [found it! PT 
is the number of the item) 


25 IF ABS (IV)=i THEN GOTO (the search 
has apparently failed} 


30 IVe(INT((ABS(IV))/2+.5) 

40 IF Li$(PT) SW$ THEN IV=-1V 

50 PT=PT+IV 

55 IFPT TLORPT 1 THEN IVe-IV: PT=PT+IV 


60 GOTO 20 


Figure 2 


check the last Item in the array if the 
search fails. If they don’t match, then the 
search actually has failed. But if it does 
succeed at this point, | do have to assign 
the value of TL to PT, as PT is what is car- 
ried into the main program to tell what 
item number was found. i do the entire 
thing in line 70: 


70 IF SW$ = L1$(TL) 
THEN PT = TL: GOTO [found it!] 


| also have to change line 25, so that 
the GOTO there branches to 70. 

If the compare in line 70 yields a 
false, then the search has reaily failed, 
and you drop out of the binary search 
algorithm. Let’s now look at the complete 
algorithm in Figure 3, which is missing 
only the line numbers after the GOTO 
statements which will link the search to 
the programs you use it in. 


10 PYeINT (TL/2+.5): IVePT 

20 IF Li$(PT)=SW$ THEN GOTO [found it] 
25 IF ABS (1V)=1 THEN GOTO 70 

30 IVeINT ((ABS(IV))/2+.5) 

40 IF Li$(PT) SW$ THEN IV*-1V 

50 PT=PT+IV 

55 IFPT TLORPT 1 THEN IV=-IV: PT=PT+1V 
60 GOTO 20 . | 


70 IF SW$=LI$(TL) THEN PTTL: GOTO 
[found it} 


80 REM Search has failed and you're out 
of the binary search algorithm. 


Figure 3 
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Beginning Boolean: A Brief Introduction 
to Boolean Algebra for Computerists 


it makes no difference if your computer is maxi or micro, 


if you program in machine code, BASIC or Pascal, if you Dr.Marvin DeJong 
do simple games or complex real-time simulations. In the Dat 3 Eel of ihe uals 
final analysis: “It’s All Ones and Zeros”. How these ones Point Lookout, MO 65726 


and zeros are used is the topic of this primer. 





Boolean algebra, invented by George The OR facts are read “O of 0 equals should be given, and surprisingly enough 
Boole in the early 1800's, is useful in pro- 0,” not “0 plus 0 equals 0.” Mumbie these it appears in Figure 2. The information in 
gramming a microcomputer for logic facts to yourself several times in the Figure 2 is no different than in Figure 1 
design, designing interface circults. and privacy of your own home. That will help only the form has been changed. Actually 
understanding the functions of in- you get a feeling for them. It is important the truth table has nothing to do with tell- 
tegrated circuits. The last point is il to relate the OR operation with the circuit ing the truth or telling lies, but that's 
iustrated by opening the TTL Data Book in Figure 1. A and B stand for switches. If another story. Suffice it to say that 
and looking for logical expressions. For switch A is closed then A = tifitis open somebody thought if everyone were 
example, the 7453 is described by Y = then A = 0. The same holds for switch B. 

TCO Fer +ON+X which has to be Light L is off when L = 0 and it shines 
somewhat of a mystery without any when L = 1. Referring to either the OR + 0 AL. QO+ 0 0 
Boolean background. The name tends to table or the OR facts in Figure 1, itis seen 1+ 0=#1 
scare people, but it turns out that there is that if both switches are open We have 0 ¢) @) 1 
a very simple approach to learning + 0 = 0650 the light is off. Likewise, the Oo+1=i1 
Boolean algebra, namely Boolean fact that 1 + 0 = 1 means that if switch 1 a 1 1T+eiel 
arithmetic. Anyone who can accept that 1 A is closed, but B is open, then L = 1580 
4 1 = 1,can also learn Boolean. If you're the light is on. This should also be ob- 
an electrical engineer or a professional vious from the circuit. The fast two on a) OR Table b) OR Facts 
computer scientist, turn to the next arti- facts are equally obvious to anyone who 
cle; otherwise give it a try. has played with switches and light bulbs. 

Slipping in a little algebra, unnoticed of 
Beginning Boolean course, the circuit is summarized by the A 
simple equation: 
Boolean arithmetic is super-simple; 

there are only two numbers, zero and one. A+B=L (3) 
There are only two operations symbolized ; 
by + and ..* Long division is out, and | 
there is not a minus sign in sight. Figure 1 which gives the correct value for L for . , 
summarizes all you need to know about each of the four possible combinations of c) OR Circuit 
the + operation which is called “OR” switch settings. Go back and study the 
rather than addition. table and this paragraph again if you 


haven't understood. 


*Thes mbols Vanda frequently replace + ; 
and i respectively. The dot () is Betore proceeding, a more conven- Figure 1: Summary of the properties 


sometimes implied, that is A‘B = AB. tional representation of the OR operation of the OR operation. 
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ogical we could sort truth from lies and 
‘he world would be a better place to live. 
Dream on} 


{f you will drop your conservative im- 
age for a moment, we might let A and B 
stand for a string of eight digits each in- 
stead of one digit each. Also, let the OR 
operation be applied to the digits of A 
and B in sequence. An example is shown 
in Figure 3. Hopefully you can reproduce 
this calculation in your own mind. Don't 
do anything heavy like “carry” or ‘“bor- 
row,” just take two digits at a time, one 
from A and one from B, and apply the OR 
rule to them. 


Since you are very likely the proud 
owner of an 8-bit computer, an examina- 
tion of the instruction set will reveal an 
OR command which does what has just 
been described. The reader is left with a 
few problems, Assuming that you are 
familiar with representing 8-bit binary 
numbers with hexadecimal (hex) 

~bers, do the following OR problems. 
__..swers to the first two are given. 


11+FE=FF FF+2B= 
7F 4 7F =7F 00 +3E = 
224+0i1= FO+4+5E= 
3C +00 = FF+00 = 
12434= 


Having experienced the intellectual 
rewards of having mastered the OR 
operation, you will want to proceed to the 
AND aperation. 


AND Away We Go 


Figure 4 summarizes the AND opera- 
tion in the sarne fashion as Figure 4 
treated the OR operation. The AND circuit 
is a series circuit, requiring that both A 
and B be on (hence the name) for the light 
L to light. This is in contrast to the OR cir 
cuit which lights if either A or B is on. 


Notice that “ANDING” works the 
rame way as old-fashioned multiplication 

- no weird results tike 1 + 1 = 1 
wnich we obtained with tne OR. The AND 
facts are read “0 and 0 equals 0,” or ‘1 
and t equals 1.” The equation which 
describes the circuit is: 


A-Bel, (2) 


the truth of which may be verified by 
substitution and comparison with the 
simple series circuit. As before, a more 
conventional representation of the AND 
operation is given by a truth table and 
logic symbol shown in Figure §. 


As before, A and B may be taken to 
represent 8-bit numbers, and an example 
of such an AND operation is given in 
Figure 6. Your microprocessor’s instruc- 
tion set will include an AND command 
which takes two 8-bit words and ANDs 
them, as illustrated in Figure 6. 


SR OR Le ROE RN REA SI OT ALLAN IE I AE EI I TOTO ME TESTE eR 





A 
+ B 
B 
Figure 2: Truth Table and logic symbol for the OR operation. 
" 01010011 A = 01010011 
11000101 A+B311010111 
B = 11000101 . 


= 11010111 


Figure 3: Example of an 8-bit OR operation. 


- | O 1 0*- 02+ 0 ~ 
o| 0 O*-1=+0 L A B 
1} 0 i 1*+OQ=0 


1edel | 
a) AND Table b) AND Facts c) AND Circuit 


Figure 4: Summary of the properties of the AND operation. 


A) Bj AB A 
01 0 0 
oli] 0 A+B 
1{ oO] oO B 
1} 1 1 
Figure 5: Truth Table and logic symbol for the AND operation. 
A=01010011 
01010011 
* 411000101 AeB = 01000001 
= 01000001 Be11000101 


F ‘gure 6: Example of an 8-bit AND operation. 
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Try the following AND problems 
where the 8-bit binary numbers nave been 
represented in hex. 


FF11 = 11 33-BC = 
7E-7F = 7F 00-3E = 
OF-37 = FO-37 = 
80-FF = 80-11 = 
§5-40 = 


Everyone Loves a COMPLEMENT 


There is another Booiean process 
catled complementation or negation. It is 
a simple but very important idea. All com- 
plementation facts are summarized in 
Figure 7, using a truth table and the logic 
symbol. Clearly, complementation simply 
changes 0 to 1 and 1 to 0. The bar over the 
variable indicates complementation, and 
the inversion circle at the end of the 
triangle symbolizes complementation. A 
triangle without such a circle performs no 
inversion and in computer literature 
usually refers to a buffer. A is read as 
“not A.” 


ALA 
O} 2 4 . o1o1001i 
1 | 0 


It's Not a Complement to be Called EX- 
CLUSIVE 


There is another operation in 
Boolean mathematics which is the ex- 
clusive or, which for our purposes we 
shail call EOR, and we shail give it the 
symbol @) . 4 didn't really tie to you in 
the second paragraph when | said there 
were only two operations. It turns out that 
the EOR operation can be accomplished 
with ORs and ANDs, but it is somewhat 
simpler to think of it as a third operation. 
Figure 8 gives the truth table for EOR, the 
logic symbol, and an example of an 8-bit 
computation. Later we shall see how it 
can be imptemented with ORs and ANDs. 
Try some of the problems given earlier for 
OR and AND operations only do EOR 
operations. For example, FF @ 11 = 
EE and 7F4) 7F = 00. Doing some EOR 
arithmetic may lead you to some in- 
teresting but important generalizations. 
In any case, in an EOR operation, if the 
digits are alike, the result is 0; but if the 
digits are different, the result is 1. 


% = 10101100 


Figuse 7: Truth Taste and logic symbot for complementation. 


A&=01010011 





B=11000101 -—-- 


A@B = 
10010110 


Figure &: Truth Table and logic symbo! for EOR operation. 





A B 
A B 
o-0——o 


oy BL 
amen 5. o 


o_O 


Figure 9: Truth Table and circuit diagram for the coin matcher. 
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if You're Exclusive You May Get A Com- 
plement 


In checking over the instructions for 
my microprocessor, 1 find that no com- 
plementation command exists. Wow! 
Here is a fundamental Boolean concept 
which is missing. !f you played with some 
EOR problems you may have already 
discovered how to produce a complement 
with the EOR operation. Suppose we deal 
with 1 digit numbers for the time being. 
Consider 1G A for a starting problem. 
Clearly if Ais 1,1 1 = 0 which is the 
complement of A. On the other hand, if A 
is 0, then 1€) 0 = 1, which is the comple- 
ment of A. So both possibilities give the 
complement of A. Summarizing, 


1@ A = Al) 


If Ais an 8-bit binary number represented 
by a hex number, equation (3) becomes 
FF@ A= XK. in other words, if you want 
the complement of a number, do an ex- 
clusive or with it and a word containing 
all ones. 


Designing Circuits — A Simple Applica: 
tion 


You now know how to OR, EOR, AND 
and COMPLEMENT. You would like to 
know how to do something with what you 
have learned, right? Let’s start with a sim- 
ple problem; namely, constructing an 
electric coin flipping game. Actually, no 
coins will be flipped, but the principle is 
the same. Our machine will have two swit- 
ches A and B. When the switches are the 
same a light will tight, when they are dif- 
ferent the light will be off. This, of course, 
corresponds to the case of both coins be- 
ing the same {light on) or one coin coming 
up heads while the other comes up tails. 


The first step in the design is to con- 
struct a truth tabie (sometimes called a 
closure table) for the system. We require 
that when A and B are both on the light is 
lit, when they are both off the light is lit, 
but when they have different settings 
(one on, the other off) the light is off. The 
truth table we would like to implement is 
clearly the one shown in Figure 9. This is 
constructed by first listing the four possi- 
ble combinations for two switch seitings, 
that is 00, 01, 10, and 11. For each of 
these switch settings the desired value of 
Lis listed, completing the truth table. Itis 
seen that when the switches “match” 

_then L=1, otherwise it is 0. 


The next step in the design is to 
develop the Boolean equation which. is 
equivalent to the truth table. This is ac- 
complished by the following two steps: 


4. Identify all rows with a 1 in the 
last column. AND the elements mak- 
ing up these rows, complementing 
those with a 0 in the row. 
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2. OR the products obtained in 
step 1 and set the result equal to 
the variable in the last column. 


For the first step above and the truth 
table of Fiqure 9, we obtain the products 
A:B and A-B from the first row and the 
last row, respectively. Step two then gives 
the equation, 


A‘B+A:BeLl, (4) 


which is the equation for the circuit. It is 
important for you to verify, by substitu- 
ting in the various values of A and B given 
in Figure 9, that this equation does notin 
fact give the desired values of L. 


The final step in the design is to con- 
struct a circuit which is equivalent to the 
equation (4). An examination of this equa- 
tion indicates that we need two parallel 
branches, one containing A in the series 
with B, the other containing A series with 
” This circuit is shown in Figure 9. The 

tery and the light have been omitted 
for simplicity. Clearly the circuit could be 
constructed with two SPDT switches. 


It is important to realize that the 
steps we took to design ihis particular 
circuit are perfectly general, that is, they 
are the same steps one wouid go through 
to design any logic circuit. Of course, 
with more switches the truth tables and 
the equations get more complicated. For 
exampte, with three switches our truth 
table would have 8 rows; four switches, 
16 rows, and so on. Since this article is 
not meant to be an exhaustive (aittiough 
you may feel that way) explanation of 
Boolsan algebra, we will not proceed to 
more complex situations. For those you 
might want to pick up a textbook on digi- 
tal electronics or computer science. But if 
you mace it this far, you shouldn't have 
much trouble with ihe textbooks. 


One other design study will illustrate 
several points. Suppose we fequire a 

s 0 signal on a chip select pin when 
ener of two other signals, call them A 
and B, are either both fogic 0 or both logic 
4. When A and B have opposite logic 
levels our chip select must be 1. This is 
clearly an artificial situation which 
originated in my mind and not in a com- 
puter interface circuit, but it Hlustrates a 
point. The truth table which fits the 
description demanded by tha casign is 
shown in Figure 10. Following the steps 
outlined earlier we find that the Boolean 
equation which implements the truth 


table is 
A'B+A+B=CS. (5) 


An examination of the truth table will 
show that it is identicalto the LOR table, 
and thus we have proved that LOR can be 
Implemented wiih ORs and ANDs. A se 
cond point worth mentioning is that if A 
and B wate singia digit tecary murnbers, 
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Figure 10: Truth Table and logic circuit for A-B + A-B = CS 


the value of CS is the value of the least 
significant digit in the binary sum of A 
and B. Thus equation (5) is also part of an 
adding circuit. If A and B are ANDED the 
correct value for the “carry” part of the 
binary addition is also produced. Toge- 
ther these circuits form what is a “half 
adder.” Figure 10 also gives the logic 
symbo! implementation of equation (5). 


TO BEOR TOS = 1: 
Some Boolean Theorems 


Once a truth table, closure table, or 
function table has been constructed fora 
particular design problem and the 
Boolean equation has been derived using 
the steps outlined in the previous section, 
then one usually tries to simplify the 
equation to minimize the number of in- 
tegrated circuits which will be required 
for the circuit. Here is where Boolean 
algebra reatiy becomes useful, for it is the 
theorems of Boolean algebra which allow 
complex looking equations and circuits 
to be simplified. 


Because Boolean theorems are quite 
easy to understand and prove, and 
because they look different from the 
equations of real number algebra, a few 
of the simple theorems are listed in Table 
1, An interesting property of Boolean 
algebra is ijlustrated by the first two col- 
umns. Note that column two can be ob- 
tained from column one by replacing ail 
+ signs withs, if you replace all 1’s with 
0's. 


It is quite easy and it is good prac- 
tice to prove these theorems. They are 
proved by the method of exhaustion, 
namely all possible values for the variable 
are tried. For example, the first theorem 
can be proved by reasoning that A can be 
1 or O. If it is 1, then from the OR table 
1+1=1. If it is 0, then from the OR table 
1+0=1. So, for all possible values of A, 
1+A=1 and the theorem is proved. All 
the theorems in the first two columns 
may be proved in this manner. Theorems 
involving two variable A and 8 are usually 
proved using the four possible values for 





l+As i LA sA A+B=BHtA 
O+AaA OA = 0 AeB = BeA 
A+tAzA AsA=A A+B= A+B 
A+Aul AeA =0 A-B =A+B 
A-B+AeBe A A-A 
A+A*B=A 
A + ae ee 
Ae(BtC) = (A+B)+(A-C) 


Tabie 1: Some Basic Theorems from Boolean Algebra 
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A and B, namely 
A = 0011 =03Hex 
B= 0101 =05Hex. 


Theorems with three variables require 8 
possible combinations to exhaust all the 
possible arrangements: 


A= 10101010 = AAh 
B = 11001100 = CCh 
C= 11110000 = FB 


The purpose of expressing these in hex is 
$0 that you can try to prove the theorems 
on your computer, and at the same time 
get some experience in performing 
logical operations. All of the problems 
given earlier can also be solved on your 
computer. Theorems three and four in 
column three are the famous DE 


Morgan's theorems with which one can 


connect the ANOs and ORs with the 
NANDs and NORs of the real world. 


To conclude, go back for a minute to 
that Boolean expression in the first 
paragraph. Suppose we ask what the 
value of Y will be if A and B are both 1. Us- 
ing what you have just learned, the 
answer should be easy. If A and B are 
both 1 the AB (the dots are frequently 
omitted in AND operations) is 1. From the 
theorem in the first column of the 
theorem table it is clear that 1 OR 
anything is 1. Consequently, no matter 
what the other variables are, the value 
under the inversion or complementation 
bar is 1 if A and B are both 1. Inverting the 
1 gives 0, so the answer is 0. Also if X= 1, 
then Y =0, regardless of the states of the 
other variables. 


| hope that you had some fun with 
this weird arithmetic. Perhaps your mind 
got bent out of shape as an added 


feature. But my main hope is that some of 
the mystery in those words “Boolean 
Algebra” has disappeared. I'll leave you 
with a homework problem. Draw the logic 
diagram to implement a full-adder, then 
expand it to handle 8-bit numbers. Final- 
ly, implement it with software on your 
8-bit machine, and check your answer us- 
ing the ADD instruction. Have some fun 
and get some books on digital electronics 
and/or computer science and dig into this 
stuff. 
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subroutines is presented. While this method has been 
knovwn and used for many years on the big computers, it 


may be new and useful to many microcompu 
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Passing information from a main pro- 
gram to a subroutine is usually done by 
either pushing it on the stack or storing 
the information in an area common to 
both routines. An alternative method in- 
volved having the parameters after the 
subroutine call. 

When 2 jump subroutine is executed 
the return address is stored on the stack 
and control is passed to the subroutine. 
If we put our parameters after the jump 
subroutine instruction, the return ad- 
dress on the stack will now point to this 
data. The subroutine can now pull the 
return address off the stack, fetch the 
parameters useing the reiurn address, 
increment the return address to skip 
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over the parmeters, and use this new ad- 
dress to return to the calling program. 
Here is an example of using this 
method of parameter passing to print a 
character string. The program MAIN 
contains a jump subroutine to the 
subroutine PTRSTR. The address of the 
beginning of the string follows the JSR 
instruction. The end of the string is 
marked by a zero byte. The routine first 
references the stack to get the return ad- 
dress and stores this in a temporary Zero 
page location (locations zero and one). 
Using this address we now Can access 
the string starting address located after 
the JSR. The string starting addrss is 
moved into a temporary zero page 10ca- 
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tion (locations two and three). Using in- 
direct indexed addressing we load a byte 
of the character string, call a routine 
which prints a single byte, increments 
the Y register, and loops until the zero 
byte is found. After the entire string is 
printed, we increment the return address 
by two to skip over the string address 
parameters. We can now return to the 
calling program via an indirect jump to 
the temporary return address locations 
(locations zero and one). 

This method of parameter passing 
can be very useful when dealing with 
subroutines that are called frequently or 
which pass large amounts of data. 
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MAIN PROGRAM 


3678 


023A 
023A 
023A 
023A 
023A 
023A 


0200 


0200 D8 
020] BA 


0202 £8 
0203 BD 
6206 85 
0208 £8 
0209 BD 
O20€ 85 
O20E 9A 
O20F £6 
0213 DO 
0213 £6 


0215 AG 
0217 81 
0219 85 
0218 C8 
O21C 81 
O21E 85 


0220 AD 
0222 Bi 
0224 F0 
0226 20 
0229 C8 
022A DO 


022C 18 
022D A5 
022F 69 
0231 85 
0233 90 
0235 E6 
0237 6C 


00 
£0 


00 
El 


£6 
02 
E) 


0b 
EO 
E2 


FO 


60 
€2 
06 
34 


F6 


EO 
02 
EO 
62 
Fl 


0) 


01 


RETURN HERE TO CONTINUE PROCESSING 


JSR PRISTR JUMP TO SUBROUTINE TO PRINT A STRING 
= $78 LOW PORTION OF STRING ADDRESS 
s $56 HIGH PORTION OF STRING ADDRESS 


“PRINT THIS MESSAGE" 
$c0 HEX ZERO TO MARK END OF STRING 


PRINT STRING SUBROUTINE 


MARK SWANSON 


SUBROUTINE TO PRINT A STRING OF CHARACTERS 


7ERO # $ooro 
ONE * $0063 
TWO * ¢00E2 
THREE * $00E3 
STACK * $0100 
PUTCHR * $1234 

ORG $0200 
PRTSTR CLD 

TSX 


SOME PRINT CHARACTER SUBROUTINE 


CLEAR DECIMAL MODE 
TRANSFER STACK PIR TO X REG 


SINCE POINTER ALWAYS POINTS TO NEXT POSITION 
AVAILABLE, INCREMENT BY ONE 


INX 

LDAX STACK 
STA ZERO 
INX 

LDAX STACK 
STA GONE 
TXS 

INCZ ZERD 
BNE OVER 
INC ONE 


OVER LDYIM $00 
LDAIY ZERO 
STA TWO 
INY 
LDAIY ZERO 
STA THREE 


LOAD LOW PORTION OF RETURN ADDRESS 
SAVE 

INCR X 70 NEXT STACK ENTRY 

LOAD HIGH PORTICN OF RETURN ADDRESS 
SAVE 

RESET STACK POINTER 

ADDRESS OFF BY 1, SO NOW WE 
INCREMENT IT 

HIGH ADDRESS 100, IF NECESSARY 


ZERO Y REGISTER 

LOAD FIRST PART OF STRING ADDRESS 
SAVE 

BUMP PCINTER 

LOAD SECOND PART OF STRING ADORESS 
SAVE 


SUBROUTINE NOW HAS THE STRING ADDRESS 
NOW PRINT STRING UNTIL A HEX 00 IS FOUND 


LDYIM $00 
LGOP LDAIY TWO 
BEQ FINISH 
JSR PUTCHR 
INY 
BNE LOCP 
FINISH CLC 
LDA ZERO 
ADCIM $02 
STA ZERO 
BCC END 
INC ONE 


EO BO END IMI = ZERO 


ZERO Y REGISTER 

LCAD A CHARACTER OF STRING 

IF EQUAL JO ZERO, FINISHED 

SOME SUBROUTINE TO PRINT A CHARACTER 
INCREMENT POINTER , 
UNCONDITIONAL 


CLEAR CARRY 

INCREMENT RETURN ADDRSSS BY 

TWO TO SKIP OVER 

STRING ADDRESS PARAMETERS 

DONE IF NO CARRY , 

BUMP HIGH ADORESS IF CARRY 

JUMP INDIRECT TO RESUME MAIN PROGRAM 
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Whenever you key in a program in machine code, there is 
some doubt as to whether or not it has been entered cor- 
rectly. One minor error is all it takes to ruin a program. A 
technique and program is presented to help overcome 
this problem on any 6502 computer. 





| decided to write this program for 
selfish reasons. My hope is that 
everybody who transfers or writes pro- 
grams for distribution will use it. The pur 
pose of the program is to compute a Six- 
teen bit checksum by adding up all the 
bytes in a program. This reatly isn’t a 
totally new idea. Most methods of 
transferring programs or data external to 
a CPU use some sort of checksum 
routine. Even parity is really a one bit 
checksum. There is one major method of 
program transfer which makes aimost no 
use of checksums. That method is 
listings published in magazines. One of 
the reasons is probably that noone has 
published a simple, general program to 
compute a checksum. 


This program was written and tested 
on a SYM-1, but was designed to be as 
machine independent as possible. It 
should run on almost any 6502 system. 
There are only two monitor routines used, 
both of which are probably available in 
most monitors. The routine called OUT- 
BYT outputs the contents of the ‘A’ 
register as two HEX digits. Just in case 
this routine isn’t readily available on your 
system, | have also included a version of 
one at the end of the program. OUTCHR 
is a routine that outputs the contents of 
‘A’ as a character; and unless your are us- 
ing the HEX cutput routine, itis only used 
to output a space as a separator. The pro- 


gram does not assume that any registers 
are saved or restored by either monitor 
routine. it is completely relocatable (as is 
HEXOUT), and only uses four bytes of 
page zero memory. lf you want to, you 
could even put it into an EPROM. The 
work area for the two byte checksum ac- 
cumulator is obtained from the stack to 
avoid any more page zero requirements. 


The theory and method of operation 
is simple. The starting address of the pro- 
gram to be summed is placed at locations 
$00 and $01 (low order first as usual), The 
ending address is placed at locations $02 
and $03, and the program is started. The 
program will output an intermediate 
checksum after the end of each page of 
the summed program (i.e., each time the 
high order byte of the current address 
changes). This intermediate value would 
be useful in narrowing down the address 
ot where a mistake lies. For a long pro- 
gram there might be a few of these in- 
termediate sums; but then, that is also 
when they would be most helpful. 
Remember they stil! only narrow it down 
to 256 bytes (or less for the first and last 
values). 


The program starts by zeroing the 
checksum accumulator by pushing two 
zero bytes onto the stack. The stack 
register then points to the next available 
stack location, which is actually $100 
plus the stack register value in absolute 
address terms. The checksum ac- 
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cumutator is therefore at locations $101 
and $102 plus the stack register value, 
since the stack register starts at $1FF 
and works toward $100 each time a value 
is pushed onto the stack. Transferring the 
stack register to the ‘X’ register lets us 
add directly to these two bytes. It would 
be possible to accomplish the same thing 
with Pulls and Pushes, but wouldn’t have 
been as interesting. For the output of the 
last checksum value, the values are Pull- 
ed from the stack to keep the stack 
register the same before as after. 


In addition to the aforementioned 
selfish motives, | have found the program 
to have other more mundane uses around 
the computer room. ff you suspect a pro- 
gram is modifying itself (possibly by acci- 
dent), compute the checksum before and 
after execution. If the checksums are the 
same, you can be reasonably confident 
that the program hasn't changed. | say 
reasonably confident because a simple 


‘checksum is not total proof that a pro- 


gram didn’t change. if | add to one loca- 
tion and subtract the same amount from 
another, the checksum will still coms out 
the same. It is orders of magnitude more 
accurate than guessing or eyeballing a 
memory dump though. 


By the way, the checksum for this 
program ($04 to $48) is $1AAA! For the 
HEXOUT subroutine it is $O8F8. 
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SYM MONITOR ENTRY POINTS USED 


0049 
0049 


OUTBYT 
OUTCHR 


0000 


0000 00 
0001 00 
0002 00 
0003 00 


STRTAD 


ENDAD 


0004 A 00 PGMSUM 


0007 48 
0008 BA ADDIN 
0009 Ad 00 

OOOB 18 

000C Bl 00 

O00E 7D 02 0} 

0011 9D 02 O1 

0014 90 03 

0016 FE 01 91 


0019 E6 00 
Q01B DO 15 

' OO1D E6 G1 
OO1lF BD 02 QO] 
0022 48 
0023 BD 01 Ol 
0026 20 FA 82 
0029 68 
G02A 20 FA 82 


NOCARY 


O02F 20 47 BA 


CHKEND 


CHKNDA 


0041 20 FA 82 


0045 20 FA 82 
0048 OG 


* 
* 


ORG 


LDA 
CMP 
BNE 
LDA 
CMP 
BCC 
BEQ 


PLA 
JSR 
PLA 
JSR 
BRK 


S82FA 
$8447 


$0000 


$00 
$00 
$00 
$00 


$00 


$00 


STRTAD 
$0102 
$0102 
NOCARY 
$9101 


STRTAD 
CHKEND 
STRTAD 
$0102 


$0101 
OUTBYT 


OUTBYT 
$20 


“OUTCHR 


STRTAD 
ENDAD 
CHKNDA 
STRTAD 
ENDAD 
ADDIN 
ADDIN 


OUTBYT 


OUTBYT 


OUTPUT °A° AS 2 HEX DIGITS : eo. age 
OUTPUT °A° AS ASCII ; ; al - 


PROGRAM STARTING ADDRESS LOW 
PROGRAM STARTING ADDRESS HIGH 
PROGRAM ENDING ADDRESS LOW 
PROGRAM ENDING ADDRESS HIGH 


ZERO CHECKSUM ON THE STACK 


MOVE STACK POINTER TO INDEX pe EE dete 
MAKE SURE Y REG IS ZERO 


GET A PROGRAM BYTE 
ADD TO CHECKSUM 


ADVANCE TO NEXT PROGRAM BYTE 

GO CHECK FOR END OF PROGRAM 

+01 OTHERWISE BUMP TO NEXT PAGE 

OUTPUT INTERMEDIATE CHECKSUM ALSO 

SAVE LOW ORDER ON STACK 

TO AVOID SAVING xX . *Viake 
OUTPUT HIGH ORDER PART : Pet 4 


THEN LOW ORDER 
SPACE 
AND A SPACE AS SEPARATOR - 


+01 CHECK IF TO END OF PROGRAM 
+0} 


LESS MEANS MORE TO GO 


ELSE GET HIGH ORDER OF CHECKSUM 
ENO NEED TO PRESERVE THINGS 


CAUSE WE ARE DONE 


MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 


0200 REXOUT 
0200 48 

0201 4A 

0202 4A 

0203 4A 

0204 4A 

0205 C9 OA 
0207 90 02 
0209 69 06 
O20B 69 30 
O20D 20 47 BA 
0210 68 

0271 29 OF 
0213 C9 DA 
0215 $0 02 
0217 69 06 
0279 69 30 
O21B "AC YP BA 


HEXOTA 


KEXOTB 


SRT ns - 
Br ah 


ORG 
PHA 
LSRA 
USRA 
USRA 
USRA 
CMPIM 
BCC 
ADCIM 
ADCIM 
JSR 
PLA 
ANDIM 
CMPIM 
BCC 
ADCIM 
ADCIM 
JMP 


£0200 


$0A 
HEXOTA 
$06 
$30 
OUTCHR 


$0F 
$OA 
HEXOTB 
$06 
$30 
OUTCHR 


r 


RELOCATABLE 
SAVE EXTRA COPY FOR SECOND HALF 
SHIFT HIGH 4 BITS TO LOW ORDER 


CHECK IF >9 
WILL SET CARRY IF >= 
PLUS 7 WILL OFFSET TO GET ASCII ‘A? 


NOW OUTPUT THE FIRST HEX CHARACTER 
GET ORIGINAL BACK 

ONLY WANT 4 UOW ORDER BITS NOW 
SAME CONVERT TO ASCII 


LET THIS GUY DO THE RETURN 
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A Simple Temperature Measurement 
Program and Interface 


ees s mcrat a ARS ESE EAS  SSSOS 
Using a micro for temperature measurement 
demonstrates some of the problems and some of the 
solutions involved in interfacing to the real world. 


el 


Temperature measurements at least as 
precise as +1°C can be made with the 
circult shown in Figure 1 and the program 
listed in Table 1. The 555 timer integrated 
circuit operates in conjunction with a 
FENWAL GB41P2 thermistor as a temp- 
erature-to-frequency converter. The 
pulses from the circuit in Figure 1 are 
counted with the T2 counter/timer on the 
6522 Versatile interface Adapter. A 
machine language subroutine measures 
the number of pulses in one second, 
white a BASIC program converts the fre- 
quency to temperature. 


The relationship of the temperature of 
the thermistor to the frquency of the 
pusises at PB6 is non-linear. A 
temperature -Vs- frequency curve for our 
system is shown in Figure 2. You must 
make such a clibration curve for the 
system to work. A calibration curve is ob- 
tained by immersing the thermistor and a 
previously calibrated thermometer in 
some fluid and making measurements of 
the frequency as the temperature of the 
fluid is changed. We used water, heat, 
and ice cubes to produce our calibration 
curve. The frequency measurement pro- 
gram in Table 2 is used to measure the 
pulse frequency as a_ function of 
temperature. If you want to use this 
system as an alr themometer, then the 
fluid should be alr. You will have to wait 
for nature to provide the necessary 
temperature changes. Temperatures 
below and above those shown on our 
calibration curve (Figure 2) may be includ- 
_ ed, depending on your intended applica- 
tlon. Provided components with low 
temperature coefficients are used in the 
555 timer circuit, the precision of the 
temperature measurements made by the 
program will depend largely on the quali- 
ty of the calibration data you obtain for 
your circuit. The thermistor may be 
located in some remote location and con- 
nected to the 555 timer circuit by a 
twisted wire pair. 


The program listed in Table 1 requires 
the user to input 20 frequency 
‘temperature points from the calibration 
curve. The program can be easily 
modified to input more or fess data. With 
the calibration data in memory, it calls 
the machine language subroutine to 
measure the frequency of the pulses from 
the interface circuit in Figure 1. Using the 
measured frequency and the calibration 
data, it performs a quadratic interpola- 
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tion calculation to conver the frequency 
measurement to a temperature. it also 
converts the Celsius temperature to a 
Fahrenheit temperature and outputs 
both. In the BASIC program, statements 
number 50, 60 and 70 serve to get the fre- 
quency using the machine language 
subroutine. We are using AlM 65 BASIC, 
and the techniques necessary to call the 
machine language subroutine may vary 
from machine to machine. In any case, 


Twisted Pair 


Figure 1: Using the 555 Timer as a 
Temperature-to-Frequency Converter 
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Statement number 50 pokes the starting 
address of th machine language 
subroutine into a location where AIM 65 
BASIC can find it. Statement number 60 
actually produces the subroutine jump. 
The variable Y means nothing in state. 
Tent 60. In staternent 70 the BASIC pro- 
jram obtains the frequency from the two 
xytes in memory where the machine 
anguage subroutine stored it, namely 49 
= $31 and 50 = $32 in zero page. 


Because of the way the quadratic inter- 
polation formula is applied to the incom- 
ing frequency data, it is a good idea to 
make the first calibration point entered 
Into the BASIC program be F = 0,T = 
— 100 or some other low temperature 
yelow the range where you wish to 
operate. The other calibration points, 
‘rom your calibration curve, are entered In 
yrder from tow frequency-low 
‘emperature to high frequency-high 
emperature. For example, our first few 
jata points entered were: 

0, - 40 

1000, — 10 

2550, 0.5 

3000, 5.0 
\ close inspection of our calibration 
‘urve in Figure 2 shows that the first two 
ets of points are a dummy point (0, ~ 46) 
ind an extrapolated point (1000, — 10). 
lote that the data are entered in pairs, 
requency first, temperature second. 


For reference purposes, iet's review 
“ry briefly the quadratic interpolation 
mula that is used. Given a function T(F) 
3fined at three points, (F4, T), (FIT), and 
kK Tk), we must find the value of the 
inction at an arbitrary point F, assuming 
at the curve through the three points is 
second degree equation (quadratic) in 
The equation is: 


=Y+u [-ReT + Re - 137) LT 


+ U2 (A+) [RT] - (R + UT + LT, 
RL 


=F) - FL = FR ~ Fj, and 
U = (F - FMR + 1), 

Aeter to Figure 3 for a graphical inter- 
wetation of quadratic interpolation. Jn 
he program, the value of j (J in BASIC) 
hat is chosen is such that F exceeds Fi 
but is less than Fk. Then = j — 1 and k 
= j + 1. Thus the points Fi ang Fk 
tlways bracket F. 


where, 


Now a few comments on the machine 
anguage subroutines used in the pro- 
rams in Tables 1 and 2. These routines 
we identical. They allow the T2 
iounterftimer on the 6522 to count pulses 
or @ number of 60,000 clock cycle inter- 
als. The nurnber of such intervals is 
letermined by the byte of data in location 
OFO7 in the program. $14 = 20 such in- 
arvals give a total counting period of one 
econd. Clearly this number may be 
hanged to count pulses for either 0.1 s, 
0.0 s, of some other time Interval if 
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Figure 2: Using the Analog Devices 5373 as a TIF Converter. Resistances are in Ohms 
and Capitances are in Microtaracs. 


Table 1 « A simple frequency—to-temperature conversion program, 


10 DIM F(20), T(20) 
20 FOR J = 1 TO 20 
30 INPUT F(J),T{d) 
40 NEXT J 
50 POKE fi, $4: POKE 65, 15 
60 Y=USR(Z) 
70 Y=PEEX (49): Z=PEEK(50) 
80 FRQ=256*24Y 
90 FOR J = 1 TO 20 
100 IF FRO <F(J) THEN 120 
110 NEXT J 
120 TeJ-i: KaJ+l 
130 LeF(J) ~ F(X) 
140 R=F(K) ~ F(J) 
150 U=(FRQ = F(J))/(R + L} 
160 Te=T(J} + U/(R*L)*(-R*R*T(T )+(R*R-L¥L)*T(J)+L*L*T(K)) 
170 TO=TC+U*U* (RL )/(L¥R)*(R*T(1)~(R+L)*T (JT )4L*T(K)) 
180 TF = 9/5*TC + 32 
190 T= INT(TC + 15): T= INT(TF + .5) 
200 PRINT " ";TF;9F *;TO;"¢c" 


210 GO TO 60 

220 END ’ 

$OF0o Ds START CLD SOFiC 20 CO AN TEST BIT IFR 
OFO} AQ 60 LDA $60 OF1F 50 FB BVC TEST 
OFO3 8D OB AO STA ACR OF21 AD 04 AO LDA T1CL 
OFO6 AQ 4D LDA $4D OF24 C6 30 DEC CNTR 
OFOS &D 06 AO STA TLLL OF26 DO Fy BNE TEST 
OFOB AG 14 EDA $14 OF28 38 SEC 

OFOD 8&5 30 STA CNTR OF29 AQ FF LDA $FF 
OFOF A9 C3 LDA $03 OF2B ED 08 AO SBC T2CL 
OF11 8D 05 AQ STA T1LH OFZE 85 31 STA PLSLO 
OF14, 49 FF LDA $FF OF30 AQ FF LDA $FF 
OF16 8D 08 AO STA T2LL OF32 ED 09 AQ SBC T2CH 
OFi9 8D 09 AO STA T2CH OF35 85 32 STA PLSHI 


OF37 4C D1 co UMP BASIC 


+ 
Used in AIM 65 BASIC. Other BASICs may use a different return-from-subroutine 
technique, 


Se 
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Table 2. A program to measure frequency using BASIC and machine language. 


10 POKE fi, 04: POKE ps, 15 
20 Y = USR(P) 
30 FRQ = 256*PEEK(59) + PEEK (49) 


0 PRINT FRQ 

50 GO TO 20 

$0F0O DS START CLD 

OFOL Ag 60 LDA $60 
OFO3 8D OB AO STA ACR 
OFO6 AQ 14 LDA $14 
OF 08 85 30 STA COUNT 
OFOA AQ 4D LDA $4D 
oFoc 8D 06 AO STA TILL 
OFOF A9 C3 LDA $C3 
OF11 8D 05 AO STA TILH 
OF14 A9 FF LDA $FF 
OF16 8D 08 AO STA T2LL 
OF19 8D 09 AO STA T2CH 
ofic 2c 0D AO)«=—C«MOAF.—sBIT IFR 
OFF 50 FB BVC LOAF 
OF21 AD © AO LDA TICL 
OF2, C6 30 DEC COUNT 
OF26 DO FA BNE LOAF 
oF28 38 SEC 
OF29 A9 FF LDA $FF 
OF2B ED 08 AO Spo T2CL 
OFZE 85 31 STA PULSLO 
OF30 AQ FF LDA $FF 
OF32 ED 99 AO SBC T2CH 
OF35 85 32 STA PULSHI 
OF37 40 D1 CO JMP BASIC 


necessary. The programs in Tables 1 and 
2 will count to a maximum of 65535 
pulses in one one-second interval at a 
maximum rate of 500,000 Hz, the limit of 
the 6522. Note that the total counting in- 
terval ma be more or less than one Se 
cond by say ten microseconds. This error 
amounts to less than one count if the in- 
coming pulse rate is less than 65,535 Hz, 
and is of no consequence for this applica- 
tion. The listing in Table 2 is useful as a 
frequency counter with no regard to our 
frequency-to-temperature conversion pro- 
gram listed in Table 1. That is, the pro- 
gram in Table 2 is a stand-alone frequen- 
cy counting program which may be used 
to count the frequency of pulses arriving 
at PB6, provided these are TTL jevel 
pulses similar to those provided by the 
555 temperature-to-frequency circuit. A 
clever programmer will note that if IFAS, 
the T2 -interrupt flag, is read, the T2 
counter becomes a 17 bit counter, exten- 
ding the range listed above by a factor of 
two. We did not program this feature into 
the programs in Tables 1 and 2. 


Now that you can measure tamp- 
eraiure, let’s see what interesting ap- 
plications you can come up with, and 


Clear deciml] mode. 

Set up ACR so Ti runs free and 

T2 counts pulses. 

The program wiil count pulses for 
$14 = 20 intervals of 50,000 clock 
cycles. Tl is loaded with $C34D, 
since $C34D + 2 = 50,000. TFR6 will 
be set every 50,000 clock cycles. 
Clear IFR6 and start Tl running. 
Set up T2 to start counting down 
from $FFFF. 

Start counting pulses on PBS. 

Has Tl timed out yet? 

No, then wait in this loop. 

Read TLCL simply to clear IFR6. 


Decrement interval counter. 


Count pulses for another intervel if 


interval counter has not reached Zero. 


If it has reached zero, obtain the 


number of pulses from 72 by subtracting 


the number in T2 from $FFFF. 


Result into locations $0031 and $0032. 


AIM 65 return to BASIC command. 


please let us hear from you. Of course, 
the first thing you will want to do is put 
the thermistor under your tongue and 
measure your body temperature. Analog 
Devices sells a T/F converter (AS537) that 
provides a linear relationship between T 
and F. We now describe how to interface 


it to your computer. 


The connection diagram for the AD537 
is shown in Figure 4. Again, the T2 timer!- 
counter on the 6522 Is used to measure 
the frequency of the pulses coming from 


A Program to Measure Temperature with 


the AD537 Interface 


ee 


10 POKE #i,,$¢: POKE 95,15 
20 Y = uSR(#) 


30 FRQ = 256*PEEK(5$) + PEEK (4,9) 


40 TC = (FRQ - 2731)/16 
50 TF « TC*9/5 + 32 
60 TF = INT(TF + .5) 


70 PRINT * "3 TF; A 3 act 


80 GO TO 26 


a 
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the ADS537. With the values shown, the 
AD537 will produce a linear relationship 
between frequency and absolute temp- 
erature (Kelvin degrees) of 10Hz/K. At 
room temperature (about 300°K) the fre- 
quency will be 3000 Hz. The 15 k poten- 
tiometer in Figure 4 is adjusted to give 
the correct temperature. The adjustments 
are easier if the 15 k potentiometer is 
replaced by a 9.1 k resistor in series with 
a 2 k potentiometer to trim the total 
resistance to about 10 k ohms. 


To convert from absolute temperature 
(°K) to Celsius temperature, We make use 
of the formula (°C = °K - 273.1}. Then we 
can convert to Fahrenheit with the for- 
mula [F = CCX9/5) + 32]. The entire pro- 
cess is handled with the BASIC program 
listed in Table 3. This program also calls 
the machine subroutine listed in Tables 1 
and 2. 


The AD537 is a versatile device. it can 
also be used as a very fine voltage-to- 
frequency converter with only a few exter- 
naj components. Analog Devices appears 
to share my philosophy that the fewer ex- 
ternal components around, the less likely 
it is for me to have problems. In any case, 
with the same integrated circuit you can 
make youself a voltmeter. The same 
machine language subroutine will provide 
the necessary software, and a simple 
BASIC calling program will place the 
decimal point and output the answer. You 
shovid be sure to obtain the specification 
sheets on the ADS37 if you get one. They 
contain a tot of useful and vita! informa- 
tion. For example, the Ad537 can be 
operated ina remote location with a two- 
wire connection. Several of them can be 
multiplexed because the pulse output pin 
is an open-cotlector connection. The 
AD537 is much. more expensive than @ 
555 timer, and jAnalog Devices may fe 
quire a minimum order. Perhaps the 
members of your computer ctub can get 
together and piace an order. Write: 
Analog Devices, 1 Industrial Park, P.O. 
Box 280, Norwood, Ma. 02062. 


If you do not have a BASIC interpreter 
on your computer, then the machine 
janguage output subroutines given in 
Tables 4, 5, and 6 may be used with the 
programs in Tables 2 and 3 to output the 
frequency and temperature information. 
(Note that in order to measure temp- 
erature with the 555 timer circuit, a BASIC 
interpreter is an absolute essential.) 
SYM-1 and KIM-1 users can use the 
binary-to-BCD conversion routine in Table 
4, together with their own subroutine that 
displays six numbers on the 7-segment 
LEDs, to display the frequency of the 
pulses measured by the machine 
language program in Table 2. The JMP 
BASIC instruction at $OF37 would be 
reptaced by the following instructions: 


20 60 OF JSR OCML 
20 77 7? JSR DISPLAY 
4C 00 OF JMP START 


re 
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where DISPLAY is the user’s routine to 
fisplay six digits. AIM 65 owners wil! 
vant to use all the subroutines in Tablas 
, 5, and 6 to output the BCD digits 
epresenting the frequency to the AIM 65 
wenty character display. To use the 
iubroutines with the AD537 interface and 
he program in Table 3, you must first 
ubtract $OAAB (2731) from the measured 
ulse rate to convert it to Celsius, and 
hen output the BCD digits, remembering 
or yourself where the decimal place |s. 
iood luck. 





Figure 3: Graphicai Interpretation of 
Quadratic Interpolation 





Figure 4: Frequency-to-Temperature Con- 
version Curve for the 555 Circuit. 


Table 4. A subroutine to convert a 16-bit binary number to six BCD digits. 








$0031 = PLSLO; contains low-order byte of 16-bit number to be converted. 
$0032 = PLSHI; contains high-order byte of 16-bit number to be converted. 


$OF60 AY 00 
OF62 85 OL 
OF64 85 OR 
OF66 85 03 
OF68 FS 
OF69 AO 10 
OF6B 06 31 
OF6D 26 32 
OF6F A2 FD 
OF71 BS 04 
OF73 75 Ob 
OF75 95 Ob 
OF77 E8 
OF78 DO F7 
OF7A 88 
OF7B DO EE 
OF7D Ds 
OF7E 60 


DOML 


THERE 


MORE 


LDA $00 
STA BCDLO 
STA BCDMI 
STA BCDRI 
SED 

LDY $10 
ASL PLSMO 
ROL PISMI 
LDX $FD 
LDA BYT,X 
ADC BYT,x 
STA BYT,X 
INX 

BNE MORE 
DEY 

BNE THERE 
CLD 

RTS 


Clear nemory locations for the 
ECD number 


Set decimal mode for subsequent 


’ additions.” Y¥ contains number of 


bits to be converted. One bit of 
the number is shifted into the 
earry bit at a time. X serves as 
a counter for a triple-precision 
addition. 


Get the next bit. 

When Y = 0, the conversion is 
complete. 

Return to calling program, 
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